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:

markieren

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

Im PSDK steht:

The GetDCOrgEx function retrieves the final translation origin for a specified device context (DC). The final translation origin specifies an offset that the system uses to translate device coordinates into client coordinates (for coordinates in an application's window).

Zitat von Takeshi:

Beim Klick auf den btnCheckOrgn springt der Mauszeiger aber an den ClientOrigin der Form und nicht an den Origin der PaintBox.

markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Origin: TPoint;
begin

  GetViewportOrgEx(PaintBox1.Canvas.Handle, Origin);
  Origin := ClientToScreen(Origin);
  SetCursorPos(Origin.X, Origin.Y);

end;

Wie du das jetzt in deine Funktion einbauen kannst, überlasse ich dir.

Hmmm danke, aber.. mir ist nicht verständlich, warum das bei ner PaintBox funzt aber bei nem Image nicht.