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:

markieren

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.

mir hat damals jemand gesagt:

Zitat:

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

markieren

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

Mainmenü

Mainmenü

Re: Mainmenü

Re: Mainmenü

Re: Mainmenü

Re: Mainmenü

Re: Mainmenü

Re: Mainmenü

Forumregeln

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.851 Beiträge Delphi 11 Alexandria	#2 Re: Mainmenü 4. Aug 2007, 13:08 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> Markus Kinzler
	Zitat

Störtebeker Registriert seit: 9. Jul 2007 398 Beiträge	#4 Re: Mainmenü 4. Aug 2007, 13:17 Danke, jetzt gehts. "And he piled upon the whale´s white hump - a sum of all the rage and hate felt by his whole race. If his chest had been a cannon, he would have shot his heart upon it."
	Zitat

Tommy1988 (Gast) n/a Beiträge	#5 Re: Mainmenü 4. Aug 2007, 16:14 mir hat damals jemand gesagt: Zitat: Niemals auf True oder False "checken" So ist es besser: markieren Delphi-Quellcode: if CheckBox.Checked then begin // Anweisungen end else begin // Anweisungen end; end;
	Zitat

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.542 Beiträge Delphi 11 Alexandria	#6 Re: Mainmenü 4. Aug 2007, 18:10 Zitat von mkinzler: Toolbar2.visible:=HTML2.checked; Besser und kürzer geht' s doch nicht mehr, oder? Detlef *"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen."* (Albert Einstein) Dieser Tag ist längst gekommen
	Zitat

patti Registriert seit: 20. Okt 2004 Ort: Mittelfranken 665 Beiträge Turbo Delphi für Win32	#7 Re: Mainmenü 4. Aug 2007, 20:18 @Tommy1988: da ist ein end; zu viel (das letzte) P@Tti Patrick Kreutzer [Informatik-Student im 4. Semester] http://www.patti-k.de/
	Zitat