|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.542 Beiträge
Delphi 11 Alexandria
|
Re: text und zähler im label
20. Apr 2008, 20:20
Delphi-Quellcode:
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked then
begin
inc(counter);
label1.Caption := inttostr(counter);
Label10.Caption := Format('Text %dx',[counter]);
end;
end;
So in der Art.
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
|