direktive "message"

[Robert_G]

Natürlich indem du den Handler in einem Nachfahren von TRichEdit implementierst.

Delphi-Quellcode:

type TMiep = class(TRichEdit)
  procedure WMSetFocus(var msg: TWMSetFocus); message WM_SETFOCUS;
end;