Скачать: CL | DM;

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;

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c