Waitforsingelobject

← →
Mamed (2008-08-28 10:15) [0]

U menya est odin child forma
frm_select
v forme est odin knopka posle najatiya on zakrivaetsya kak programno pdajdat do najatiya etoy knopki
...
frm_select.Show
i zdes jdat poka on zakroetsya

← →
Palladin © (2008-08-28 10:17) [1]

что мешает сделать эту форму не child и вызвать ShowModal?

← →
Mamed (2008-08-28 10:22) [2]

etot kod budu v chilkee ispolzovat.Makro kochu pribavit k proge.3 forma podrayad budut otkrivatsya v chikle

← →
Palladin © (2008-08-28 10:30) [3]

и что? я спросил что мешает? то что ты написал, абсолютно не мешает

← →
Mamed (2008-08-28 10:35) [4]

for i:=0 to 100 do
Begin
...
frm_select.show
mne nujen zdes podajdat poka on zakroetsya.Esli zdes budet Showmodal to clientu nado budet ego zakrivat
..
End

← →
Palladin © (2008-08-28 10:35) [5]

чукча не читатель, чукча писатель...

> nujen zdes podajdat poka on zakroetsya

Если не клиент форму будет закрывать, то кто вместо него это сделает, святой дух ?

← →
Mamed (2008-08-28 11:07) [7]

frm_select est btn_Selectclick
kod budet takoi
For i:=0 to 100
Begin
..
frm_select.show;// v formshow evente est precdeuru on vipolnistaya
frm_Select.btn_Selectclick(nil);//zdes oktroetsya drugaya forma frm_save childforma
ApplicatinCreateform(Tfrm_save,frm_save);//v forme frm_save rabotaet formshow,i timer kak on otoetsya srazu vipolnyaetsya kakoy do kod in frm_save zakrivaetya.vot problema zzdes v tom chto poka rabotaet etot kod chilk doljen ostanovistaya. konesno kod nujen napisat sovsem po drugomu. vremeni est est gotoviy kod kotoiy raboet bez cikla etot kod v chikl xochu postavit

..
end

frm_Select.ShowModal

В обработчике Tfrm_Select.OnShow вызываешь btn_Select.Click

В обработчике btn_Select.OnClick:

with Tfrm_save.Create(nil) do
try
ShowModal;
finally
Free;
end;

Waitforsingelobject Найти похожие ветки