請問各位大大~~
我想要把listbox所點到的內容複製起來
然後想要貼到記事本或是word中
請問要怎麼寫呢@@?
謝謝

指定要的路徑 直接存起來就行了 listbox->Items->SaveToFile('C:\123.txt');
===================引 用 文 章===================
請問各位大大~~
我想要把listbox所點到的內容複製起來
然後想要貼到記事本或是word中
請問要怎麼寫呢@@?
謝謝

不好意思~不是這樣子滴
是我表達的不清楚>"<
我所要的功能是指~當我按了listbox中的某一個item時
也要同時有ctrl c的功能把該item的內容存起來(是存到剪貼簿是吧?)
然後這樣一來我才可以在一些應用程式上(word、記事本、excel、IE...等等)使用貼上
不知道這樣子表達有人懂嗎@@?


===================引 用 文 章===================
指定要的路徑 直接存起來就行了 listbox->Items->SaveToFile('C:\123.txt');
===================引 用 文 章===================

請問各位大大~~
我想要把listbox所點到的內容複製起來
然後想要貼到記事本或是word中
請問要怎麼寫呢@@?
謝謝

參考 http://www.swissdelphicenter.ch/torry/showcode.php?id=640 這一篇
不過這一篇是複製所有的 TListBox 的 Items, 你再依自己需要修改.

uses
Clipbrd;

procedure ListBoxToClipboard(ListBox: TListBox;
BufferSize: Integer;
CopyAll: Boolean);
var
Buffer: PChar;
Size: Integer;
Ptr: PChar;
I: Integer;
Line: string[255];
Count: Integer;
begin
if not Assigned(ListBox) then
Exit;

GetMem(Buffer, BufferSize);
Ptr := Buffer;
Count := 0;
for I := 0 to ListBox.Items.Count - 1 do
begin
Line := ListBox.Items.strings[I];
if not CopyAll and ListBox.MultiSelect and (not ListBox.Selected[I]) then
Continue;
{ Check buffer overflow }
Count := Count Length(Line) 3;
if Count = BufferSize then
Break;
{ Append to buffer }
Move(Line[1], Ptr^, Length(Line));
Ptr := Ptr Length(Line);
Ptr[0] := #13;
Ptr[1] := #10;
Ptr := Ptr 2;
end;
Ptr[0] := #0;
ClipBoard.SetTextBuf(Buffer);
FreeMem(Buffer, BufferSize);
end;

procedure ClipboardToListBox(ListBox: TListbox);
begin
if not Assigned(ListBox) then
Exit;

if not Clipboard.HasFormat(CF_TEXT) then
Exit;

Listbox.Items.Text := Clipboard.AsText;
end;


//Copy all items from Listbox1 to the clipboard
procedure TForm1.Button1Click(Sender: TObject);
begin
ListBoxToClipboard(ListBox1, 1024, True);
end;

//Paste items in clipboard to Listbox2
procedure TForm1.Button2Click(Sender: TObject);
begin
ClipboardToListBox(Listbox2);
end;

//Copy only selected items from Listbox1 to the clipboard
procedure TForm1.Button3Click(Sender: TObject);
begin
ListBoxToClipboard(Listbox1, 1024, False);
end;

謝謝hagar大大~
我已經了解要怎麼去使用它了
原來還可以有更多的用法
讓我學到了更多
謝謝~~

//////
因為是hagar給了正解
所以結案囉~~^^