hsr////////////////////////////////////////////////////
유사하게 묘사한겁니다
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, DBTables, ExtCtrls;

type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Table1: TTable;
    Database1: TDatabase;
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    DragSel, DrawOK : Boolean;
    X1,Y1,X2,Y2 : integer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
    GXY1, GXY2 : TGridCoord;
    inttemp : integer;
begin
    if DrawOK then begin
       with TDBGrid(Sender) do begin
           GXY1 := MouseCoord(X1,Y1);
           GXY2 := MouseCoord(X2,Y2);
           if GXY1.X > GXY2.X then begin
              inttemp := GXY1.X;
              GXY1.X := GXY2.X;
              GXY2.X := inttemp;
           end;
           if GXY1.Y > GXY2.Y then begin
              inttemp := GXY1.Y;
              GXY1.Y := GXY2.Y;
              GXY2.Y := inttemp;
           end;

           if ((DataCol >= GXY1.X-1)and(DataCol < GXY2.X))
              and ((MouseCoord(Rect.Left, Rect.Top).Y >= GXY1.Y)and(MouseCoord(Rect.Left, Rect.Top).Y <= GXY2.Y)) then begin
              Canvas.Brush.Color := clActiveCaption;
              Canvas.Font.Color  := clWhite;
              Canvas.FillRect(Rect);
              DefaultDrawColumnCell(Rect, DataCol, Column,[]);
           end;
        end;
    end;
end;

procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin

    if ssLeft in Shift then begin
       if DragSel = False then begin
          X1 := X;
          Y1 := Y;
       end;
       DragSel := True;
       DrawOK := True;
       X2 := X;
       Y2 := Y;
       DBGrid1.Repaint;
    end
    else DragSel := False;
end;

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
    if (DrawOK)and(DragSel = False) then begin
       DrawOK := False;
       DBGrid1.Repaint;
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
     //동적 알리아스 생성
     Database1.Params.Append('PATH='+ExtractFilePath(Application.ExeName));
     Database1.Params.Append('ENABLE BCD=FALSE');
     Database1.Params.Append('DEFAULT DRIVER=DBASE');
     Table1.DatabaseName := 'TempA';
     Table1.Active := True;
end;

end.

헉..답변이 늦었습니다.......정말 좋은 답변 감사 드립니다.......

많이 배웁니다.....^^

from....델파이사랑.......