Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

kako kreirati dogadjaje za dinamicki kreirane komponente?

[es] :: Pascal / Delphi / Kylix :: kako kreirati dogadjaje za dinamicki kreirane komponente?

[ Pregleda: 3276 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

dejov
Dejan Jovic
Zrenjanin

Član broj: 17537
Poruke: 88
*.ptt.yu



Profil

icon kako kreirati dogadjaje za dinamicki kreirane komponente?09.09.2004. u 11:37 - pre 224 meseci
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?
 
Odgovor na temu

neor
Nenad Orlovic

Član broj: 26828
Poruke: 74
*.ftn.ns.ac.yu



Profil

icon Re: kako kreirati dogadjaje za dinamicki kreirane komponente?09.09.2004. u 12:08 - pre 224 meseci
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;
 
Odgovor na temu

dejov
Dejan Jovic
Zrenjanin

Član broj: 17537
Poruke: 88
*.dialup.neobee.net.



Profil

icon Re: kako kreirati dogadjaje za dinamicki kreirane komponente?11.09.2004. u 01:29 - pre 224 meseci
Uspeo sam da ih kreiram. kako sada da ih unistim npr: klikom na neko dugme?
 
Odgovor na temu

neor
Nenad Orlovic

Član broj: 26828
Poruke: 74
*.metrohive.net



Profil

icon Re: kako kreirati dogadjaje za dinamicki kreirane komponente?11.09.2004. u 08:20 - pre 224 meseci

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

[es] :: Pascal / Delphi / Kylix :: kako kreirati dogadjaje za dinamicki kreirane komponente?

[ Pregleda: 3276 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.