Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   pasar de listbox a clipboard (https://www.clubdelphi.com/foros/showthread.php?t=23333)

lastfenix 14-07-2005 03:49:51

pasar de listbox a clipboard
 
oigan como paso de un objeto seleccionado en un listbox al portapaeles(clipboard)?

Delphius 14-07-2005 04:15:44

pequeña ayuda
 
No me acuerdo mucho... pero investiga sobre TClipboard en la ayuda de delphi.
En uses debes declarar una librería, (Clipbrd)...
despues puedes declarar una variable de tipo TClipboard y con dicha variable puede agregar lo que quieras al portapapeles. Lo mismo puedes hacer a la inversa: copiar desde el portapapeles.

Espero haberte ayudado en algo.

dec 14-07-2005 07:52:24

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] 14-07-2005 09:41:01

...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 14-07-2005 09:50:50

Hola,

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

Gracias Neftali.


La franja horaria es GMT +2. Ahora son las 10:03:40.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi