5,391
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.Button1Click(Sender: TObject);
const
YPos = 100;
var
DC: HDC;
i: Integer;
Shapes: Array[0..4] of TShape;
begin
FXSpot := 5;
DC := GetDC(Handle);
Shapes[0] := TShape.Create(DC, FXSpot, YPos);
Shapes[1] := TRectangle.Create(DC, FXSpot + 100, YPos);
Shapes[2] := TEllipse.Create(DC, FXSpot + 200, YPos);
for i := 0 to 2 do begin
Shapes[i].Draw;
Shapes[i].Free;
end;
ReleaseDC(Handle, DC);
end;