Delphi2010新手学习（1）

Delphi2010新手学习（1）

今天是2021-02-04，工作较空闲，无聊突然搜索了下delphi。。。
很久以前用过几次delphi7，下了个delphi2010,打算学着玩玩，结果就有了下面这段乱七八兆的代码段。。。

在Image图片控件上面放一个透明可移动的边框及“矩形中心点计算”
哈哈，说的好高大上。。。反正我是纯业余，写出来了好用，就是硬道理，有用拿去，别喷我写的烂。。。。

主要代码：
procedure TForm1.huakuang(Sender: TObject); //画label边框 及中心点
var
Rct: TRect;
Rct1: TRect;
Pos1: TPoint;
begin
Label1.Visible := True;
Form1.refresh;
Rct := Rect(self.Label1.Left - 1, self.Label1.top - 1,
self.Label1.Left + self.Label1.Width + 1,
self.Label1.top + self.Label1.Height + 1);
with Form1.Canvas do
begin
Pen.Color := clRed;
Pen.Width := 2;
Brush.Style := bsClear;
Rectangle(Rct);
end;

Pos1.X := round(self.Label1.Left + self.Label1.Width / 2);
Pos1.Y := round(self.Label1.top + self.Label1.Height / 2);
Rct1 := Rect(Pos1.X - 4, Pos1.Y + 4, Pos1.X + 4, Pos1.Y - 4);
with Form1.Canvas do
begin
Pen.Color := clRed;
Pen.Width := 2;
Brush.Style := bsClear;
Rectangle(Rct1);
end;
具体可以去https://download.csdn.net/download/wlsk888/15048758下载完整代码！