Ładny brzuch

[FONT=Arial][SIZE=1]
Mam problem mianowicie tworz formatke dziecko w ten sposob:

procedure TKPiRForm.dzieckoClick(Sender: TObject);
begin
dzieckoform:=Tdzieckoform.create(self);
end;

ale nie chc aby przy kolejnym nacisniciu przycisku dzieckoClick
tworzony bya kolejny obiekt tylko aby byl uaktywniany ten juz utworzony jak to mozna obejsc? Bybym bardzo wdziczny.


przed implementacj : var czy_act: boolean; a potem: procedure TKPiRForm.dzieckoClick(Sender: TObject); begin if czy_act=false then begin dzieckoform:=Tdzieckoform.create(self); czy_act:= true; end else dzieckoform.Activate; end;

Nie wiem czy to dobrze zadziaa, ale moesz sprbowa ;)
Uytkownik Kajetanek edytowa ten post 24 luty 2005, 14:30
 if dzieckoform = nil then    dzieckoform := TMDIChild.create(self)  else    dzieckoform.Show;


 if dzieckoform = nil then    dzieckoform := TMDIChild.create(self)  else    dzieckoform.Show;


Dziki wielkie teraz hula pisz ksike przychodw i rozchodw i napotkaem taki wanie problem jeszcze raz dziki. :)

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •