🚀 go-pugleaf

W dniu 20.04.2010 21:41, Terrmit pisze:
>> Gdyby komuś miał jeszcze jakiś pomysł
>
> Oczywiście miało być:
> "Gdyby ktoś miał jeszcze jakiś pomysł"
>

To ja mam taki pomysł, u mnie działa :)
więc może u Ciebie też ;D

W swojej klasie, np. TMyStringGrid dopisz:

<code>

TMyStringGrid = class(TCustomStringGrid)
   private
     FOnEditButtonClick: TNotifyEvent;

   protected
     //procedura obsługi nowego zdarzenia OnEditButtonClick
     procedure EditButtonClicked(Sender: TObject);

   public
     //w public musi być konstruktor, bo będzie nam potrzebny
     constructor Create(AOwner: TComponent); override;

   published
     //w published nasze zdarzenie dla Inspektora obiektów
     property OnEditButtonClick: TNotifyEvent read FOnEditButtonClick
                                 write FOnEditButtonClick;
   end;

//A teraz nasze procedurki

procedure TMyStringGrid.EditButtonClicked(Sender: TObject);
begin
   //w EditButtonClicked dopisujemy
   if Assigned(OnEditButtonClick) then OnEditButtonClick(self);

   //a tu wpisujemy to co ma się stać po kliknięciu
   ShowMessage('Nastąpiła eksplozja!');
end;

//W konstruktorze, jeszcze przed inherited Create(AOwner)
//przypisujemy naszą procedurę do OnEditButtonClick rodzica

constructor TMyStringGrid.Create(AOwner: TComponent);
begin
   inherited OnEditButtonClick := @EditButtonClicked;
   inherited Create(AOwner);

   //tu dalszy kod konstruktora
end;

</code>

Nie wiem, czy powinienem ustawiać nil na OnEditButtonClick
w destruktorze. Może dla porządku należałoby.

Fajnie byłoby gdyby procedura EditButtonClicked mogła być
wreszcie virtual, aby można ją było już dalej dziedziczyć.
Na razie nie wiem jak to ugryźć.

Może ktoś ma jakieś uwagi/wskazówki do tego kodu?

Pozdrawiam,

Sławek