var
iGridSize : Integer = 16;
procedure TForm1.FormPaint(Sender: TObject);
var
i, j : integer;
begin
Self.DoubleBuffered := True;
for i := 0 to Self.Width do
for j := 0 to Self.Height do
if (j mod iGridSize = 0) and (i mod iGridSize = 0) then
Self.Canvas.Pixels[i, j] := clNavy;
end;
procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
begin
Self.iOldX := X;
Self.iOldY := Y;
end;
end;
procedure TForm1.Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if ssLeft in Shift then
begin
Shape1.Left := Shape1.Left + X - iOldX;
Shape1.Top := Shape1.Top + Y - iOldY;
end;
end;
procedure TForm1.Shape1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
begin
if (Shape1.Left - (Shape1.Left div iGridSize) * iGridSize) > (iGridSize div 2) then
begin
Shape1.Left := (Shape1.Left div iGridSize) * iGridSize + iGridSize;
end
else
begin
Shape1.Left := (Shape1.Left div iGridSize) * iGridSize;
end;
if (Shape1.Top - (Shape1.Top div iGridSize) * iGridSize) > (iGridSize div 2) then
begin
Shape1.Top := (Shape1.Top div iGridSize) * iGridSize + iGridSize;
end
else
begin
Shape1.Top := (Shape1.Top div iGridSize) * iGridSize;
end;
end;
end;
本文地址：http://com.8s8s.com/it/it4885.htm