Zitat von
bepe:
Wenn ich mich an der Stelle dann einmischen darf um hier evtl. Verwirrung für unwissende Mitlesende zu lichten....
Bzw. zu erhöhen
bepe
Zitat:
MonitorFromWindow() , MonitorFromRect() und MonitorFromPoint()
Die genannten Funktionen sind in der
Unit MultiMon gekapselt.
TScreen stellt keine der Funktionen zur Verfügung. Das gilt für D5-D2007. Die
VCL-Alternative (die Eigenschaft Monitor von TForm) ist ebenfalls in D5 schon vorhanden
Falsch.
D7: Classes.pas, TScreen, Public:
Delphi-Quellcode:
function MonitorFromPoint(
const Point: TPoint;
MonitorDefault: TMonitorDefaultTo = mdNearest): TMonitor;
function MonitorFromRect(
const Rect: TRect;
MonitorDefault: TMonitorDefaultTo = mdNearest): TMonitor;
function MonitorFromWindow(
const Handle: THandle;
MonitorDefault: TMonitorDefaultTo = mdNearest): TMonitor;
Copyright (c) 1995-2002 Borland Software Corporation
Und ja, die Monitor-Eigenschaft ist die richtige Eigenschaft welche zu nutzen ist, da sie genau das gesuchte macht:
Delphi-Quellcode:
...
Result :=
nil;
HM := MonitorFromWindow(
Handle, MONITOR_DEFAULTTONEAREST);
for I := 0
to Screen.MonitorCount - 1
do
if Screen.Monitors[I].Handle = HM
then
begin
Result := Screen.Monitors[I];
Exit;
end;
...
Copyright (c) 1995-2002 Borland Software Corporation
Zitat von
bitsetter:
Keine Ahnung warum du dann gleich so gereizt reagiert.
Ich empfehle dir eine Mail an Moderatoren zu schreiben oder den Beitrag zu melden. Dann kann dieser entfernt werden bzw. ich anderweitig abgemahnt bzw. gesperrt werden - dein Einwand ist schliesslich nicht unberechtigt.