|
||
解説: 作成したアプリケーションを画面の中央に表示するにはフォームの Position プロパティに poScreenCenter を指定すれば、簡単にできます。 では、Position プロパティを使わず、画面中央に表示させるにはどうすればいいでしょう? これも難しくはないです。 でも、こうした簡単なことも、初めは分からないで悩んだりするものです。 一度分かってしまえば、どうということもないのですが・・・。 そうしたコードの一例として見てください。 使用例: 以下の例では、Button1 をクリックして Form1 を画面中央に移動させています。 準備としては Button を適当に置くだけです。 OnClick イベントで Form1 の Left と Top を計算で求め、設定しています。 Screen 変数には、アプリケーションが作成した画面の情報が割り当てられています。 //------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { // Form1 を画面中央に移動 Form1->Top = (Screen->Height - Form1->Height) / 2; Form1->Left = (Screen->Width - Form1->Width) / 2; } //------------------------------------------------------------------- |