Delphi - jak na udalost?U objektu vytvoreneho za behu progr.

[Borg2of3]

Mam takovou proceduru, ktera mi vytvori mnou definovanej pocet klikatek za behu programu.... jak mam udelat, abych pak na kazdy z tehle vytvorenych klikatek mohl vyvolat za behu programu udalost..??? treba onclick... mouseover atd... a k tomu prislusnou reakci.... Nejak se mi to nepodarilo vymyslet a nikde na netu jsem to nenasel...

procedure tform1.vytvoreniikon();
var i:integer;
begin
for i := 1 to pocetikon do
begin
tlacitko := Tspeedbutton.create(form1);
tlacitko.parent := form1.Panel2;
tlacitko.top := i * 48;
tlacitko.left := 0;
tlacitko.width := 52;
tlacitko.height:= 48 ;
tlacitko.visible := true;
tlacitko.Flat:=true;
tlacitko.Caption:=inttostr(i);
tlacitko.Font.Size:=7;
tlacitko[i].Layout:=blglyphbottom;
tlacitko[i].ParentFont:=false;
tlacitko[i].Margin:=0;
tlacitko[i].Font.Name:='Arial';
tlacitko[i].Font.Style:=[fsBold];
end;
end;

[pavel.minarik]

type
TForm ....


procedure TlacitkoClick(Sender: TObject);
private
...

...

procedure TForm1.OnCreate(...);
begin
tlacitko.OnClick:= TlacitkoClick;
end;

...

procedure TForm1.TlacitkoClick(Sender: TObject);
begin
if (Sender as TSpeedButton).Name=Tlacitko.Name
then begin
....
end;
end;

[Borg2of3]

type
TForm ....


procedure TlacitkoClick(Sender: TObject);
private
...

...

procedure TForm1.OnCreate(...);
begin
tlacitko.OnClick:= TlacitkoClick;
end;

...

procedure TForm1.TlacitkoClick(Sender: TObject);
begin
if (Sender as TSpeedButton).Name=Tlacitko.Name
then begin
....
end;
end;

Dik rano se na to mrknu.

[pavel.minarik]

ještě bacha, mám tam chybu,
tlacitko.OnClick:= TlacitkoClick;
patří pochopitelně až po vytvorření toho tlačítka a ne do fom create

[Borg2of3]

ještě bacha, mám tam chybu,
tlacitko.OnClick:= TlacitkoClick;
patří pochopitelně až po vytvorření toho tlačítka a ne do fom create

Jasne to jsem pochopil ja se ted na to dival a zatim to funguje.. mockrat diky

[pavel.minarik]

Jasne to jsem pochopil ja se ted na to dival a zatim to funguje.. mockrat diky

jasně, že to funguje, takhle se dají dynamicky přiřazovat metody obsluhující události, třeba i objektu TApplication, jen je třeba si dát bacha na to, aby hlavička metody seděla s hlavičkou řekněme defaultní obslužné procedury

[Borg2of3]

jasně, že to funguje, takhle se dají dynamicky přiřazovat metody obsluhující události, třeba i objektu TApplication, jen je třeba si dát bacha na to, aby hlavička metody seděla s hlavičkou řekněme defaultní obslužné procedury

to jako ze mam treba nejakej objekt kuprikladu speedbutton kterej nema placnu "ondestroy" ze mu tuhle udalost muzu pridat? To by se u nekterych objektu dost hodilo... ted me ale honem nenapada u kterych

[pavel.minarik]

to jako ze mam treba nejakej objekt kuprikladu speedbutton kterej nema placnu "ondestroy" ze mu tuhle udalost muzu pridat? To by se u nekterych objektu dost hodilo... ted me ale honem nenapada u kterych

jo, jde to u každýho objektu dynamicky na běhu nastavit, která metoda obsluhuje kterou událost (proč by to nemělo jít, když to jde u onClick)