zion - Ajouter les événements FontChanged/TextChanged à un composant
- TClassName = class(TMemo)
- private
- procedure CMFontChanged(var Message: TMessage); message CM_FONTCHANGED;
- procedure CMTextChanged(var Message: TMessage); message CM_TEXTCHANGED;
- end;
- procedure TClassName.CMTextChanged(var Message:TMessage);
- begin
- //
- end;
- procedure TClassName.CMFontChanged(var Message:TMessage);
- begin
- //
- end;
Poster un commentaire