Witam...
Cholernie beznadziejny problem ;p
Wszystko jest ok gdy forma jesy wyswietlana w FullScren ,ale gdy jest mała i proboje umiescic jakis obraz,tekst, itp. to pozycja jest nadal wzgledem calego ekranu a nie formy.
JAK POBRAC POLOZENIE MYSZY (X,Y) WZGLEDEM FORMY, A NIE CALEGO EKRANU;-)
Zainteresuj się funkcjami:
ScreenToClient
ClientToScreen
to moze tak
function tform1.mousepos : tpoint;
var
p,o : tpoint;
begin
getcursorpos(p);
o.x := p.x - form1.left;
o.y := p.y - form1.top;
result := o;
end;
===wywoalnie
var
xs : tpoint;
begin
xs := mousepos;
form1.caption := inttostr(xs.x)+ ' '+inttostr(xs.y);
end;
Ok, udalo mi sie - zrobilem mniejwiecej tak
procedure TForm1.Timer1Timer(Sender: TObject);
var p, q:TPoint;
begin
p:=Point(Mouse.CursorPos.X, Mouse.CursorPos.Y);
q:=ScreenToClient(p); Edit2.Text:=IntToStr(q.X)+' '+IntToStr(q.Y);
end;