Wie kann man das MainMenue sperren?

[Sharky]

Hai thorsten,

so sollte es gehen (ungetestet):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  ndx : Integer;
begin
  for ndx := 0 to Pred(MainMenu1.Items.Count) do
  begin
    MainMenu1.Items[ndx].Enabled := False;
  end;
end;