Einzelnen Beitrag anzeigen

OrNEC

Registriert seit: 6. Nov 2009
493 Beiträge
 
FreePascal / Lazarus
 
#1

Programmposition beim Doppelaufruf ändern?

  Alt 9. Dez 2010, 13:57
Hallo,

hab das Forum bereits durchgesucht, aber nichts passendes gefunden. Ich möchte die Position meines Programms ändern, falls das das zweite oder dritte mal gestartet wird. Sonst starten das immer überlappt an einer Stelle.

Die Position der Anwendung bestimme ich im OnCreate Eregnis:

Delphi-Quellcode:
Left := Ini.ReadInteger('Default', 'FormLeftPos', -1);
Top := Ini.ReadInteger('Default', 'FormTopPos', -1);

if (Left < Screen.DesktopLeft) or (Left > (Screen.DesktopLeft+Screen.DesktopWidth - Width)) or
  (Top < Screen.DesktopTop) or (Top > (Screen.DesktopTop + Screen.DesktopHeight - Height)) then
Form1.Position:=poScreenCenter;
Also die Anwendung mathematisch zu verschieben ist kein Problem, was mich interessiert ist es möglich im OnCreate Eregnis zu prüfen, ob die Anwendung bereits läuft? Ich denke das muss wo anders geschehen, aber ich frage das um auf Nummer sicher zu gehen.

Jah... wie gehe ich an diese sache richtig ran, wer kann mir da ein paar Tipps geben?

Danke!
  Mit Zitat antworten Zitat