PaintBox内のマウス移動をPixelsの一定間隔で移動したい (ID:20228)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 10ドット単位でクロスカーソル移動。 var CX, CY: Integer; procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var mx, my: Integer; begin mx := (X div 10) * 10 + 5; my := (Y div 10) * 10 + 5; if (CX <> mx)or(CY <> my) then begin with PaintBox1.Canvas do begin Pen.Color := clLime; Pen.Mode := pmXOR; MoveTo(CX-5,CY); LineTo(CX+6,CY); MoveTo(CX,CY-5); LineTo(CX,CY+6); CX := mx; CY := my; MoveTo(CX-5,CY); LineTo(CX+6,CY); MoveTo(CX,CY-5); LineTo(CX,CY+6); end; end; end;