Einzelnen Beitrag anzeigen

R2009

Registriert seit: 9. Mär 2009
Ort: Heidelberg
440 Beiträge
 
Delphi 2007 Professional
 
#3

Re: Wie bekomme ich eine Liste aller Steuerelement einer Tfo

  Alt 24. Feb 2010, 11: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.
  Mit Zitat antworten Zitat