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下载完整代码！

Delphi2010新手学习（1）相关推荐

课工场java新手基础教程_Java新手学习路线，学Java不走弯路
Java新手学习路线,学Java不走弯路很多人都会有一个疑问,就是学习Java能看懂,但是不会写,所以学习Java一定要掌握一个有效率的学习方法,一个适合自己的学习方法,作为一个新人,千万不要自己瞎 ...
python难不难学-超级适合新手学习的python教程，入门其实不难？
在互联网时代很多人都希望掌握一个与互联网相关的知识,比如Python的知识就非常重要,因为无论是操作新媒体平台还是去制作一些软件,我们都需要掌握一些Python的技巧,而且学习一些Python的知识, ...
新手学习DaVinci笔记一：查找资料篇
最近要学习DaVinci DM8148,由于之前没有接触操作过,TI的网页数据量很大.在网上零碎的查阅资料,一步一步的总结出来.本篇是TI查找资料篇,以DM8148为参考. 1:进入Ti官方网站,TI ...
按照一定策略把网页抓回到搜索引擎服务器的,SEO新手学习：搜索引擎的基本步骤...
初始搜索引擎的原理:第一步就是需要了解"搜索引擎的基本步骤". 搜索引擎的基本步骤(大概架构)如下.可以分成虚线左右两个部分:一部分是搜索引擎抓取:主动抓取网页进行一系列处理后建立 ...
k6前级效果器怎么用_新手学习电吉他，效果器应选择单块还是综合？
作为一个新手来说,我建议一开始先选择综合型效果器. 这里我们先简单介绍下综合效果器与单块效果器. 综合效果器可以理解为多个单块的综合体,即包含了很多种效果.一块大综合效果器可能就有三四十种预置音色, ...
seo从入门到精通_新手学习SEO一个月能学会吗？
很多刚接触学习SEO的朋友都会问:"新手学习SEO需要多久,一个月能学会SEO吗?"这个问题,首先我想在这里问的:"学会"是怎样的一个定义?如果你想学习编辑刚刚 ...
新手学习 react 迷惑的点(完整版)
网上各种言论说 React 上手比 Vue 难,可能难就难不能深刻理解 JSX,或者对 ES6 的一些特性理解得不够深刻,导致觉得有些点难以理解,然后说 React 比较难上手,还反人类啥的,所以来讲 ...
Java新手学习路线
------Java新手学习路线------ 第一阶段:J2SE(java基础部分) java开发前奏; . ①计算机基本原理,Java语言发展简史以及开发环境的搭建,体验Java程序的开发,环境变量 ...
写给初学asp.net的新人们新手学习经验
写给初学asp.net的新人们新手学习经验发布:dxy 字体:[增加减小] 类型:转载 IT=挨踢,这是IT人的自嘲,进入IT行业是有四五年了,也算得上是一个"老人"了吧,见 ...
学做网站论坛怎么样？分享新手学习建网站5天感受
之前一直觉得互联网很神奇,经常听别人说通过网站可以在互联网上赚钱,真的很羡慕.但对于一个网站小白来说,建一个网站真的是不知从哪里下手. 一次偶然的机会,在网上搜"自己怎么建网站"看 ...

Delphi2010新手学习（1）

Delphi2010新手学习（1）

Delphi2010新手学习（1）相关推荐

最新文章

热门文章