FindComponent in anderer Unit

[Andreas L.]

Zitat von Hawkeye219:

Hallo onlinehome,

Zitat von onlinehome:

Delphi-Quellcode:

TPanel.Create(Parent).Name:=Name;  // <-- Instanz erzeugen, aber Zeiger nicht speichern?
with TPanel(FindComponent(Name)) do
  begin
   Parent:=Parent;  // <--- das kann nicht funktionieren
   Width:=Width;    //      woher soll der Compiler wissen,
   Height:=Height;  //      ob du den Prozedurparameter
   Left:=Left;      //      oder die Eigenschaft meinst?
   Top:=Top;        //
   Color:=clWhite;
   Caption:='';
  end;

Ich vermute, du möchtest so etwas erreichen:

Delphi-Quellcode:

procedure CreatePanelWithScrollBox (aParent: TWinControl;
                                    aName: string;
                                    aLeft, aTop, aWidth, aHeight: Integer);
var
  lPanel     : TPanel;
  lScrollBox : TScrollBox;
begin
  // Panel erzeugen
  lPanel := TPanel.Create(aParent);
  with lPanel do
    begin
      Name := aName;
      Parent := aParent;
      SetBounds (aLeft, aTop, aWidth, aHeight);
      Color := clWhite;
      Caption := '';
    end;
  // ScrollBox erzeugen
  lScrollBox := TScrollBox.Create(lPanel);
  with lScrollBox do
    begin
      Name := aName + 'page';
      Parent := lPanel;
      Align := alClient;
      Color := clWhite;
    end;
end;

Ich habe den Code nicht getestet, Fehler sind möglich.

Gruß Hawkeye

Ja, so hatte ich das auch schonmal. Keine Ahnung wieso ich diese Lösung damals nicht mehr verwendet habe. Mein Source ist shcon etwas älter Danke an alle. Schönen Sonntag Abend noch.