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;
DBGrid
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Re: DBGrid
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.
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.
Duyduğun Şeylerin Söylediklerim Olduğuna Eminim Ama
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim