Delphi 예제는 TRect를 생성하는 Rect와 Bounds의 차이점을 보여줍니다.

이 문서에서는 예제를 사용하여 TRect를 생성하는 Rect와 Bounds의 차이점을 보여줍니다. 예제 코드는 다음과 같습니다.

 unitUnit1;인터페이스 사용Windows, 메시지, SysUtils, 변형, 클래스, 그래픽, 컨트롤, 양식, 대화 상자, StdCtrls, ExtCtrls;typeTForm1 = class(TForm)Button1: TButton;RadioGroup1: TRadioGroup;Procedure RadioGroup1Click(Sender: TObject);Procedure 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;end;프로시저 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.

최종 렌더링은 다음과 같습니다.