Mainmenü

[Störtebeker]

Habe folgendes Problem: Ich möchte einem Eintrag in meinem Maninmenü eine Check-Funktion zuweisen.

mit folgendem code:

Delphi-Quellcode:

if HTML2.checked=true then Toolbar2.visible:=true;
if HTML2.checked=false then Toolbar2.visible:=false;

HTML2 ist der Name für den Eintrag des Mainmenüs. Folgendes passiert, wenn ich das Programm starte: Ich gehe auf den Eintrag HTML, klicke drauf und die Toolbar verschwindet. Klicke ich nochmal drauf, kommt sie aber nicht wieder. Stelle ich beim Mainmenüeintrag HTML2 im OI die Eigenschaft Checked auf True, passiert überhaupt nichts, wenn ich dann im Programm draufklicke.

Was muss ich anders machen?

[mkinzler]

1. Besser so
Toolbar2.visible:=HTML2.checked; BTW. Boolean-Eigenschaften brauchst du nicht auf true überprüfen, da sie ja schon einen Wahrheitwert haben:

If <Eigenschaft> bzw. if not <Eigenschaft>

[Jelly]

Setzt du auch im OnClick Ereignis deines Menüitems die Checked Eigenschaft vom Menüeintrag selbst...

Ich würd das so lösen, im OnClick Ereignis:

Delphi-Quellcode:

procedure TForm1.MenuItem1Click(Sender: TObject);
begin
     (sender as TMenuItem).Checked := not ((sender as TMenuItem).Checked) ;
     toolbar2.visible := (sender as TMenuItem).Checked;
end;

[Störtebeker]

Danke, jetzt gehts.

[Tommy1988]

mir hat damals jemand gesagt:

Zitat:

Niemals auf True oder False "checken"
So ist es besser:

Delphi-Quellcode:

if CheckBox.Checked then
 begin
  // Anweisungen
 end else
  begin
   // Anweisungen
  end;
end;

[DeddyH]

Zitat von mkinzler:

Toolbar2.visible:=HTML2.checked;

Besser und kürzer geht' s doch nicht mehr, oder?

[patti]

@Tommy1988: da ist ein end; zu viel (das letzte)

P@Tti