Einzelnen Beitrag anzeigen

AlexII

Registriert seit: 28. Apr 2008
1.717 Beiträge
 
FreePascal / Lazarus
 
#17

Re: Verbieten, dass Form über die Ränder geschoben wird?

  Alt 7. Feb 2010, 21:51
Hab das jetzt so gemacht:

Delphi-Quellcode:
  if (FormLeftPos<1) or (FormTopPos<1) or (FormLeftPos>(Screen.Width-576)) or (FormTopPos>(Screen.Height-303)) then
  begin
  Form1.Position:=poDesktopCenter;
  end else
      begin
      Form1.Left:=FormLeftPos;
      Form1.Top:=FormTopPos;
      end;
Man kann zwischen den Bildschirmen navigieren und falls man die Auflösung ändern so, dass das Prog über den "Rändern" bleibt, wird es in die Mitte gestellt. Ich denke, dass ist die beste Lösung.
Bin Hobbyprogrammierer! Meine Fragen beziehen sich meistens auf Lazarus!
  Mit Zitat antworten Zitat