FindComponent in anderer Unit

[mkinzler]

Zitat:

Was ist casten?

TPanel(), TWinControl()

Zitat:

Was heißt Form1 instantieert?

Wurde schon einen Instanz der Klasse TForm1 erzeugt?

Warum brichst du den Cast und den Zugriff nicht auf:

Delphi-Quellcode:

if wParent.FindComponent(sName) <> nil then 
    Parent:=TWinControl(wParent.FindComponent(sName));

[Andreas L.]

Zitat von mkinzler:

Zitat:

Was heißt Form1 instantieert?

Wurde schon einen Instanz der Klasse TForm1 erzeugt?

Warum brichst du den Cast und den Zugriff nicht auf:

Delphi-Quellcode:

if wParent.FindComponent(sName) <> nil then 
    Parent:=TWinControl(wParent.FindComponent(sName));

Instanz wurde erzeugt. Ich habe deinen Code verwendet, die AV komt trotzdem. Warum?

[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

[3_of_8]

Eine AV IST eine Exception.

[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.

[MacGuyver]

Moin Leute,

ich musste mich gerade mit dem Thema auseinandersetzen.

Also:
Der Owner ist die Form. Ganz wichtig. Jedes Control muss beim Create die Form übergeben bekommen. Die Form "besitzt" alle Controls, ist halt wie der König und sein Folk.

Bei dem neu erzeugten Control muss Parent auf seinen Vorfahr gesetzt werden, damit da die Verbindung für die Gui da ist.

FindComponent: NUR in der Form aufrufen. Die Funktion durchläuft die Components, die nur in der Form gesetzt sind.

FindControl: Die Funktion läuft über die Contols, die Nachfahren.
Will man über FindControls eine Komponente finden, muss man von der Form aus rekursiv alle Controls durchlaufen. Das kann man sich sparen, indem man gleich von der Form aus FindComponent aufruft.

Man kann Controls umhängen und verschieben, wie man will. In Components bleiben sie erhalten. Wird ein Control freigegeben, verschwindet der Eintrag auch aus dem Components.