kako kreirati dogadjaje za dinamicki kreirane komponente?

[ dejov @ 09.09.2004. 11:37 ] @

Ukoliko dinamicki izgradjujem komponente(u toku programa), kako onda da napisem dogadjaj za te komponente. Npr:
Dinamicki napravim komponentu tipa TButton:

Code:
with tbutton.Create(self) do
  begin
  parent:=panel1;
  left:=15;
  top:=56;
  width:=100;
  name:='dugme';
  caption:='poruka';
  end;

Kako sada da napisem dogadjaj onclick na to dugme koje ce se kreirati tek u programu?

[ neor @ 09.09.2004. 12:08 ] @

Definises metodu istu kao da komponenta nije dinamicka

Code:

procedure TForm1.PozoviMeNaKlik(Sender: TObject);
begin
{radi nesta}
end;

i kod kreiranja jos dodas

OnClick := PozoviMeNaKlik;

[ dejov @ 11.09.2004. 01:29 ] @

Uspeo sam da ih kreiram. kako sada da ih unistim npr: klikom na neko dugme?

[ neor @ 11.09.2004. 08:20 ] @

Pa sa MojObjekat.Free ili FreeAndNil(MojObjekat).
Naravno za to moras da promenis tvoju proceduru za kreiranje:
MojObjekat := TButton.Create(Self)