|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Замена диалога запроса имени пользователя и пароля
Доброго времени суток.
В 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 файле - создается, но реагировать на команды отказывается. Подскажите какова может быть причина и как это можно исправить. |