Tag.
Ich möchte in einer Funktion der ein Canvas übergeben wird dessen Ursprung auf dem Bildschrim ermmitteln. Ich habe das Problem folgendermaßen vereinfacht:
Delphi-Quellcode:
function GetCvasOrgn(CVas:TCanvas):TPoint;
begin
GetDCOrgEx(CVas.Handle,Result);
end;
procedure TForm1.btnCheckOrgnClick(Sender: TObject);
begin
Mouse.CursorPos:=GetCvasOrgn(PaintBox1.Canvas);
end;
Beim Klick auf den btnCheckOrgn springt der Mauszeiger aber an den ClientOrigin der Form und nicht an den Origin der PaintBox.
Was mach ich da falsch?
Viele Grüße + Danke, Christoph