TMenuItem öffnet sich nicht

[WoTo]

Hallo zusammen,
ich habe das Problem, daß wenn das OnClick-Ereignis aufgerufen wird, die Untermenupunkte nicht angezeigt werden.

Nachdem der Haupt-Menupunkt ausgewählt wurde, wird ein Formular geöffnet, wo eine Passwortabfrage erscheint. Ist das Passwort richtig, so sollen die Untermenupunkte enabled ansonsten disabled werden. Das funktioniert zwar, aber der Hauptmenupunkt wird nicht "ausgeklappt", so daß man die Untermenupunkte nicht anwählen kann.

Folgender Code wird im OnClick-Ereignis ausgeführt:

Delphi-Quellcode:

procedure TForm1.miSettingsClick(Sender: TObject);
begin
    if frmPassword.ShowModal = mrOK then
    begin
      if frmPassword.Password = 'HALLO' then
      begin
        miPLCSet.Enabled := true;
        miCreateIni.Enabled := true;
      end else
      begin
        miPLCSet.Enabled := false;
        miCreateIni.Enabled := false;
      end;
    end;
end;

Die Abfrage des Passwortes ist erst einmal eine Vereinfachung, dies wird noch geändert.

Hat jemand eine Idee ?

Gruß
Woto

[WoTo]

kurzer Nachtrag:

Sobald im OnClick-Ereignis eine Anweisung steht, wird das Menu nicht mehr geöffnet:

Delphi-Quellcode:

procedure TForm1.miSettingsClick(Sender: TObject); 
begin 
    ShowMessage('HALLO');
end;

Warum ist das so ????

[MacGuyver]

Moin,

die Passwortabfrage darf nicht im OnClick stattfinden. Sobald das Menü aufklappt und ein Menüpunkt Unterpunkte hat, kommt das Ereignis OnClick auf. In dem Fall wird dann das Menü geschlossen und OnClick ausgeführt. Falls das doch so ungefähr laufen soll, kannst du einfach ein Popupmenü öffnen lassen. Die Startposition ist ja nicht schwer zu berechnen.

Stefan

[WoTo]

Hallo Stefan,
vielen Dank für deine Idee.

Solch ein Workaround wollte ich eigentlich umgehen, aber ich galube, es bleibt mir nichts anderes übrig.

Bis denne,
Woto

[CCRDude]

Popupmenüs haben da ein OnPopup, schade eigentlich daß das TMainMenu fehlt... aber laut Hilfe dürfte OnUpdate des Hauptmenüs genau für so etwas da sein (falls man das Ereignis in einer Action hat, die mit dem TMenuItem verknüpft ist, was sowieso eleganter sein dürfte als den Code direkt auf das miSettingsClick zu legen)?

[WoTo]

Normalerweise mach ich das auch immer mit einer TAction.

Werde ich auch noch machen !

Nur jetzt ärgere ich mich wieder mit RAVE-Report.

Gruß,
Woto