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

(*
--- 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