Foros Club Delphi - Copiar contenido de Edit->Text al portapapeles de windows

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- API de Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=7)

- - Copiar contenido de Edit->Text al portapapeles de windows (https://www.clubdelphi.com/foros/showthread.php?t=52457)

JuanErasmo

22-01-2008 00:10:09

Copiar contenido de Edit->Text al portapapeles de windows

Buenas tardes amigos.

Como copio el contenido de un Edit, (Edit->text) al portapapeles de windows con codigo?

Muchas Gracias

cHackAll

22-01-2008 00:30:24

Código Delphi [-] Edit1.SelectAll;
 Edit1.CopyToClipboard;

jachguate

22-01-2008 02:13:50

Otro método:

Código Delphi [-]uses clipbrd;
...
begin
  Clipboard.AsText := Edit1.Text;
end;

Hasta luego.

;)

cHackAll

22-01-2008 03:18:01

Otro :D:

Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject);
var hMem: Cardinal; lpStr: PChar;
begin
 OpenClipboard(Handle);
 hMem := GlobalAlloc(GMEM_MOVEABLE or GMEM_DDESHARE, Length(Edit1.Text) + 1);
 lpStr := GlobalLock(hMem);
 lstrcpy(lpStr, PChar(Edit1.Text));
 SetClipboardData(CF_TEXT, hMem);
 GlobalUnlock(hMem);
 GlobalFree(hMem);
 CloseClipboard;
end;

Saludos

JuanErasmo

22-01-2008 04:44:34

muchas gracias a todos,,,,
de mucha ayuda!

La franja horaria es GMT +2. Ahora son las 17:53:25.