Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Label.caption := checked RadioButton WIE?


Hackbert - So 20.03.05 22:40
Titel: Label.caption := checked RadioButton WIE?
Hi zusammen ich habe folgendes Problem.

Habe ein Programm mit 3 RadioButtons ( Radiobutton 1-3) und ein Label (label1).
Wenn ich nun auf ein radiobutton klicke, soll automatisch das label den namen bekommen, wie der RadioButton...
Meine RadioButtons haben verschiedene Namen....
Hoffe ihr versteht was ich meine.. habe als Anhang das Project geschickt.

habe mir gedacht für procedure OnClick :


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
 
procedure TForm1.test(Sender: TObject);
var i: integer;
begin
label1.caption:=Radiobutton1.caption;
for i:=1 to 3 do
label1.Caption:=TRadioButton((FindComponent('RadioButton'+intToStr(i))).checked=true).caption;
end;



Aber da ist was falsch.. habe kein SKILL.
Der sagt Undefinierter Bezwichner 'checked'


Wenn ich im falschen Forum gepostet habe, sry... bin neu hier....


Jailbird - So 20.03.05 22:55
vergib allen RadioButtons die gleiche Prozedur OnClick. Dann folgender Code:


Quelltext 
1:
 
Label1.Caption := TRadioButton(Sender).Name;


Hackbert - So 20.03.05 23:46
thx das klappt, aber lasst mal andere situation durcharbeiten....:

sagen wir mal irgend ein RadioButton hat von schon checked=true...
was denn?

er soll die suchen, die checked ist und das label so umbenennen...


StefanH - Mo 21.03.05 10:42

Delphi-Quelltext 
1:
2:
3:
 
for i:=1 to 3 do
if TRadioButton(FindComponent('RadioButton'+intToStr(i))).checked=true then
  label1.Caption:= TRadioButton(FindComponent('RadioButton'+intToStr(i))).Caption


Jailbird - Mo 21.03.05 11:09
musst allerdings immer noch die bereits vorhandene caption "dazuzählen"


Delphi-Quelltext 
1:
 
label1.caption := label1.caption + zeuchs von StefanH


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!