Herzlich willkommen in der Delphi-PRAXiS, tra.
Hier nur ein paar subtile Änderungen an den Code-Zeilen von Markus:
Delphi-Quellcode:
type
TDemoForm =
class(TForm)
// ...
private
shapes:
array of TShape;
procedure CreateShapes(n: Word; wc: TWinControl);
end;
procedure TDemoForm.CreateShapes(n: Word; wc: TWinControl);
begin
SetLength(shapes, n);
while n > 0
do
begin
Dec(n);
shapes[n] := TShape.Create(self);
shapes[n].Parent := wc;
// ...
end;
end;
Freundliche Grüße