Ĺadny brzuch
Mam procedurę w której w pewnym momencie pojawia się nowa forma z 2 buttonami - jak zrobić aby cała procedura zatrzymała się aż do czasu naciśnięcia któregoś z buttonów na formie, a po naciśnięciu dalej leciała? Zaznaczam że MessageBox nie wchodzi w grę... Chcę zrobić coś podobnego jak MessageBox tylko że na formie z 2 buttonami...
Użytkownik qwert21 edytował ten post 17 grudzień 2006, 03:09
to ustaw dla tego buttona tą procedurkę. :)
procedure TMsgForm.Button1Click(Sender: TObject); begin Button1.Tag:=1; end; procedure TMsgForm.MojaProcedura; begin while Button1.Tag<1 do Application.ProcessMessages; ZrobCos; Button1.Tag:=0; end;
Tylko tego sposobu raczej bym nie polecil. Lepjej zastosowac typowa procedure obslugi okna MsgForm.ShowModal;
Użytkownik stan24 edytował ten post 17 grudzień 2006, 11:38
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Użytkownik qwert21 edytował ten post 17 grudzień 2006, 03:09
to ustaw dla tego buttona tą procedurkę. :)
procedure TMsgForm.Button1Click(Sender: TObject); begin Button1.Tag:=1; end; procedure TMsgForm.MojaProcedura; begin while Button1.Tag<1 do Application.ProcessMessages; ZrobCos; Button1.Tag:=0; end;
Tylko tego sposobu raczej bym nie polecil. Lepjej zastosowac typowa procedure obslugi okna MsgForm.ShowModal;
Użytkownik stan24 edytował ten post 17 grudzień 2006, 11:38