MainMenu1 Visible := false; ??

[Horst M.Fußhöller]

wie kann ich ein MainMenu1 Visible := false; setzen ? grüße horst

[Elmar Herzog]

Hallo,<pre>
MainMenu1.Visible := False;
</pre&gt

[Horst M.Fußhöller]

ne deins funktioniert nicht hab schon was gefunden...schau mal..... SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE)
and not WS_CAPTION);
ClientHeight:=Height

[Horst M.Fußhöller]

ne war falsch so: Form1.Menu := nil

[Benjamin Piorczig]

So hab ich das mal in einem Programm von mir gelöst...<br>
<br>
<b>type</b><br>
TMainForm = class(TForm)<br>
...<br>
mmenu: TMainMenu;<br>
procedure ProgEnde(Sender: TObject);<br>
<br>
<b>var</b><br>
XMenu : TMenuItem;<br>
XMenuBeenden : TMenuItem;<br>
<br>
<b>procedure ProgEnde(Sender: TObject);</b><br>
begin<br>
Application.terminate;<br>
end;<br>
<br>
<b>procedure TMainForm.SetUpMenu;</b><br>
begin<br>
XMenu := TMenuItem.Create (MainForm.mmenu);<br>
XMenu.Caption := 'Spiel';<br>
XMenuBeenden := TMenuItem.Create (MainForm.mmenu);<br>
XMenuBeenden.caption := 'Programm Beenden';<br> XMenuBeenden.onclick := ProgEnde;<br>
XMenu.Insert (0,XMenuBeendeN);<br>
end;<br>
<br>
<b>procedure TMainForm.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);</b><br>
begin<br>
case key of<br>
VK_Escape: begin<br>
if mmenu.items <> nil then<br>
mmenu.Items.clear;<br>
else<br>
mmenu.Items.Add (XMenu); <br>
end;<br>
end;<br>
end;<br&gt

[Horst M.Fußhöller]

Vielen Dank...grüße Hors