Checkboxen

[sui]

Moin,

kann mir vielleicht jemand kurz und schmerzlos zeigen,
wie man mit 2 CheckBoxen, einem Label und nem Button
über die CheckBoxen z.B. 2 Strings verbunden ausgeben kann
wie Hallo + Welt = Hallo Welt.

Ich komm da einfach nicht hinter http://www.cheesebuerger.de/smilies/verbluefft/34.gif

[S2B]

Was willst du denn mit den CheckBoxen einstellen?

Also 2 Strings kann man einfach mit nem "+" zusammensetzen, wenn du das meinst...

[Mirilin]

sui

Die Property Checked der Checkbox zeigt Dir an, ob der Haken da ist.
Im OnClick des Buttons setzt Du dann den String entsprechend der Werte von Checked den String zusammen und zeigst ihn im Label an.

Oder hab ich Dich jetzt falsch verstanden?


mfg Tobias

[Klaus-B.Schmidt]

hi, ich versteh nciht, wie du das meinst, zwei strings kannst du einfach mit
ausgabestring:=teilstring1+' '+teilstring2; falls in einem string schon ein leerzeichen ist, gehts so :
ausgabestring:=teilstring1+teilstring2; MfG
Klaus

[sui]

Nö ich meinte das so, nur damit ich mal einen gewissen Überblich über
das Ding bekomme:

Die eine Box bekommt den Text 'Hallo'
und die andere 'Welt'.

Wenn ich jetzt beide Boxen markiere, kommen auf Button Hallo Welt ins
Label rein. Wenn ich die erste anklicke nur Hallo.

Nur damit ichs mal raffe...

[sui]

Das mit dem + weiss ich doch, ich wills halt mit 2 CheckBoxen haben.

[Mirilin]

Delphi-Quellcode:

procedure TMainForm.ButtonClick(Sender: TObject);
var
  s : String;
begin
  if CheckBox1.Checked then s := CheckBox1.Caption;
  if CheckBox2.Checked then s := s + CheckBox2.Caption;
  LabelOut.Caption := s;
end;

mfg Tobias

[S2B]

Delphi-Quellcode:

  if CheckBox1.Checked=true then 
  Label1.Caption:=CheckBox1.Caption;
  if CheckBox2.Checked=true then 
  Label1.Caption:=CheckBox2.Caption;
  if (CheckBox1.Checked=true) and (CheckBox2.Checked=true) then 
  Label1.Caption:=CheckBox1.Caption + ' ' + CheckBox2.Caption;

Das wäre eine Möglichkeit!

[sui]

Cool, und die Variablen? Am besten im Array, das wär fett

[Klaus-B.Schmidt]

dann machst du so :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 labelcpt:string;
begin
 if CheckBox1.checked then
 labelcpt:=CheckBox1.caption;

 if CheckBox2.checked then
 labelcpt:=labelcpt+CheckBox1.caption;
end;