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

Непонятная ошибка при создании формы   Найти похожие ветки 

← →
h0use ©   (2003-12-10 16:49) [0]

СОздаю форму в теле программы:

egin
Result:=False;
Application.CreateForm(TPasswordDlg, PasswordDlg);
try
if Sets.flSaveLastUser then PasswordDlg.edLogin.Text:=BAConn.Login; <--- (1)
PasswordDlg.ShowModal;
if PasswordDlg.ModalResult=mrOK then
begin
BAConn.Login:=PasswordDlg.edLogin.Text; <--- (2)
BAConn.Password:=PasswordDlg.edPassword.Text;
end
else Exit;
finally
PasswordDlg.Release;// free resources
end; // try/finally

Первый раз все работает нормально, но при повторном вхождении в тело процедуры приводит к виалейшену либо в (1), либо в (2) в зависимости от флага Sets.flSaveLastUser. Причем все остальные аналогично создаваемые формы работают. В чем может быть бага?

---

← →
h0use ©   (2003-12-10 17:31) [1]

Разобрался...когда много кода легко в ветвлениях запутаться :)

---

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

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



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