DBGrid

[brs]

Selam arkadaşlar dbgrid drag drop hatayı çözemedim yardımcı olursanız sevinirim...



type
SGC : TGridCoord;


procedure TForm9.DBGrid1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
DG : TDBGrid;
GC : TGridCoord;
CurRow : Integer;
SField : string;
begin
DG := Sender as TDBGrid;
GC := DG.MouseCoord(X,Y);
with DG.DataSource.DataSet do begin
with (Source as TDBGrid).DataSource.DataSet do
begin
SField:=Fields[1].AsString;
end;
DisableControls;
CurRow := DG.Row; Bu alanda hata alıyorum...
MoveBy(GC.Y-CurRow);
Edit;
Fields[GC.X-1].AsString:=SField;
Post;
MoveBy(CurRow-GC.Y);
EnableControls;
end;
end;



procedure TForm9.DBGrid1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
var
GC : TGridCoord;
begin
GC := (Sender as TDBGrid).MouseCoord(X,Y);
Accept := Source is TDBGrid and (GC.X > 0) and (GC.Y > 0);
end;


procedure TForm9.DBGrid1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
DG : TDBGrid;
begin
DG := Sender as TDBGrid;
SGC := DG.MouseCoord(X,Y);
if (SGC.X > 0) and (SGC.Y > 0) then
(Sender as TDBGrid).BeginDrag(False);
end;

[aslangeri]

s.a.
bu gibi durumlarda hata alıyorum dan ziyade , şu hata mesajını alıyorum derseniz daha iyi olur.
Hata mesajını yazmadğınız için birşey dememiz zor oluyor.