Clicar 2 vezes em uma celula do Grib e exibir outro form

Question

bom galera tenho uma duvida! trabalho com delphi e firebird e tenho uma tela de pesquisa de produtos, gostaria de fazer que quando clicasse em numa celula mostraria esse registro em outro formulario.t...

Rweberich · Answer

Ola amigo,com certeza voce deve estar listando esses cadastros em um DBGrid, caso seja essa sua dificuldade, issu � bem facil de resolver:vai nos eventos do DBGrid, na opcao �DblClick� e coloque o seguinte codigo:    if DBGrid1.Fields[0].Text <> �� then    begin        DataModule1.tblprodutos.Locate(�CODIGO�,DBGrid1.FieldS[0].Text,[loPartialKey]);        DataModule1.tblprodutos.Edit;        frmCadProdutos.ShowModal; // abre o formulario de cadastro de produtos    end;Abraco....

Thiagoangra2 · Answer

amigo, ta dando um error aki, ve se pode me ajudar! � algo nesse lopartialkey? o que eu to fazendo de errado?

[Error] Ubuscaproduto.pas(94): Undeclared identifier: �loPartialKey�
[Error] Ubuscaproduto.pas(94): Incompatible types: �TLocateOption� and �Integer�
[Error] Ubuscaproduto.pas(96): Record, object or class type required

desde ja agrade�o, abra�os

Thiagoangra2 · Answer

procedure Tfrmbuscapro.DBGrid1DblClick(Sender: TObject);
begin
if DBGrid1.Fields[0].Text <> �� then
begin
dm.cdspro.Locate(�CODIGO�,DBGrid1.FieldS[0].Text,[loPartialKey]);
dm.cdspro.Edit;
frmcadpro.ShowModal.ShowModal;
end;
end;

o codigo � esse!

Alanporto · Answer

o �ltimo erro provavelmente � por que voc� colocou ShowModal.ShowModal

quanto ao loPartialKey, nesse caso ele pode ser dispensado, pois sempre vai existir o c�digo passado. Tenta assim:

procedure Tfrmbuscapro.DBGrid1DblClick(Sender: TObject);
begin
if DBGrid1.Fields[0].AsString <> EmptyStr then
begin
dm.cdspro.Locate(�CODIGO�,DBGrid1.FieldS[0].AsString,[]);
dm.cdspro.Edit;
frmcadpro.ShowModal;
end;
end;

Alanporto · Answer

o �ltimo erro provavelmente � por que voc� colocou ShowModal.ShowModal

quanto ao loPartialKey, nesse caso ele pode ser dispensado, pois sempre vai existir o c�digo passado. Tenta assim:

procedure Tfrmbuscapro.DBGrid1DblClick(Sender: TObject);
begin
if DBGrid1.Fields[0].AsString <> EmptyStr then
begin
dm.cdspro.Locate(�CODIGO�,DBGrid1.FieldS[0].AsString,[]);
dm.cdspro.Edit;
frmcadpro.ShowModal;
end;
end;

Rweberich · Answer

Ola Thiago,[quote:ec78ad3aff=�thiagoangra2�]procedure Tfrmbuscapro.DBGrid1DblClick(Sender: TObject);begin if DBGrid1.Fields[0].Text <> �� then begin dm.cdspro.Locate(�CODIGO�,DBGrid1.FieldS[0].Text,[loPartialKey]); dm.cdspro.Edit; frmcadpro.ShowModal.ShowModal; end;end;o codigo � esse![/quote:ec78ad3aff]� importante que vc informe �loPartialKey� ou pode acrescentar ainda �loCaseInsensitive�, que ficaria assim (,[loPartialKey, loCaseInsensitive]), por que desta forma, vc estara filtrando indiferente se o usuario digite em letras minusculos ou maiusculas.Desta forma, o codigo correto ficaria assim:[b:ec78ad3aff]procedure Tfrmbuscapro.DBGrid1DblClick(Sender: TObject);begin if DBGrid1.Fields[0].Text <> �� then begin dm.cdspro.Locate(�CODIGO�,DBGrid1.FieldS[0].Text,[loPartialKey, loCaseInsensitive]); dm.cdspro.Edit; frmcadpro.ShowModal; end;end;[/b:ec78ad3aff]Obs: Verifique em �Uses�, no cabe�alho, se esta declarado �DB�, ali junto de: �...Windows, Messages, SysUtils..�. Se nao tiver acrescente �DB�. Issu deve ajuda-lo....

F�rum Clicar 2 vezes em uma celula do Grib e exibir outro form #373617