zion - Ajouter les évènements MouseEnter/MouseLeave à un composant
- type
- TClassName = class(TMemo)
- private
- procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
- procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
- end;
- procedure TClassName.CMMouseEnter(var Message: TMessage);
- begin
- end;
- procedure TClassName.CMMouseLeave(var Message: TMessage);
- begin
- end;
Poster un commentaire