Einzelnen Beitrag anzeigen

shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#4

Re: TFrames auf Scrollbar --> FindComponent

  Alt 13. Jul 2005, 18:12
Beim Erzeugen der Frames gibst du als Owner die Komponente Scrollbox1 an.
Anzeige := TFrameAnzeige.Create(ScrollBox1); Also müsstest du auch die Komponente als Startpunkt für Findcomponent verwenden.
Ausserdem kann man du Verwenden der lokalen Variablen compi & frameanzeige viel bequemer arbeiten.
Delphi-Quellcode:
var i : integer;
  compi : TComponent;
  frameanzeige : TFrameAnzeige
begin
    // Anzahl_neu ist der Strtoint-Wert der dem Namen angehängt wird
    for i := 0 to Anzahl_Neu do
    begin
        compi := ScrollBox1.FindComponent('Anzeige' + IntToStr(i));
        if Assigned(compi) then
        begin
           frameanzeige := compi as TFrameAnzeige;
             // ... nur Positionen lesen und neu setzen - hier unwichtig...
        end;
   end;
end;
Andreas
  Mit Zitat antworten Zitat