Forms Delphi

{
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;