Form oben und mittig anzeigen

[HolgerCW]

Hallo zusammen,

wie kann ich eine Form oben und mittig des Screens anzeigen ?

Gruss

Holger

[DeddyH]

Delphi-Quellcode:

procedure TDeinForm.FormShow(Sender: TObject);
begin
  Left := (Screen.Width - self.Width) div 2;
  Top := 0;
end;

Dabei wird aber die Taskleiste nicht berücksichtigt (ginge IMHO mit SystemParametersInfo und SPI_GETWORKAREA).

[mkinzler]

Delphi-Quellcode:

Form.Left := Screen.Width div 2 - Form.Width div 2;
Form.Top := Screen.Height div 2 - Form.Height div 2;

[HolgerCW]

Vielen dank,

auf was muss ich denn dann Position stellen und PrintScale oder noch was anderes ?

Weil -> Form ist immer noch Mittig. Hatte vorher bei Position -> poScreenCenter stehen

Gruss

Holger

[Coder1990]

Zitat von mkinzler:

Delphi-Quellcode:

Form.Left := Screen.Width div 2 - Form.Width div 2;
Form.Top := Screen.Height div 2 - Form.Height div 2;

ich glaube das vom deddyh hat schon gereicht^^
P.S. Der HolgerCW wollte das Oben (Top=0) und mittig und nicht mitte mitte...

[HolgerCW]

Alles klar,

DeddyH hatte gereicht. Danke und Gruss

Holger