MainMenu mit Check Item Auswerteproblem

[DL3AD]

Hallo,
habe im Form eine MainMenu gesetzt mit einem Item als CheckBox.
Die Checkbox kann ich durch Klick ein- und ausschalten.
Nun habe ich aber ein Problem mit der Auswertung der Checkung.
Habe dem Meniueitem ein Ckickereigniss verpasst und wollte nun die Auswertung testen.

Code: Alles auswählen

procedure TForm1.MenuItem1Click(Sender: TObject);
begin
  Memo1.Append(BoolToStr(MenuItem1.Checked,'ON','OFF'));
end;  

Je nach Vorbelegung wird im Memo immer das selbe angezeigt.
Die Checkung im Menueitem ändert sich optisch aber ordnungsgemäß.

Was mache ich falsch ?

Frank

[Garfield]

Das scheint kein Problem mit der Auswertung von "MenuItem1.Checked" zu sein. Denn der Wert ändert sich nicht.

Interessanterweise wird bei mir die Checkbox nur angezeigt, wenn MenuItem1.Checked beim Erstellen des Form auf True gesetzt ist.

[wp_xyz]

Funktioniert bei mir einwandfrei (Windows 11; auf Linux/gtk2/gtk3/qt5 funktioniert es auch...).

der Wert ändert sich nicht.

Das passiert, wenn das AutoCheck des MenuItems auf seinem Standardwert, false, steht und du alternativ keinen Code geschrieben hast, das Checked umzuschalten. Am einfachsten: MenuItem.Autocheck := true

[Garfield]

Code: Alles auswählen

procedure TForm1.MenuItem1Click(Sender: TObject);
begin
  Memo1.Append(BoolToStr(MenuItem1.Checked,'ON','OFF'));
end;  

Code: Alles auswählen

procedure TForm1.MenuItem2Click(Sender: TObject);
begin
  if MenuItem2.Checked then
    Memo1.Lines.Add('ON')
  else
    Memo1.Lines.Add('OFF');
end;

MenuItem1 und MenuItem2 ist irgendwie nicht das selbe. Könnte aber die Lösung sein.