Variable in einen Objektbezeichner einfügen

[Red_Wraith]

Hi !
Ich möchte gerne mehrere Panels mithilfe einer for Schleife abfragen, um locker 30 if-abfragen zu vermeiden

hatte mir das folgendermaßen gedacht:

Delphi-Quellcode:

procedure Mustermann.FormCreate(Sender: TObject);
var i: integer;
begin
  i := 6;
  If Panel(i).Caption = Testvariable then
  begin
  // ihrgendein vorgang
  end;
end;

Allerdings nörgelt er in der If-Zeile, bei Panel(i), was darauf schließen lässt, dass es so nicht funktioniert :D

Weiss einer, in wiefern ich den vorgang ändern muss, damit das funktioniert ?
Hab die For Schleife rausgelassen, weil sie nix zur sache tut ;) Will einfach nur wissen, wie ich die IF-Zeile richtig stelle.

Danke im vorraus bei der Hilfe bei dieser... "delikaten" Frage :D

[Luckie]

FindComponent ist dein Freund.

[s14]

Hallo,
versuch das ganze mal im FormShow Ereignis.

[Neutral General]

Oder erstell die Komponenten während der Laufzeit und dann hast du ein Array, das du dann so abfragen kannst :

Delphi-Quellcode:

var MeinePanels : Array[0..10] of TPanel;

procedure TForm1.Button1.Click(Sender : TObject);
var i : Integer;
begin
  for i := 0 to 10 do begin
   if MeinePanels[i].Caption = 'Keine Ahnung was da draufsteht' then begin
     // Mach was
   end;
  end;
end;

[Red_Wraith]

Hi !

Danke für die Hilfe, hat mir sehr geholfen :)