Copiar de una rejilla al portapeles.

[marcoszorrilla]

Me pide el contable que cuando se situe en la columna concepto de una rejilla en la que se visualizan facturas, se copie dicho contenido al portapapeles, para luego poder pegarlo en el programa contable correspondiente.

Como no he encontrado que la rejilla tenga esa propiedad he hecho un "truco sucio".

He creado un Edit que lo he llamado ed2Papeles y he puesto su propiedad visible a falso y luego con este código me funciona de maravilla, pero me gustaría ver otras ideas.

Código Delphi [-]
procedure TfrCasarFact2Conta.spCopiarClick(Sender: TObject);
begin
Ed2Papeles.Text:=DmConta.QrContaConcepto.AsString;
ed2Papeles.SelectAll;
Ed2Papeles.CopyToClipboard;
end;

Un Saludo.