Arrastar de um DBGrid para outro DBGrid

Delphi

09/06/2007

Ola pessoal.... bom eu estou com a seguinte questão.....
estou tentando fazer com que quando o usuario clicar em um produto em um DBGrid ele consiga arrastar esse mesmo para outro DBGrid....alguém tem algum exemplo...?


Talvane

Talvane

Curtidas 0

Respostas

Clenio

Clenio

09/06/2007

Estou com a mesma duvida, por favor se alguem souber da uma ajdudinha.

valeu


GOSTEI 0
Araujojunior

Araujojunior

09/06/2007

No Evento onDragOver de quem vai receber a informação, no seu caso um edit

Accept := Source.ClassNameIs(´TDBGrid´);

No comando acima vc estara dizendo a aplicação que esse campo só receberá dados quem venham da classe TDBGrid.

No Evento OnEndDrag do componente que vai enviar a informação, no seu caso o grid


if Target = nil then
exit;

if not (TComponent(Target).Owner = DBGrid1) then
exit;

FProduto := ClientDataSetProdutos.FieldByName(´codigo_produto´).AsInteger


Bem.....é mais ou menos isso.....


Vlw


GOSTEI 0
Clenio

Clenio

09/06/2007

Ola, araujojunior, obrigado por nos ajudar,
É o seguinte: no meu caso não seria passar de dbgrid para edit e sim queria passar a linha selecionada de um [b:56367179d8]Dbgrid1 [/b:56367179d8]para outro [b:56367179d8]Dbgrid2[/b:56367179d8] , então como ficaria nesse caso?

[color=red:56367179d8][b:56367179d8]Obs.:[/b:56367179d8][/color:56367179d8]Os camppos da Query1 seria os mesmos, tanto para dbgrid1 como para dbgrit2.

Desde ja meus agradecimentos.


GOSTEI 0
Araujojunior

Araujojunior

09/06/2007

2 grids usando a mesma query???????


Cara, a operação manda para um componente dataset, como voce pode ver, onde FProduto, nada mais eh do que uma variavel, ou qualquer coisa do tipo.

Espero ter esclarecido.


GOSTEI 0
POSTAR