Einzelnen Beitrag anzeigen

Benutzerbild von Corpsman
Corpsman

Registriert seit: 8. Nov 2005
Ort: nähe Stuttgart
981 Beiträge
 
Delphi XE2 Professional
 
#8

Re: Wer weis was "Screen.MonitorFromPoint" macht ?

  Alt 16. Jan 2008, 12:55
OK nu mus ich gestehen bin ich nicht der hellste was WinAPI angeht.

biher habe ich mir mit der Überbrückung geholfen

Delphi-Quellcode:
Function IsDisplayEdge(curPoint: TPoint): boolean;
Var
  ret1, ret2, ret3, ret4: boolean;
Begin
  // ret1 := (Screen.MonitorFromPoint(Point(curPoint.X - 1, curPoint.Y), mdNull) = Nil);
  // ret2 := (Screen.MonitorFromPoint(Point(curPoint.X + 1, curPoint.Y), mdNull) = Nil);
  // ret3 := (Screen.MonitorFromPoint(Point(curPoint.X, curPoint.Y + 1), mdNull) = Nil);
  // ret4 := (Screen.MonitorFromPoint(Point(curPoint.X, curPoint.Y - 1), mdNull) = Nil);
  // result := (ret1 Or ret2 Or ret3 Or ret4);
  result := True; // So Gings, das da Oben Prüft irgendwas mit dem Monitor ...
End;
Und es geht wunderbar, Nachdem ich selbst kein Multimonitor system habe, wird das auch so bleiben .

Mag mir einer von euch die Lösung , wie für Dumme einfach geschwind hinpinseln ?
Uwe
My Sitewww.Corpsman.de

My marble madness clone Balanced ( ca. 70,0 mb ) aktuell ver 2.01
  Mit Zitat antworten Zitat