LoginDialog ?

← →
DmiSb (2004-08-10 14:06) [0]

Уважаемые мастера, дайте совет новичку в КОЛ. При создании гланой формы программы вызывается создание диалога на подключение к базе, вот так :

procedure TMainF.KOLMainFFormCreate(Sender: PObj);
begin
NewLoginF(LoginF, Applet);
LoginF.Form.ShowModal;
end;

Вопрос, как при нажатии на кнопку "Отмена" закрыть приложение ?
Пробовал использовать ModalResult, приложение все равно не закрывается.

← →
Vladimir Kladov (2004-08-10 16:26) [1]

встречный вопрос: а как вы использовали ModalResult ?
Я бы сделал так:

if LoginF.Form.ShowModal < 0 then Halt;

А вы?

← →
DmiSb (2004-08-11 07:58) [2]

Я использовал в качестве основы пример
http://bonanzas.rinet.ru/DemoModalForm.zip

Сделал при нажатии на ОК Form.ModalResult:=1;
при на жатии на кнопку Отмена - Form.ModalResult:=0;

в процедуре вызова модальной формы делаю анализ
procedure TMainF.KOLMainFFormCreate(Sender: PObj);
begin
NewLoginF(LoginF, Applet);
LoginF.Form.ShowModal;
if LoginF.Form.ModalResult=0 then begin
LoginF.Form.Free;
Halt;
end;
LoginF.Form.Free;
end;

Но приложение все равно не закрывается. В чем причина ?

← →
DmiSb (2004-08-11 08:05) [3]

Вопрос снимается. Оказывается надо вот как :

procedure TMainF.KOLMainFFormCreate(Sender: PObj);
begin
NewLoginF(LoginF, Applet);
LoginF.Form.ShowModal;
if LoginF.Form.ModalResult<1 then begin
LoginF.Form.Free;
Halt;
end;
LoginF.Form.Free;
end;

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