Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как задать ModalResult? [D6]

wezzz © (2006-02-20 15:59:00)
На форме есть кнопка. Для неё ModalResult = mrOk. Как програмно симитировать нажатие на неё? Т.е. чтобы форма закрывалась и возвращался ModalResult = 1?
Пробовал делать Button1Click(Form1) и Form1.ModalResult := mrOk -- эффект не тот :(

Kray (2006-02-20 17:26:00) [1]
Можно просто в любой процедуре модальной формы написать
ModalResult := mrOk;
и все форма закроется.

Плохиш (2006-02-20 17:12:00) [2]

> wezzz (20.02.06 15:59)
> На форме есть кнопка. Для неё ModalResult = mrOk. Как програмно
> симитировать нажатие на неё?

Button1.Click;

PS. Ту галиматью, что написана в последующих двух строчках, Вы уж извините, я не понял.

Mikhail V (2006-02-20 17:00:00) [3]

> wezzz (20.02.06 16:16) [7]
> Form1.ModalResult := mrOk;

Сие часом не в реализации TForm1?

tytus (2006-02-20 16:31:00) [4]
[7]
Form1:=TForm1.Create(Application);
try
Form1.ShowModal;// if Form1.ModalResult=mrOK - то же самое
...
finally
Form1.Close;//Form1.ModalResult:=100;
FreeAndNil(Form1);
end;
Если на кнопке ModalResult=mrOK то щелчком по ней МОДАЛЬНАЯ форма закроется, и никакого обработчика для кнопки писать не надо!

RO (2006-02-20 16:20:00) [5]

> Access violation

Значит переменная Form1 содержит либо мусор либо nil.

wezzz (2006-02-20 16:16:00) [6]
Form1.ModalResult := mrOk;
Access violation

tytus (2006-02-20 16:12:00) [7]
[4]
Ошибочка-правильно так
if Form1.ShowModal=mrOK

RO (2006-02-20 16:12:00) [8]

> не закрывается форма

Значит она не модальная

tytus (2006-02-20 16:10:00) [9]
>wezzz
Form1.ModalResult:=100;// и форма закроется.
показ формы:
if Form1.ModalResult=1//форма уже будет видна , если конечно до этого она была создана: Form1:=TForm1.Create(Application).

RO (2006-02-20 16:09:00) [10]

> Form1.ModalResult := mrOk -- эффект не тот

И какой же ?

wezzz (2006-02-20 16:08:00) [11]
не закрывается форма

MegaVolt (2006-02-20 16:07:00) [12]
А чем неустроил результат?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »