Hi,
ich habe mir eine
Unit gebastelt mit einer procedure. Diese Procedure erstellt mehrere Komponenten auf den übergebenen parent. Damit ich auch die Eigenschaften dieser Komponenten verändern kann habe ich FindComponent verwendet. Leider meldet mir der Compiler das FindComponent ein undefinierter Bezeichner sei. Ich habe folgende Units eingebunden:
Delphi-Quellcode:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, pngimage, JvGif, ExtCtrls;
Aufgerufen wird die Procedure von einer anderen
Unit (mit Form) aus wie folgt.
procedure blubbCreate(form1, 'Titel', 5, 5, 5, 5);
Der erste Parameter ist das Parent (also die Form der aufrufenden
Unit), 2 Titel und die anderen sind Integer für Width, Height, Left, Top);
Die procedure ruft folgenden Code auf:
Delphi-Quellcode:
TPanel.Create(Parent).Name:=Name;
with TPanel(FindComponent(Name)) do
begin
Parent:=Parent;
Width:=Width;
Height:=Height;
Left:=Left;
Top:=Top;
Color:=clWhite;
Caption:='';
end;
TScrollBox.Create(TPanel(FindComponent(Name))).Name:=Name+'page';
with TScrollBox(FindComponent(Name+'page')) do
begin
Parent:=TPanel(FindComponent(Name)).parent;
Align:=alClient;
Color:=clWhite;
end;
Wieso kann ich FindComponent nicht benutzen. Geht es überhaupt so wie ich es gemacht hab auf einer Form von einer anderen
Unit aus die also nichts mit den Form zu tun hat Komponenten zu erstellen? (Mir ist klar das ich die 2te
Unit bei der Form-
Unit einbinden muss
)
Schonmal Danke