[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

Hammergod

Responder

Posts

25/07/2008

Hammergod

alguem sabe como fazer?


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar