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)文章

Delphi實(shí)現(xiàn)獲取進(jìn)程列表及相關(guān)信息的實(shí)例
這篇文章主要介紹了Delphi實(shí)現(xiàn)獲取進(jìn)程列表及相關(guān)信息的實(shí)例,希望通過本文大家能實(shí)現(xiàn)這樣的功能，需要的朋友可以參考下
2017-09-09
完美解決Indy 編譯提示版本不一致的問題
今天小編就為大家分享一篇完美解決Indy 編譯提示版本不一致的問題，具有很好的參考價(jià)值，希望對(duì)大家有所幫助。一起跟隨小編過來看看吧
2020-02-02
Delphi中對(duì)時(shí)間操作方法匯總
這篇文章主要介紹了Delphi中對(duì)時(shí)間操作方法匯總,可以對(duì)Delphi的時(shí)間操作有一個(gè)更加深入的了解,需要的朋友可以參考下
2014-07-07
delphi 判斷字符串是否包含漢字，正則版與非正則版實(shí)現(xiàn)
這篇文章主要介紹了delphi 判斷字符串是否包含漢字，正則版與非正則版實(shí)現(xiàn),需要的朋友可以參考下
2022-12-12
Delphi修改操作注冊(cè)表權(quán)限的代碼
Delphi修改操作注冊(cè)表權(quán)限的代碼，使用Delphi的朋友可以參考下。
2011-09-09
wordpress主題支持自定義菜單及修改css樣式實(shí)現(xiàn)方法
使用wordpress過程中會(huì)遇到主題支持自定義菜單以及修改css樣式問題，本文將介紹詳細(xì)解決方法，需要朋友可以參考下
2012-12-12
Delphi實(shí)例演示Rect、Bounds生成TRect的區(qū)別
這篇文章主要介紹了Delphi實(shí)例演示Rect、Bounds生成TRect的區(qū)別,需要的朋友可以參考下
2014-07-07
Delphi實(shí)現(xiàn)Listbox中的item根據(jù)內(nèi)容顯示不同顏色的方法
這篇文章主要介紹了Delphi實(shí)現(xiàn)Listbox中的item根據(jù)內(nèi)容顯示不同顏色的方法,需要的朋友可以參考下
2014-07-07
Delphi中使用ISuperObject解析Json數(shù)據(jù)的實(shí)現(xiàn)代碼
這篇文章主要介紹了Delphi中使用ISuperObject解析Json數(shù)據(jù)的實(shí)現(xiàn)代碼,需要的朋友可以參考下
2017-09-09
Delphi 生成excel中餅圖的實(shí)例代碼
這篇文章介紹了Delphi 生成excel中餅圖的實(shí)例代碼，有需要的朋友可以參考一下
2013-08-08