宋威的专栏

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, ExtCtrls;type  TForm1 = class(TForm)    PaintBox1: TPaintBox;    Button1: TButt

主要的功能：1.可以移动。2.鼠标移入移出和按下时能显示对应的图片。3.按下时可以有位置改变的效果。4.可以设置是否响应双击事件。5.可设置组按下抬起 GroupIndex修改日志：2005-10-04  解决鼠标点击过快时图片位置错误  添加鼠标双击时是否触发双击事件（如果不触发则触发2次单击事件）2005-11-28  增加组功能，使某组内只有一个图片为被按下的状态 Down=True2005

 if Sender is TStringGrid then  begin    with (Sender as TStringGrid) do    begin      if (ACol = 1) and (ARow > 1) then      begin        Canvas.Font.Color := clBlue;        Canvas.TextOut(Rect.Left

procedure TForm1.Grid1DrawCell(Sender: TObject; ACol, ARow: Integer;  Rect: TRect; State: TGridDrawState);var  Rect1:TRect;  Rect2:TRect;begin  Rect1.Left:=ACol*(Rect.Right-Rect.Left)+2;  Rect1.Top:=A