Shape + OnDblClick

Mam takie pytanie czy do komponentow mozna dodawac standardowe zdarzenia, ktore sa obslugiwane przez jakies inne komponenty, w szczegolnosci interesuje mnie by shape reagowal na podwojne klikniecie.
Z gory dzieki za pomoc.

Można - czemu nie - albo stworzyć swój komponent dziedziczący z TShape i go odpowiednio zmodyfikować, albo lepiej sprobować obsłużyć komunikat WM_LBUTTONDBLCLK - nie jestem jednak pewny czy będzie działać z tym komponentem.

A czy mozna wiedziec jak sie obsluguje komunikaty?

A czy mozna wiedziec jak sie obsluguje komunikaty?

,
banalnie - w deklaracjach procedur dajesz

procedure nazwa(var Msg:TMessage);message nazwa_komunikatu;

zamieniasz nazwe na co chcesz a nazwa_komunikatu w tym przypadku WM_LBUTTONDBLCLK. potem musisz napisac procedure do obslugi tego - dajesz ponizej implementation

procedure nazwa(var Msg:TMessage);
begin
//tu wstawic kod
end;

kurde
nie wiem co robie zle ale program nie chce sie skompilowac
-> unstatisfied forward or external declaration

zrobilem tak

...
procedure SpeedButton1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
<b>
procedure podw(var Msg:TMessage);message WM_LBUTTONDBLCLK;
</b>
...
implementation

{$R *.dfm}

<b>
procedure podw(var Msg:TMessage);
begin
ed.Text:='aaaaaaaaaaaaaaaa';
end;
</b>
...

<font color="green">procedure podw(var Msg:TMessage);</span>

zobacz jak pisze się metody w Implementation.

procedure TNazwaKlasy.Metoda;