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;
没有相关教程
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
