ShowModal

← →
Kedis © (2003-05-26 13:30) [0]

Проблемка

Form1 - вызывает процедуру
change(Abon_pos,n_pol,nomer_pr,obnov);

Другой unit;
procedure Change(Abon_ls,pol,nomer:integer; var obn: boolean);
begin
tim:=Time;
Abon_changeForm.ShowModal;
end;

procedure TAbon_changeForm.Timer1Timer(Sender: TObject);
var old_ls: integer;
begin
if Time-tim>StrToTime("0:05:00") then
begin
вот тут ее надо скрыть;
end;
end;

← →
jack128 © (2003-05-26 13:32) [1]

вот тут ее надо скрыть = hide;

← →
Palladin © (2003-05-26 13:33) [2]

при ShowModal управление полностью передается на модальную форму, и не вернется в главную пока модальную не закроют...

← →
Kedis © (2003-05-26 13:34) [3]

Ни фига она тогда не дает фокус Form1, даже щелкнуть нельзя, просто Abon_changeForm исчезает и все, а результат все-равно ожидается

← →
Думкин © (2003-05-26 13:34) [4]

Close?

← →
jack128 © (2003-05-26 13:35) [5]

А лудше
ModalResult := mrOk;// или mrCancel; что по смыслу лудше подходит

← →
Palladin © (2003-05-26 13:36) [6]

упс, извиняюсь, не вдумчиво прочитал код...

← →
Kedis © (2003-05-26 13:43) [7]

там result не имеет смысла, впринципе, надо просто её не закрыть, а сделать так чтоб она получила какой-то результат и самостоятельно закрылась

← →
Skier © (2003-05-26 13:47) [8]

> , а сделать так чтоб она получила какой-то результат и самостоятельно
> закрылась

И зачем этот результат нужен ?

потому что она никогда не закроется пока не получит результат

if Abon_changeForm.ShowModal = mrOk then begin
//1)
end //if
else begin
//2)
end; //else

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