[duvidas] usando dragdrop

24/07/2008

1

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;



Responder

Posts

25/07/2008

Hammergod

alguem sabe como fazer?


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira