Fórum Copiar as informações de um campo de uma tabela (como se fosse dar um control + c na informação do campo) #551868

19/04/2016

0

Tenho um campo de uma tabela do tipo memo, do qual possui um texto dentro, gostaria de saber como faço para copiar esse texto dando dois cliques no campo do grid.


procedure Tcadastro.DBGrid1DblClick(Sender: TObject);
begin

if DBGrid1.SelectedIndex = 6 then
(nesse momento, copiar o conteúdo do campo do clientdataset) //para que depois eu possa dar um ctrl + v em qualquer lugar.


end;
Jhon

Jhon

Responder

Post mais votado

20/04/2016

Para isso, Tem que declarar no uses a unit ClipBrd.
No evento DblClick do Grid

procedure Tcadastro.DBGrid1DblClick(Sender: TObject);
begin
  if DBGrid1.SelectedIndex = 6 then
     Clipboard.asText := DBGrid1.Fields[6].AsString;
end;


veja mais em Adicionar dados a Área de Transferência através do Delphi

Eduardo Mendonça

Eduardo Mendonça
Responder

Gostei + 2

Mais Posts

20/04/2016

Jhon

perfeito, obrigado.
Responder

Gostei + 0

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

Aceitar