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);