...show a second form with a active title bar?

Author: Thomas Stutz

Category: Forms

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

 

printed from
www.swissdelphicenter.ch
developers knowledge base