Form auf dem Bildschirm richtig positionieren?

[AlexII]

Hallo,

wie positioniere ich mein Programm richtig auf dem Bildschirm? Muss die rechte obere Ecke sein.
Ich hab folgenden Code ausprobiert, aber irgendwie funkt das ganze nicht wenn man die Auflösung ändert.

Delphi-Quellcode:

Form1.Left:=Screen.Width-400;
Form1.Top:=Screen.Height-900;

:gruebel:

[himitsu]

schau dir mal die Eigenschaft .Position deiner Form an :zwinker:


[add]
ansonsten, wie berechnet man selber die Mitte .....

Fenstermitte mit Bildschirmitte übereinander setzen

> also Hälfte des Bildschirms minus Hälfte deiner Form
war blöd

[himitsu]

[del]

[isilive]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
  begin
    form1.Left:=screen.Width-400;
    form1.top:=0;
  end;
end.

Funktioniert bei mir - respektive einer Fensterbreite von 400 natürlich....

[SirThornberry]

Im übrigen ist es sinnvoller Setbounds zu verwenden da sonst intern bei jedem setzen von Left, Top, Width und/oder Height SetBounds aufgerufen wird.

[DP-Maintenance]

Dieses Thema wurde von "Matze" von "Programmieren allgemein" nach "VCL / WinForms / Controls" verschoben.
Delphi-Frage

[AlexII]

Also ich hab jetzt folgendes:

Delphi-Quellcode:

Form1.SetBounds(Screen.Width-Form1.Width-20, 100, Width, Height);

Muss halt nicht etwas runter (150) und nach links (20)

Scheint zu funken :thumb:

[himitsu]

:wall: leicht verlesen...

nja, irgendwo hier gab's doch 'nen Code, welcher die Größe des Desktopbereiches lieferte (also ohne Startleiste und Co.) ... wäre natürlich besser diese Maße zu verwenden, falls mal wer seine Startleiste wo anders hat, oder noch durch andere Dinge seinen Desktop verkleinert hat.

[AlexII]

Und wo findet man das? Ich finde es nicht :gruebel:

[Satty67]

Also zum positionieren oben links mache ich es so:

Delphi-Quellcode:

procedure TForm1.FensterAusrichten;
var
  DeskDC : hDC;
  ScreenClientRect : TRect;
begin
  DeskDC := GetDC(0);
  SystemParametersInfo(SPI_GETWORKAREA,SizeOf(ScreenClientRect),@ScreenClientRect,0);
  ReleaseDC(0,DeskDC);

  SetBounds(ScreenClientRect.Left,ScreenClientRect.Top,Width,Height);
end;

Geht jetzt davon aus, das Fensterhöhe/Breite beibehalten werden soll und berücksichtigt auch unterschiedliche Positionen der Taskbar.

Für rechts oben dann (die letzte Zeile) so:

Delphi-Quellcode:

SetBounds(ScreenClientRect.Right - Width,ScreenClientRect.Top,Width,Height);

[AlexII]

Zitat:

Zitat von Satty67

Geht jetzt davon aus, das Fensterhöhe/Breite beibehalten werden soll

Wie meinst du das? :gruebel:

[Hawkeye219]

Hallo,

Zitat:

Zitat von AlexII

Und wo findet man das?

Im Objekt Screen der Unit Forms:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  R : TRect;
begin
  R := Screen.WorkAreaRect;
  R.Left := R.Right - Width;
  R.Bottom := R.Top + Height;

  BoundsRect := R;
end;

Gruß Hawkeye

[Satty67]

Zitat:

Zitat von AlexII

Zitat:

Zitat von Satty67

Geht jetzt davon aus, das Fensterhöhe/Breite beibehalten werden soll

Wie meinst du das? :gruebel:

Na das dein Fenster nur verschoben wird und Höhe/Breite beibehalten... na sach mal :shock:

Screen.WorkAreaRect Gibt es bei Delphi5 nicht :cry:

[AlexII]

OK, danke :thumb: