More than 5 years have passed since last update.

C++ Builder 10.2 Tokyo + Windows10 > Geometry > フォームサイズ設定ではまる > (Height, Width)でなく(ClientHeight, ClientWidth)で設定する

Last updated at 2019-07-21Posted at 2019-07-21

動作環境

RAD Studio 10.2 Tokyo Update 3
Windows 10 v1903

概要

フォームのHeight, Widthを指定
- => 期待していたサイズよりも小さい
フォームのClientHeight, ClientWidthを指定
- => 期待していたサイズになる

実装

Unit1.cpp

//---------------------------------------------------------------------------

# include <vcl.h>
# pragma hdrstop

# include "Unit1.h"
//---------------------------------------------------------------------------
# pragma package(smart_init)
# pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
	Shape1->Width = 500;
	Shape1->Height = 500;

	this->Height = Shape1->Top + Shape1->Height + 10;
	this->Width = Shape1->Left + Shape1->Width + 10;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
	Shape1->Width = 500;
	Shape1->Height = 500;

	this->ClientHeight = Shape1->Top + Shape1->Height + 10;
	this->ClientWidth = Shape1->Left + Shape1->Width + 10;
}
//---------------------------------------------------------------------------