[duvidas] usando dragdrop
24/07/2008
0
ae galera...eu queria saber como eu faço para colocar uma linha em baixo do item q eu eu estou selecionando ,....tipo só para a pessoa saber onde ela esta inserindo o registro...na tabela(dbgrid)...
procedure TForm1.DBGrid1DragDrop(Sender, Source: TObject; X, Y: Integer); var Coordenadas: TGridCoord; lNome: string; FileLB: TFileListBox; begin Lista.open; if Source.ClassType = TFileListBox then begin FileLB := TFileListBox(Source); begin Coordenadas := THackGrid(dbgrid1).MouseCoord(X,Y); if (Coordenadas.X > 0) AND (Coordenadas.Y > 0) then begin lNome := Lista.FieldByName(´Descricao´).AsString; with THackGrid(dbgrid1) do begin Lista.MoveBy(Coordenadas.Y - Row); Lista.Insert; Lista.FieldByName(´Status´).asstring := ´Não Veiculada´; Lista.FieldByName(´Arquivo´).asstring := FileLB.FileName; Lista.FieldByName(´Descricao´).asstring := ExtractFileName(FileLB.FileName); Lista.Post; end; end; end; //Descricao := ´´; //Lista.Locate(´Descricao´, Descricao, [loCaseInsensitive]); end; end; procedure TForm1.DBGrid1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); begin if Source.ClassType = tfilelistbox then begin Accept := true; end; end; procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var Coordenadas: TGridCoord; lNome: string; FileLB: TFileListBox; begin begin Coordenadas := THackGrid(dbgrid1).MouseCoord(X,Y); if (Coordenadas.X > 0) AND (Coordenadas.Y > 0) then begin with THackGrid(dbgrid1) do begin lista.MoveBy(Coordenadas.Y - Row); end; end; end; end;
Hammergod
Curtir tópico
+ 0
Responder