Доброго времени суток.
В Delphi мной была написана простенькая программа для работы с базой данных InterBase
(компоненты IBX, расположены на ДатаМодуле, IBDataBase1.Prompt=False). Я хочу заменить стандартное диалоговое окно аутентификации на собственное. Я нашел нужный мне кусок кода и после некоторых манипуляций компиляция все таки прошла.
Код:
procedure TDataModule1.IBDatabase1Login(Database: TIBDatabase;
LoginParams: TStrings);
var
dlg: TDBLoginDialog;
begin
dlg:=TDBLoginDialog.Create(Application);
if dlg.ModalResult = mrOK then
with LoginParams do
begin
Values['USER_NAME'] := DBLoginDialog.Edit1.Text;
Values['PASSWORD'] := BDLoginDialog.Edit2.Text;
end;
dlg.Free;
end;
Но диалоговое окно не создается, пробовал прописать его непосредственно в .dpr файле - создается, но реагировать на команды отказывается. Подскажите какова может быть причина и как это можно исправить.