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