Wie kann man das MainMenue sperren?

[daywalker-dj-k]

hallo,
ich möchte den anwender dazu bringen eine bestimmte aktion zu ende zu führen. aus diesem grund darf er nicht über das mainmenue in eine andere funktion gelange.

wie kann ich das mainmenu kurzzeitig sperren und dann wieder freigeben? welche anderen möglichkeiten gäbe es?

danke
mfg
thorsten

[Bitworm]

Hi !

Du könntest z.B. in einer Schleife über alle Items des Menus laufen und bei denen
Enabled := False setzen, um diese zu sperren.

[daywalker-dj-k]

hallo,
das hört sich ja schon gut an. wie kann ich das denn mit einer schleife machen? die müsste ich doch eigentlich mit den namen ansprechen, oder? oder kann ich die namen irgendwie automatisch auslesen, damit ich nicht jedes mal von hand etwas hinzufügen muss, wenn ein neuer menüpunkt dazukommt.

danke schonmal
mfg
thorsten

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