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.

[roman]

¿Por qué no usas directamente el Clipboard de la unidad Clipbrd?

Código Delphi [-]
procedure TfrCasarFact2Conta.spCopiarClick(Sender: TObject);
begin
  Clipboard.AsText := DmConta.QrContaConcepto.AsString;
end;

// Saludos

[marcoszorrilla]

Sabía que se podía pero no daba con ello y como corría prisa hice el arreglo comentado, naturalmente mañana mismo lo cambio, aunque por fuera no se va a notar, el meter un Edit que no pintaba nada en la batalla me tenía de cabeza.

Un Saludo.