Delphi实例演示Rect、Bounds生成TRect的区别
更新时间：2014年07月19日 12:44:56 投稿：shichen2014
这篇文章主要介绍了Delphi实例演示Rect、Bounds生成TRect的区别,需要的朋友可以参考下
本文以实例演示Rect、Bounds生成TRect的区别，实例代码如下：
unitUnit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
RadioGroup1: TRadioGroup;
procedure RadioGroup1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
var
R: TRect;
procedure TForm1.FormCreate(Sender: TObject);
begin
RadioGroup1.Items.CommaText := 'Undo,Rect,Bounds';
R := Button1.BoundsRect;
end;
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0: Button1.BoundsRect := R;
1: Button1.BoundsRect := Rect(50,50,100,80); {参数3、4 是一个点}
2: Button1.BoundsRect := Bounds(50,50,100,80);{参数3、4 分别是宽度与高度}
end;
end;
end.
最终实现效果图如下：
相关文章
这篇文章主要介绍了Delphi7中群发Email邮件的方法,涉及邮件服务器软件的使用,电子邮件的判断与发送功能的实现,是非常实用的技巧,需要的朋友可以参考下2014-12-12
这篇文章主要介绍了delphi字符串分隔函数用法,通过自定义函数SeparateTerms2实现将字符串分割后存入字符串列表的功能,具有一定的实用价值,需要的朋友可以参考下2014-12-12
这篇文章主要介绍了Delphi常用关键字用法,包括了各个常用的关键字及其详细用法,需要的朋友可以参考下2014-07-07
插件管理框架 for Delphi许多软件采用“插件”（PlugIns）来扩展其功能，比如PhotoShop所支持的各类滤镜就是插件；我们所熟知的Winamp，也有许多皮肤以及可视效果插件。再有微软的windows media player，以及QQ，冲浪软件Opera……采用插件技术的软件数不胜数，而各个软件的具体实现方式也是五花八门，各有特点。2008-03-03
这篇文章主要为大家详细介绍了Delphi菜单组件TMainMenu的使用方法，具有一定的参考价值，感兴趣的小伙伴们可以参考一下2017-11-11
这篇文章主要介绍了Delphi实现判断网址是否存在及是否可以打开的方法,需要的朋友可以参考下2014-07-07
这篇文章主要介绍了delphi 判断字符串是否为纯数字组合,需要的朋友可以参考下2022-12-12
这篇文章主要介绍了Delphi7中Listview的常用功能,需要的朋友可以参考下2014-07-07
这篇文章介绍了Delphi 生成excel中饼图的实例代码，有需要的朋友可以参考一下2013-08-08
件是一组页面集,用于构造一个多页对话框,它显示多个交互页(TTabSheet 对象)，接下来为大家介绍下Delphi隐藏TPageControl的标签方法2013-04-04
最新评论