点“复制”按钮,把listbox的内容复制到剪贴板? 求教点“复制”按钮,把listbox的内容复制到剪贴板 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Clipbrd;type TForm1 = class(TForm) ListBox1: TListBox; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin listbox1.Items.Add('test'); Clipboard.SetTextBuf(PChar(listbox1.Items.Text));end;end. 拿去试一下。use Clipbrdprocedure TForm1.btn1Click(Sender: TObject);var I : Integer;begin Clipboard.Clear; for I := 0 to lst1.Count - 1 do begin Clipboard.AsText := Clipboard.AsText + #13#10 + lst1.Items[I]; end;end; 两位的代码都能用,2楼更强大,只是2楼粘贴后第一行是空的,我把#13#10放在后面了。总之问题搞定,CSDN很强大,结贴散分! 如何用delphi操作Excel查找所有包含特定字符串的数据? TIdHttp的问题, 方法调用出现异常 过年不回家,找份事情做!报酬面议! 文件里的字符串替换 求助:为什么出错? 使用特定控件,在安装程序制作时要注意哪些? format的用法 诸位能人将士帮帮忙吧,为什么这么多关于传真的帖子没有一个实质性的回答? 消息 ----- 在线等待 关于关机的问题 delphi stringreplace函数问题 请叫一个UPDATE的方法.
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Clipbrd;type
TForm1 = class(TForm)
ListBox1: TListBox;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
listbox1.Items.Add('test');
Clipboard.SetTextBuf(PChar(listbox1.Items.Text));
end;end.
use Clipbrdprocedure TForm1.btn1Click(Sender: TObject);
var
I : Integer;
begin
Clipboard.Clear;
for I := 0 to lst1.Count - 1 do
begin
Clipboard.AsText := Clipboard.AsText + #13#10 + lst1.Items[I];
end;
end;
总之问题搞定,CSDN很强大,结贴散分!