Скачать: CL | DM;

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]

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

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

---

← →
Palladin ©   (2003-05-26 13:49) [9]

> Kedis © (26.05.03 13:43)

ну не нужен может и не нужен, но для закрытия формы ты должен хоть что то ему назначить

---

← →
Kedis ©   (2003-05-26 13:49) [10]

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

---

← →
Skier ©   (2003-05-26 13:52) [11]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.013 c