dynamische Labels in andere Form 'laden'-> Form1.fLabel[cbv]

[colo]

Hi.

Ich habe dynamische Bezeichner für meine Labels, welche ich mit FindComponent anspreche.

In Unit1 habe ich fLabel bei den gloabalen Variablen definiert.

Dinge in Unit2 wie..

Delphi-Quellcode:

fLabel[gez] := TLabel(FindComponent('name' + IntToStr(gez))); 
               fLabel[gez].Caption := 'test';

funktionieren auch. Doch nun habe ich in Unit2(->Form2) eine Schleife, die Komponenten aus Form1 suchen soll und denen dann die Werte der Labels von Form2 zuweisen soll (Hier im Beispiel ein einfacher Text).

Delphi-Quellcode:

for cbv:=1 to 5 do
     begin
          fCheckBox[cbv] := TCheckBox(FindComponent('CheckBoxKT' + IntToStr(cbv+100)));

          if fCheckBox[cbv].Checked = true then
          begin
               
Hauptform.fLabel[cbv] := TLabel(FindComponent('meatkpt' + IntToStr(cbv+100))); 
Hauptform.fLabel[cbv].Caption := 'testtext bzw. Daten aus Labels von Form2';
          end;
     end;

Ich hoffe es ist erstmal richtig, dass ich fLabel in Unit1(der Haupt Unit) deklariert habe bei den globalen variablen. Hatte es auch schon bei Public, aber ging nich so ganz.
Das eigentliche Problem ist nun eigentlich, dass es anscheinend nicht die Labels aus Form1 findet.
Ich hoffe mein Beitrag is verständlich und dass mir jemand helfen kann.

Gruß colo

[roderich]

hallo colo,

verwende

Delphi-Quellcode:

TForm1.FindComponent

mit Deinem Code findest du nur die Komponenten von TForm2.

Roderich

[roderich]

sorry, zu schnell getippt... :roll:

natürlich

Delphi-Quellcode:

Form1.FindComponent

ohne das 'T' vorn

Gruß
Roderich

[colo]

Vielen Dank. Funktioniert ;)