|
|
Регистрация | << Правила форума >> | 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 файле - создается, но реагировать на команды отказывается. Подскажите какова может быть причина и как это можно исправить. |
#2
|
||||
|
||||
А зачем же вы из примера выбросили ативацию диалога?
Код:
if dlg.ShowModal = mrOK Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
Этот пользователь сказал Спасибо Страдалецъ за это полезное сообщение: | ||
NaN43 (24.05.2014)
|
#3
|
|||
|
|||
Цитата:
Спасибо, брал уже переделанный код и не заметил. |