Tips (1541)

Tip Bewertung (8):

{
  To show a from/window with an active titlebar, send a WM_NCACTIVATE message to it.

  Um eine Form mit aktiver Titelleiste anzuzeigen, kann ihr eine WM_NCACTIVATE
  Nachricht geschickt werden.
}

procedure TForm2.FormActivate(Sender: TObject);
begin
  SendMessage(Application.MainForm.Handle, WM_NCACTIVATE, Boolean(True), 0);
end;