[NaN43]

Доброго времени суток.

В 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 файле - создается, но реагировать на команды отказывается. Подскажите какова может быть причина и как это можно исправить.

[Страдалецъ]

А зачем же вы из примера выбросили ативацию диалога?

Код:

if dlg.ShowModal = mrOK

[NaN43]

Сообщение от Страдалецъ

А зачем же вы из примера выбросили активацию диалога?

Код:

if dlg.ShowModal = mrOK

Спасибо, брал уже переделанный код и не заметил.