Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by shmia,
13. Jul 2005
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.
var i : integer;
compi : TComponent;
frameanzeige : TFrameAnzeige
begin
//...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by shmia,
13. Jul 2005
procedure TMainForm.Neues_Blatt(Sender: TObject);
// Hier schreibst du 'Frame'
Child.name := 'Frame' + IntToStr(Anzahl_Neu);
...
// und hier wird nach 'Anzeige' gesucht !!!!
if (FindComponent('Anzeige' + IntToStr(i)) as TFrameAnzeige) <> nil then
with (FindComponent('Anzeige' + IntToStr(i)) as TFrameAnzeige) do begin