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

Delphi

19/04/2016

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

Curtidas 0

Melhor post

Eduardo Mendonça

Eduardo Mendonça

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
GOSTEI 2

Mais Respostas

Jhon

Jhon

19/04/2016

perfeito, obrigado.
GOSTEI 0
POSTAR