1,183
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.Button2Click(Sender: TObject);
var
R: TRect;
begin
Image1.Canvas.Pen.Color := clRed;
Image1.Canvas.Pen.Style := psDashDot;
R := Rect(1, 1, Image1.Width - 1, Image1.Height - 1);
Image1.Canvas.Rectangle(R);
end;