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

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

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

LoginDialog ? [Delphi, Windows]

DmiSb © (2004-08-10 14:06:00)
Уважаемые мастера, дайте совет новичку в КОЛ. При создании гланой формы программы вызывается создание диалога на подключение к базе, вот так :

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

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

DmiSb (2004-08-11 08:05:00) [1]
Вопрос снимается. Оказывается надо вот как :

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;

DmiSb (2004-08-11 07:58:00) [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;

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

Vladimir Kladov (2004-08-10 16:26:00) [3]
встречный вопрос: а как вы использовали ModalResult ?
Я бы сделал так:

if LoginF.Form.ShowModal < 0 then Halt;

А вы?

Наверх

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