Как заставить мышь реагировать на настройку "На кнопке, выбираемой по умолчанию"

[Sibedir]

Установил в системе в настройках мыши флаг: "На кнопке, выбираемой по умолчанию"
Безымянный.jpg
Но в моих прогах на делфи это не работает. Пробовал:
- Show
- ShowModal
- тоже для разных BorderStyle
- MessageDlg
- ShowMessage (ну понятно что зря, но мало-ли)
...

Короче, никак.
А вот с MessageBox всё работает (еще бы). Но мне МАЛА меседжбокса. Хочу MessageDlgPosHelp и в своих окнах.

Вопрос: Как заставить работать позиционирование мыши в диалоговых окнах, если оно включино?

[Stilet]

ИМХО на VCLных диалогах Делфи это не сработает в принципе...
Другое дело, если ты сделаешь свою форму, на нее поместишь кнопку и задашь ее как кнопку по умолчанию. Может и сработает.

[Sibedir]

Работать будет, я так понял, если на API.
Я могу ручками, но как узнать, что флаг в системы установлен?

[FaTaL]

Я тоже так думаю, что Microsoft не заботился и не собирается о VCL. Есть у мелкософта родное диалоговое окно MessageBox, вот на него и работает эта настройка Windows.

Сообщение от Sibedir

но как узнать, что флаг в системы установлен?

RegMon, не?

[Dvoishnik]

Сообщение от FaTaL

RegMon, не?

и как это поможет? я профан в этом деле, но тема интересна.

[Vapaamies]

У нужных кнопок свойство Default = True стоит?

[Sibedir]

Да. Одна нопка всегда дефаулт. Но тут дело не только в кнопке. Видимо в api есть специальный механизм вызова диалогов. Буду енто делать сам.

[FaTaL]

Сообщение от Dvoishnik

и как это поможет? я профан в этом деле, но тема интересна.

Проверить какой ключ отвечает за эту опцию. И если она храниться в реестре, то сойдёт для проверки.

[northener]

Сообщение от Sibedir

Хочу MessageDlgPosHelp

А вот тут странно.
Сия функция не от Дельфи, а от Винды. Почему в ней не работает тот флажок непонятно.

[Filka]

MessageDlgPosHelp - это обёртка над CreateMessageDialog. Это к Винде не относится.

type
  TForm1 = class(TForm)
    //...
    procedure FormCreate(Sender: TObject);
  private
    procedure OnActiveFormChange(Sender: TObject);
  end;

implementation

//...

function SnapToDefaultButton: Boolean;
var
  Snap: BOOL;
begin
  Result := SystemParametersInfo(SPI_GETSNAPTODEFBUTTON, 0, @Snap, 0) and Snap;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Screen.OnActiveFormChange := OnActiveFormChange;
end;

procedure TForm1.OnActiveFormChange(Sender: TObject);
var
  Form: TCustomForm;
  Pt: TPoint;
begin
  Form := Screen.ActiveCustomForm;
  if (Form <> nil) and (Form.ActiveControl <> nil) then
    if SnapToDefaultButton and (Form.ActiveControl is TButton) then
    begin
      Pt := Form.ActiveControl.ClientOrigin;
      Inc(Pt.X, Form.ActiveControl.ClientWidth div 2);
      Inc(Pt.Y, Form.ActiveControl.ClientHeight div 2);
      Mouse.CursorPos := Pt;
    end;
end;

?