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

[Sibedir]

Спасибо, Filka. Пример работает на ура. Думаю Screen.OnActiveFormChange - то что нужно.

[Filka]

Пожалуйста.

[Sibedir]

А как быть, если "другой" программист захочет назначить другой обработчик события на Screen.OnActiveFormChange. Попробую через фильтрацию входящих сообщений от системы.
Если не сложно, подскажите, чтоб не искать долго, какое событие лучше отлавливать, чтобы срабатывал при активации новой формы.
Или как?

[Filka]

Можно чуть подробнее?

[Sibedir]

1. Ловим системное сообщение отвечающее за создание/активацию/появление форм
2. (???) Убедимся, что это первое появление формы
3. Проверяем состояние SPI_GETSNAPTODEFBUTTON, наличие default кнопок
4. Производим соответствующие манипуляции с курсором

[Filka]

Нужно чтобы только при первом появлении формы курсор перемещался, а при последующих нет?

[Sibedir]

Так точно.
Ну оно и понятно.

Пока в голову лезет только буфер для форм:
1. создаласть форма - положили её в кучу
2. активировалась форма

  если её нет в куче то
    ничё не делаем
  иначе
    обработали курсор
    убрали из кучи

Но при слове "буфер" чёт как-то перехачивается с этим заморачиваться. Хотя может и пойдет. В любом случае - теперь тока после НГ.
Всех с наступающим.

[Filka]

Так пойдёт?

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.Tag = 0) and (Form.ActiveControl is TButton) then
    begin
      Form.Tag := 1;
      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;

[Sibedir]

Не, Filka, Tag так использовать нельзя. Да и OnActive могут заменить.

[Sibedir]

Короче вот:

unit SnapToDefaultButtonUnit;

interface

implementation

uses
  System.SysUtils,
  System.Classes,
  Winapi.Windows;

var
  Hook: HHOOK = 0;
  FWndList: TList;

{ ToolKik }

function WndList: TList;
begin
  if FWndList = nil then FWndList := TList.Create;
  Result := FWndList;
end;

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

procedure SnapTo(Wnd: HWND);
var
  R: TRect;
  Pt: TPoint;
begin
  if GetWindowRect(Wnd, R) then
  begin
    Pt.X := R.Left;
    Pt.Y := R.Top;
    Inc(Pt.X, (R.Right - R.Left) div 2);
    Inc(Pt.Y, (R.Bottom - R.Top) div 2);
    SetCursorPos(Pt.X, Pt.Y);
  end;
end;

function FindDefButton (aWnd: HWND): HWND;
const
  BS_MASK = $000F;
var
  Buf: array[0..MAX_PATH - 1] of Char;
begin
  if (GetClassName (aWnd, Buf, Length(Buf)) <> 0) and (Buf = 'TButton') then
    if (GetWindowLong (aWnd, GWL_STYLE) and BS_DEFPUSHBUTTON) = BS_DEFPUSHBUTTON then
      Exit(aWnd);
  Result := FindWindowEx (aWnd, 0, nil, nil);
  while Result <> 0 do begin
    Result := FindDefButton (Result);
    if Result <> 0 then
      Exit;
  end;
end;

{ HookProc }

function HookProc (nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
var
  ActWnd: HWND;
  PMesStr: PCBTActivateStruct;
  i: Integer;
begin
  if nCode < 0 then
  begin
    Result := CallNextHookEx(Hook, nCode, wParam, lParam);
    Exit;
  end;

  case nCode of
    HCBT_CREATEWND: begin
      with WndList do begin
        i := IndexOf (Pointer(wParam));
        if i < 0 then
          Add (Pointer(wParam))
      end;
    end;
    HCBT_ACTIVATE: begin
      with WndList do begin
        i := IndexOf (Pointer(wParam));
        if i > -1 then begin
          Delete (i);
          if SnapToDefaultButton then
            SnapTo (FindDefButton(wParam));
        end;
      end;
    end;
  end;

  Result := CallNextHookEx(Hook, nCode, wParam, lParam);
end;

initialization

  if Hook = 0 then
    Hook := SetWindowsHookEx(WH_CBT, @HookProc, 0, GetCurrentThreadId);

finalization

  FreeAndNil(FWndList);
  if Hook <> 0 then
    UnhookWindowsHookEx(Hook);
  Hook := 0;

end.

Больше не могу. Код не без огрех (), но принцип ясен. На ShowMessage так и не заработало. Но мне стало пофиг.

P/S: Filka +5