Problem mit FindComponent

[malo]

Hi!

Und zwar will ich mit FindComponent mehrere Labels sichtbar machen, die einen ähnlichen Namen haben. Klappt normalerweise auch ziemlich gut.

Nur jetzt will ich das ganze in einer Procedure ausführen, die NICHT in Form1 deklariert wurde. Da muss man ja bekanntlich, um Variablen / Procedures / Objekte von Form1 anzusprechen, die auch mit "Form1.xxx" ansprechen. Nur weiß ich nicht, wie ich das mit FindComponent verknüpfen soll :?

Mein erster Versuch:

Delphi-Quellcode:

  For i := 1 to 4 do
    Form1.(FindComponent('Prisma' + IntToStr(i)) as TLabel).Hide;

Hat jemand eine andere Idee? :?

[alcaeus]

Hallo malo,

gib den Parent als Parameter mit:

Delphi-Quellcode:

function FindeKomponente(Parent: TComponent; CompName: String): TComponent;
begin
  Result := Parent.FindComponent(CompName);
end;

Sollte funktionieren, ist aber (wie immer ;)) ungetestet

Greetz
alcaeus

[malo]

Ah, vielen Dank!

Sollte jetzt klappen... noch nicht wirklich gestetet, aber der Compiler akzeptiert es :)

[ReDoX]

Mach es odch einfach so

Delphi-Quellcode:

var i : Integer;
begin
For i := 1 to 4 do
    (Form1.FindComponent('Label' + IntToStr(i)) as TLabel).Hide;
end;

Mfg ReDoX

[alcaeus]

Hallo Redox,

aber wenn ich eine zweite Instanz von TForm1 erstelle und diese in einer Variable namens "MeineForm" abspeichere, knallts u.U.
Evtl. würde auch ein self.FindComponent helfen, aber ich finde die allgemeine Lösung doch sehr schön ;)

Greetz
alcaeus