Wyświetlanie formularza zawsze pośrodku ekranu bez względu na rozdzielczość

Aby po utworzeniu formularza zawsze był on wyświetlaniu na środku ekranu bez względu na jego rozdzielczość tworzymy zdarzenie OnCreate dla tego formularza, w którym:

1. Najpierw pobieramy rozdzielczość ekranu (Screen->Widt,Screen->Height)
2. Dzielimy te dwie wartosci na 2
3. Pobieramy rozmiary naszego okna (Form1->Width, Form1->Height)
4. Je również dzielimy na 2
5. Odejmujemy dwie watości od siebie i gotowe!

Unit1.cpp

void __fastcall TForm1::FormCreate(TObject *Sender)
{
   Form1->Left = (Screen->Width / 2) - (Form1->Width / 2);
   Form1->Top = (Screen->Height / 2) - (Form1->Height / 2);
}

Można też o wiele prościej, ustawiając właściwość Position formularza na poScreenCenter w Inspektorze Obiektów.

nadesłał: Adek