🚀 go-pugleaf

Witam,
Tym razem chciałbym zapytać o bardziej złożony problem
(a może jest on prosty, tylko ja mam za małą wiedzę).

W programie używam własny komponent StringGrid:
   TMyStringGrid = class(TCustomStringGrid)

Wprowadziłem w nim wiele "innowacji" :) bo standardowy
StringGrid nie za bardzo mi odpowiadał.

W mojej klasie pokrywam też kilka zdarzeń między innymi
procedure HeaderClick(IsColumn: Boolean; index: Integer); override;
procedure DrawCell(aCol,aRow: Integer; aRect: TRect; 
aState:TGridDrawState); override;
i kilka innych

Jednak nie mogę (albo nie wiem jak) pokryć zdarzenia OnEditButtonClicked
procedure EditButtonClicked(Sender: TObject);
http://lazarus-ccr.sourceforge.net/docs/lcl/grids/tcustomgrid.html

Jeśli do TStringGrid.Columns.Items[x].ButtonStyle przypiszemy
cbsButton albo cbsEllipsis, to w po wybraniu komórki z takiej kolumny
mamy dodatkowy przycisk. Po jego kliknięciu może nam się otworzyć
np. jakieś okno dialogowe. Właśnie zdarzenie OnEditButtonClicked
informuje, że kliknięto taki button.
Chciałbym aby moja klasa TMyStringGrid zawsze w takim momencie
sprawdzała jaka dana jest w komórce (tekst, czy liczba)
i w zależności od tego po kliknięciu na button komórki wyświetlała
inne okno dialogowe. Ponieważ w programie używam takich tabel
kilkadziesiąt, a niektóre będą też tworzone dynamicznie, to chciałbym
włączyć to do klasy, a nie oprogramowywać każdą jej instancję.
Niestety procedura EditButtonClicked w przeciwieństwie do
HeaderClick czy DrawCell nie jest oznaczona słowem virtual,
stąd problem.

Czy ktoś mógłby mi poradzić jak to zrobić (i czy w ogóle da
się to zrobić)?

Sławek

być może pomocne linki:
http://svn.freepascal.org/svn/lazarus/trunk/lcl/grids.pas
http://lazarus-ccr.sourceforge.net/docs/lcl/grids/tcustomstringgrid.html
http://wiki.lazarus.freepascal.org/Grids_Reference_Page