この記事では、例を使用して TRect を生成する Rect と Bounds の違いを示します。コード例は次のとおりです。
ユニットUnit1;インターフェイスはWindows、メッセージ、SysUtils、バリアント、クラス、グラフィックス、コントロール、フォーム、ダイアログ、StdCtrls、ExtCtrlsを使用;typeTForm1 = class(TForm)Button1: TButton;RadioGroup1: TRadioGroup;プロシージャ RadioGroup1Click(Sender: TObject);プロシージャ FormCreate(Sender) : TObject);end;varForm1: TForm1;implementation{$R *.dfm}varR: TRect;プロシージャ TForm1.FormCreate(Sender: TObject);beginRadioGroup1.Items.CommaText := 'Undo,Rect,Bounds';R := Button1 .BoundsRect;終了;プロシージャTForm1.RadioGroup1Click(Sender: TObject);begincase RadioGroup1.ItemIndex of0: 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。最終的なレンダリングは次のようになります。