OnClick

Jak we własnym komponencie obsłużyć OnClick tak aby można by było potem używać OnClick w programie. Komponent jest pisany na bazie innego komponentu który ma już napisaną obsługę OnClick. Potrzebuje wykonać kilka poleceń przy ?Click?, które będą miały wpływ na działanie komponentu rodzica.

Jak podstawiłeś swoją procedurę obsługi pod oryginalne OnClick to zadeklaruj zdarzenie np. OnClick (w klasie potomnej) tak, aby zakryć to zdarzenie w klasie rodzicielskiej (ale uwaga: do podstawienia swojej procedury obsługi użyj konstrukcji

inherited OnClick := MojaProcedura;

). Teraz na końcu tej słynnej procedurki obsługi wstaw taki kodzik:

if Assigned(OnClick) then
  OnClick(Self);

Mam nadzieję, że zrozumiałem problem i pomogłem :)