OnDragXXX - Ereignisse wann ausgelöst?

[Ultimator]

So schwierig ist das mit den Messages gar nicht

Delphi-Quellcode:

type TMyPanel = class(TPanel)
  private
    procedure WMLButtonDown(Msg: TWMLButtonDown); message WM_LBUTTONDOWN;
  public
    //bla
end;

implementation

TMyPanel.WmLButtonDown(Msg: TWMLButtonDown);
begin
  ShowMessage('Du hast mich gedrückt!');
end;

Das wäre jetzt ein Panel, das auf OnClick reagiert
(Ist zwar Schwachsinn, weils das eh tut, aber soll ja nur n Beispiel sein )

Code ohne Garantie, müsste aber gehen