hi leute,
wie der titel sagt:
Delphi-Quellcode:
procedure bla(blabla);
VAR x,x2,y,y2:INTEGER; xy:TPoint;
min4.ScreenToClient(xy);//min4=Timage;
x:=xy.X;
y:=xy.Y;
x2:=mouse.CursorPos.X;
y2:=mouse.CursorPos.Y;
showmessage(its(x)+' '+ its(y)+' '+its(x2)+' '+its(y2));
// its ist nur:
function its(n:INTEGER):STRING;
begin
result:=inttostr(n);
end;
//bissel schreiben sparen ;-)
Joa, so weit so gut aber als ergebnis der ShowMessage kommt:
'1242332 4208231 864 134'
Hm... bei einer Auflösung von 1024x768 ist 1242332 doch sehr unwahrscheinlich
Die Mauspositionen stimmen...
Außerdem ändern sich die ersten beiden (ScreenToClient) Werte nie...
Habe ich da einen Denkfehler oder etwas vergessen?
Hoffe ihr könnt mir helfen