Zitat von
Affje:
hi
wie kann ich machen, dass meine anwendung genau in der mitte des bildschirmes ist????
wie mache ich das, wenn meine anwendung aus mehreren formen besteht, also ich möchte form2 genau in der mitte von form 1 haben.
mfg affje
Eigentlich waren das ja 2 Fragen,
Für Frage 2 sollte Position reichen, da die MainForm (Form1) ja nicht in der Mitte des Bildschirms sein muß.
Zu Frage 1: Ich habe zu Hause nur D5 und da gibt es
WorkAreaHeight
nicht, da habe ich mir so geholfen:
Delphi-Quellcode:
FUNCTION aGetDesktopWorkingArea: TRect;
{*****************************************************************************
*** gibt den Desktop-Arbeitsbereich zurück (D5-D7) ***
*** ---------------------------------------------- ***
*** INPUT: n/a ***
*** OUTPUT: n/a ***
*** RESULT: Recatangle ***
*[flapp 01/01/2003]**********************************************************}
{$IFDEF VER150} // ab Delphi 7 implementiert ?
{$ELSE} // Delphi 5 und kleiner per API
VAR
recScreenArea : TRect;
{$ENDIF}
BEGIN
{$IFDEF VER150} // ab Delphi 7 implementiert ?
aGetDesktopWorkingArea := Screen.WorkAreaRect;
{$ELSE} // Delphi 5 und kleiner per API
SystemParametersInfo(SPI_GETWORKAREA, 0, @recScreenArea, 0);
aGetDesktopWorkingArea.Bottom := recScreenArea.Bottom;
aGetDesktopWorkingArea.Left := recScreenArea.Left;
aGetDesktopWorkingArea.Right := recScreenArea.Right;
aGetDesktopWorkingArea.Top := recScreenArea.Top;
{$ENDIF}
END;