Доброго времени суток.
В Delphi мной была написана простенькая программа для работы с базой данных InterBase
(компоненты IBX, расположены на ДатаМодуле, IBDataBase1.Prompt=False). Я хочу заменить стандартное диалоговое окно аутентификации на собственное. Я нашел нужный мне кусок кода и после некоторых манипуляций компиляция все таки прошла.
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | 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 файле - создается, но реагировать на команды отказывается. Подскажите какова может быть причина и как это можно исправить.