Cet article utilise un exemple pour démontrer la différence entre Rect et Bounds générant TRect. L'exemple de code est le suivant :
unitUnit1;interfaceutiliseWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtCtrls;typeTForm1 = class(TForm)Button1: TButton;RadioGroup1: TRadioGroup;procédure RadioGroup1Click(Sender: TObject);procédure FormCreate(Sender : TObject);end;varForm1: TForm1;implementation{$R *.dfm}varR: TRect;procedure TForm1.FormCreate(Sender: TObject);beginRadioGroup1.Items.CommaText := 'Undo,Rect,Bounds';R := Button1 .BoundsRect;fin;procédure TForm1.RadioGroup1Click(Sender: TObject);begincase RadioGroup1.ItemIndex of0: Button1.BoundsRect := R;1: Button1.BoundsRect := Rect(50,50,100,80); {Les paramètres 3 et 4 sont un point}2 : Button1; .BoundsRect := Bounds(50,50,100,80);{Les paramètres 3 et 4 sont respectivement la largeur et la hauteur}end;end;end.Le rendu final est le suivant :