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