pasar de listbox a clipboard

[dec]

Hola,

Como apunta Delphius podría tratarse de utilizar de la unidad "ClipBrd" la clase "TClipBoard" más o menos de este modo:

Código Delphi [-]
uses
   ClipBrd;
 
 procedure TForm1.Button1Click(Sender: TObject);
 var
   s: string;
   i: integer;
   cb: TClipboard;
 begin
   i := ListBox1.ItemIndex;
   if i > -1 then
   begin
     cb := TClipboard.Create;
     s := ListBox1.Items[i];
     cb.SetTextBuf(PChar(s));
     cb.Free;
   end;
 end;

[Neftali [Germán.Estévez]]

...sólo un apunte a lo comentado; En caso de añadir la unit clipbrd al uses ya no hace falta crear la variable del tipo TClipBoard, ya que la propia clase devuelve un objeto al intentar accederlo (tiene una función que lo crea si no existe); Así que el código se puede quedar en:

Código Delphi [-]
 uses
   ClipBrd;
 
 procedure TForm1.Button1Click(Sender: TObject);
 var
   s: string;
   i: integer;
 begin
   i := ListBox1.ItemIndex;
   if i > -1 then
   begin
     s := ListBox1.Items[i];
     Clipboard.SetTextBuf(PChar(s));
     // o tambien...
     Clipboard.AsText(s); 
   end;
 end;

[dec]

Hola,

Nunca te acostarás sin saber una cosa más. Pintiparado refrán.

Gracias Neftali.