是否可以通過編程創建TShape控件？

Question

我不知道是否有某種方法可以在運行時以編程方式創建TShape控件。例如，保證放置100個形狀，隱藏它們並在程序運行時顯示它們，可以在一段時間內創建100個形狀（5個形狀創建5個形狀，10個10秒，15個15秒等等） 。

Answer 1

您應該不是通過使用控件繪製和動畫。相反，你應該使用普通的GDI或其他API手動繪製。有關示例，請參見this example或this example from one of your questions。

總之，一個簡單的回答你的問題：你的窗體上放置一個TTimer並設置其Interval至250，並寫上：

unit Unit1; 

interface 

uses 
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
    Dialogs, ExtCtrls; 

type 
    TForm1 = class(TForm) 
    Timer1: TTimer; 
    procedure Timer1Timer(Sender: TObject); 
    private 
    { Private declarations } 
    FShapes: array of TShape; 
    public 
    { Public declarations } 
    end; 

var 
    Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
    SetLength(FShapes, Length(FShapes) + 1); // Ugly! 
    FShapes[high(FShapes)] := TShape.Create(Self); 
    FShapes[high(FShapes)].Parent := Self; 
    FShapes[high(FShapes)].Width := Random(100); 
    FShapes[high(FShapes)].Height := Random(100); 
    FShapes[high(FShapes)].Left := Random(Width - FShapes[high(FShapes)].Width); 
    FShapes[high(FShapes)].Top := Random(Height - FShapes[high(FShapes)].Height); 
    FShapes[high(FShapes)].Brush.Color := RGB(Random(255), Random(255), Random(255)); 
    FShapes[high(FShapes)].Shape := TShapeType(random(ord(high(TShapeType)))) 
end; 

end.