…
published
property OnClick;
…
A másik teendőnk, hogy engedélyezzük a komponens számára a kattintás eseményt. Ehhez a konstruktorban a ControlStyle property-nek kell új értéket adnunk, oly módon, hogy a már meglévő konstansok közé felvesszük a csClickEvents-et is.
constructor TDBClickGrid.Create(AOwner: TComponent);
begin
inherited;
ControlStyle:=ControlStyle+[csClickEvents];
end;