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