Использование WM_NCACTIVATE

[ctm]

в Delphi при исполнении следующего видны два окна, оба с визуально-активными заголовками:

Код: Выделить всё

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Show();
  SendMessage(Handle, WM_NCACTIVATE, 1, 0);
end;

в лазарусе видно оба окна, но визуально-активное только одно:

Код: Выделить всё

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Show();
  lclintf.SendMessage(Handle, LM_NCACTIVATE, 1, 0);
end;

Lazarus 0.9.29, WInXPSP3
пробовал сборки QT, Win32.

Как добиться эффекта заголовков окна как в примере в Delphi?

[alexs]

А зачем делать ДВА активных окна? Чтобы запуть пользователя? У человека только одна точка внимания.

[ctm]

второе окно - выпадающая форма.
у него нету Caption'а, но некрасиво, когда основное окно визуально теряет фокус.