Einzelnen Beitrag anzeigen

RobertP

Registriert seit: 19. Aug 2006
181 Beiträge
 
Turbo Delphi für Win32
 
#1

Mausposition auf ImgView32 / Layer scrollen

  Alt 16. Sep 2006, 23:14
Moin,
ich möchte wenn jemand auf das Bild (mit ImgView32) klickt, die Mausposition auf dem Bild haben.

Delphi-Quellcode:
procedure TEditorForm.mapImageClick(Sender: TObject);
var
  x, y : Integer;
  P : TPoint;
begin
  P := ScreenToClient(Mouse.CursorPos);
  x := P.X;
  y := P.Y;
  x := x - mapImage.Left;
  y := y - mapImage.Top;
end;
Funktioniert auch wenn die Scrollbalken ganz links und ganz oben sind. Was mach ich jetzt aber wenn sie das nicht sind?

Grüße,
MrPayne
Robert
  Mit Zitat antworten Zitat