Delphi實(shí)例演示Rect、Bounds生成TRect的區(qū)別
更新時(shí)間：2014年07月19日 12:44:56 投稿：shichen2014
這篇文章主要介紹了Delphi實(shí)例演示Rect、Bounds生成TRect的區(qū)別,需要的朋友可以參考下
本文以實(shí)例演示Rect、Bounds生成TRect的區(qū)別，實(shí)例代碼如下：
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); {參數(shù)3、4 是一個(gè)點(diǎn)}
2: Button1.BoundsRect := Bounds(50,50,100,80);{參數(shù)3、4 分別是寬度與高度}
end;
end;
end.
最終實(shí)現(xiàn)效果圖如下：
您可能感興趣的文章:
相關(guān)文章
這篇文章主要介紹了Delphi7中群發(fā)Email郵件的方法,涉及郵件服務(wù)器軟件的使用,電子郵件的判斷與發(fā)送功能的實(shí)現(xiàn),是非常實(shí)用的技巧,需要的朋友可以參考下2014-12-12
這篇文章主要介紹了delphi字符串分隔函數(shù)用法,通過(guò)自定義函數(shù)SeparateTerms2實(shí)現(xiàn)將字符串分割后存入字符串列表的功能,具有一定的實(shí)用價(jià)值,需要的朋友可以參考下2014-12-12
這篇文章主要介紹了Delphi常用關(guān)鍵字用法,包括了各個(gè)常用的關(guān)鍵字及其詳細(xì)用法,需要的朋友可以參考下2014-07-07
插件管理框架 for Delphi許多軟件采用“插件”（PlugIns）來(lái)擴(kuò)展其功能，比如PhotoShop所支持的各類濾鏡就是插件；我們所熟知的Winamp，也有許多皮膚以及可視效果插件。再有微軟的windows media player，以及QQ，沖浪軟件Opera……采用插件技術(shù)的軟件數(shù)不勝數(shù)，而各個(gè)軟件的具體實(shí)現(xiàn)方式也是五花八門，各有特點(diǎn)。2008-03-03
這篇文章主要為大家詳細(xì)介紹了Delphi菜單組件TMainMenu的使用方法，具有一定的參考價(jià)值，感興趣的小伙伴們可以參考一下2017-11-11
Delphi實(shí)現(xiàn)判斷網(wǎng)址是否存在及是否可以打開的方法
這篇文章主要介紹了Delphi實(shí)現(xiàn)判斷網(wǎng)址是否存在及是否可以打開的方法,需要的朋友可以參考下2014-07-07
這篇文章主要介紹了delphi 判斷字符串是否為純數(shù)字組合,需要的朋友可以參考下2022-12-12
這篇文章主要介紹了Delphi7中Listview的常用功能,需要的朋友可以參考下2014-07-07
這篇文章介紹了Delphi 生成excel中餅圖的實(shí)例代碼，有需要的朋友可以參考一下2013-08-08
Delphi隱藏TPageControl的標(biāo)簽實(shí)例介紹
件是一組頁(yè)面集,用于構(gòu)造一個(gè)多頁(yè)對(duì)話框,它顯示多個(gè)交互頁(yè)(TTabSheet 對(duì)象)，接下來(lái)為大家介紹下Delphi隱藏TPageControl的標(biāo)簽方法2013-04-04