...show the mainform as a dialog with a mainmenu?

Author: Opa

Category: Forms

(*
--- english -------------------------------------------------------------------
If you want to show your mainform as a dialog (setting BorderStyle := bsDialog)
and don't want to miss your main menu...
--- german --------------------------------------------------------------------
Wer die Hauptform auf BorderStyle := bsDialog gesetzt hat und
dennoch ein TMainMenu haben möchte kann das Handle von TMainMenu nachträglich
wieder aktivieren.
*)

procedure TMain.FormCreate(Sender: TObject);
begin
  
//...
  
Windows.SetMenu(Handle, MainMenu1.Handle);
end;

 

printed from
www.swissdelphicenter.ch
developers knowledge base