FindComponent in anderer Unit

[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