Форум: "Основная";
Текущий архив: 2003.06.05;
Скачать: [xml.tar.bz2];
Вниз
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 вся ветка
Форум: "Основная";
Текущий архив: 2003.06.05;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.01 c
