VPF::В MessageDLG сделать активной по умолчанию [NO]

Данкинг

Дата 9.2.2009, 16:08 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130

Есть две кнопки: YES и NO. Как установить фокус на NO при открытии MessageDLG ?

--------------------

There's nothing left but silent epitaphs.

Rrader

Дата 9.2.2009, 16:41 (ссылка)

(голосов:1)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191

1)Подключить QDialogs.pas и заюзать оттуда усовершенствованную MessageDlg smile

2)Использовать внешнюю силу для смены Default Button - доп. поток или Timer smile

3) Отказаться от MessageDlg и перейти на MessageBox smile

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  if MessageBox(Handle, 'Close?', 'Confirmation', MB_YESNO or
    MB_ICONINFORMATION or MB_DEFBUTTON2) = IDYES then
    Close;
end;

Это сообщение отредактировал(а) Rrader - 9.2.2009, 16:46

--------------------

Let's do this quickly!
Rest in peace, Vit!

Данкинг

Дата 9.2.2009, 16:51 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130

Rrader, спасибо, сейчас попробуем. smile

--------------------

There's nothing left but silent epitaphs.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »