Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**IngoD7**

Ich will auch, ich will auch ...

Prozedur:

Delphi-Quellcode:

			procedure Toggle(aBox: TCheckBox);

begin

   if aBox is TCheckBox then

      aBox.Checked := not aBox.Checked;

end;

...

Toggle(DLED1);

Beschränkt auf TCheckBox natürlich.

IngoD7 Registriert seit: 17. Feb 2004 464 Beiträge Delphi 7 Enterprise	#11 Re: Gibt es einen Toggle Befehl ? 6. Mär 2007, 09:10 Ich will auch, ich will auch ... Prozedur: markieren Delphi-Quellcode: procedure Toggle(aBox: TCheckBox); begin if aBox is TCheckBox then aBox.Checked := not aBox.Checked; end; ... Toggle(DLED1); Beschränkt auf TCheckBox natürlich.
	Zitat