Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**Yheeky**

Hi,

meinst du das?

Code:

			procedure TForm1.CheckBoxClick(Sender: TObject);

begin

if TCheckBox(Sender).Checked = True then

Memo1.Lines.Add(TCheckBox(Sender).Caption);

end;

Du musst jeder betreffenden CheckBox bei OnClick diese Procedure zuweisen, dann klappt´s...

Gruß Yheeky

Yheeky Registriert seit: 7. Jun 2002 1.339 Beiträge	#2 13. Nov 2002, 11:13 Hi, meinst du das? markieren Code: procedure TForm1.CheckBoxClick(Sender: TObject); begin if TCheckBox(Sender).Checked = True then Memo1.Lines.Add(TCheckBox(Sender).Caption); end; Du musst jeder betreffenden CheckBox bei OnClick diese Procedure zuweisen, dann klappt´s... Gruß Yheeky
	Zitat