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