[BCB] Jak wyświetlić formularz na środku ekranu bez względu na rozdzielczość?

Aby wyświetlić formatkę na środku ekranu dzielimy rozdzielczość przez 2 i odejmujemy od tego połowę długości, bądź szerokości formularza.

 void __fastcall TForm1::FormCreate(TObject *Sender)

{

     Form1->Left = (Screen->Width / 2) - (Form1->Width / 2);

     Form1->Top = (Screen->Height / 2) - (Form1->Height / 2);

}

void __fastcall TForm1::FormCreate(TObject *Sender)

{

Form1->Left = (Screen->Width / 2) - (Form1->Width / 2);

Form1->Top = (Screen->Height / 2) - (Form1->Height / 2);

}

Autor: Drazek