Registriert seit: 9. Mär 2009
Ort: Heidelberg
440 Beiträge
Delphi 2007 Professional
|
Re: Wie bekomme ich eine Liste aller Steuerelement einer Tfo
24. Feb 2010, 12:42
Hi,
danke Bernhard, Problem gelöst(mit deinem Ansatz):
Delphi-Quellcode:
For m:=0 to (sender as Tform).ComponentCount-1 do
begin
name:=(sender as Tform).Components[m]. Name;
sql:=' select KEY, NAME, '+language+' from language where KEY='+chr(39)+li+chr(39)+' and NAME='+chr(39)+ name+chr(39);
tab := db.GetTable( sql);
if (sender as Tform).Components[m] is Tbutton then
begin
(((sender as Tform).Components[m]) as Tbutton).caption:=tab.FieldAsString(2);
end;
if (sender as Tform).Components[m] is Tcheckbox then
begin
(((sender as Tform).Components[m]) as Tcheckbox).caption:=tab.FieldAsString(2);
end;
.......
.......
Vielen Dank
Rainer
Rainer Unger Mein Profil:
Studium Allgemeine Elektrotechnik TH Darmstadt
Entwicklung von Tools für die Rundsteuer und Zählertechnik.
uP's Atmel Prozessoren (ATmega16,32,88...) in C und Assembler.
|