die 0,0 koordinate in der PB verändert sich ständig

[jbg]

Zitat von danielkussin:

PaintBox.Canvas.FillRect(Rect(0,0,Paintbox.Width,P aintbox.Height));

Das liese sich auch so schreiben:
PaintBox.Canvas.FillRect(Paintbox.ClientRect);

Zitat:

habe mir eben mal die hilfe in delphi zu "ScreenToClient" angeschaut. aber irgendwie werde ich daraus nicht so wirklich schlau

Also die Hilfe die ich zu TControl.ScreenToClient habe ist eigentlich sehr einleuchtend. Aber vielleicht hast du ja eine andere

Delphi-Quellcode:

var pt: TPoint;
begin
  Pt := PaintBox.ScreenToClient(Mouse.CursorPos);
  // mit Pt.X, Pt.Y arbeiten
end;

Zitat:

meinst du damit diese werte: mouse.CursorPos.x ; mouse.CursorPos.y ?

Nein.
Damit meine ich

Zitat:

procedure THURecords.PaintBoxMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);