Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.04.14;
Скачать: CL | DM;

Вниз

Закрыть форму в OnShow.   Найти похожие ветки 

 
Ops   (2003-04-02 14:40) [0]

Создаю форму
Form1 := TForm1.Create(Application);
Form1.ShowModal;
Form1.Free;
procedure TForm1.FormShow(Sender: TObject);
begin
ModalResult:= 1;
end;
Незакрывается !!! по ModalResult Че делать...


 
Жук ©   (2003-04-02 14:44) [1]

Ну, не должна форма закрываться из-за, того, что ModalResult"у значение присвоили.
procedure TForm1.FormShow(Sender: TObject);
begin
Close;
ModalResult:= 1;
end


 
Skier ©   (2003-04-02 14:44) [2]

>Ops
Если честно, то не понятно цель всего этого...
Давай подробности...

(для справки : метод ModalResult как
раз и возвращает ModalResult)


 
Skier ©   (2003-04-02 14:45) [3]

Ой, метод ShowModal, конечно же...


 
Ops   (2003-04-02 14:48) [4]

Ребята...
НУЖНО ЗАРЫТЬ корректно ФОРМУ по модальному результату сразу в OnShow...


 
Skier ©   (2003-04-02 14:50) [5]

Так ведь именно ShowModal и даёт модальный результат.
IMHO, задача поставлена не верно.


 
Юрий Федоров ©   (2003-04-02 14:52) [6]

PostMessage(handle, WM_CLOSE, 0, 0)


 
Ops   (2003-04-02 14:58) [7]

Юрий Федоров - спасибо



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

Текущий архив: 2003.04.14;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
3-43999
Dimitry
2003-03-25 10:25
2003.04.14
запись изображения в таблицу paradox


14-44405
Style
2003-03-21 08:57
2003.04.14
---|Ветка была без названия|---


3-44057
Huc
2003-03-24 16:12
2003.04.14
---|Ветка была без названия|---


14-44406
AndrewXXX
2003-03-27 10:27
2003.04.14
Ищу документацию


3-44078
DOA_
2003-03-26 16:18
2003.04.14
О работе с компонентами DOA