請問個位，我參考過很多大大們的問題~

幾段不同的文字，再IE上按右鍵能選擇其中一段貼上

但大多都是用C Builder寫的

要不就是功能太強大，看不太董

用Delphi也是用Context menu寫嗎？

大約該怎麼寫呢？？





一個初入Delphi的努力大學生

請個位幫幫忙

編輯記錄

因為您重覆提問了，我把另一篇
Delphi K.Top討論區 » Win32 API 使用討論區(Delphi) » 如何用右鍵功能選擇設定文字多段貼上？
刪除了。
請不要多區發同一個問題，再次下發現就直接刪除囉。

另外，您的問題我看了三遍還是看不懂耶，您要的功能是什麼？
是本站那個 BCB 的範例或問題嗎？您可以提供連結讓大家更了解您的問題。

------
http://www.ViewMove.com

我想問的是

在Listbox裡鍵資料 ( 多比 ) 後，能把這些文字資料放入右鍵中使用

例如在網業申請填寫個人資料，像個人資料大多都是固定不變的

能直接在填寫處，按右鍵選擇你鍵入的資料（多比）貼上

當你每次申請不同帳號時就不用重複打，直接貼上

目前我想研究這個功能能否寫出來，看過很多大大們的問題

但感覺跟我需要的都功能不相同

是不是用popupmemu做呢？

能否請大大們跟我一起研究該使用哪些元件做成呢？




不好意思版主，重複貼文
讓你麻煩了

一個初入Delphi的努力大學生

編輯記錄

在 Delphi 中除了 PopupMenu 外，如果您還想作出類似的效果，就只有自己寫或使用第三方元件。
使用 TPopupMenu 其 Items 是 TMenuItem
而您可自行建立 TMenuItem 加/刪/改到原有 MenuItem 的 SubMenu 內
可參考 TMenuItem.Add 的線上說明。

在 ListBox(或其他UI元件) 內編好資料，再自行將資料更新到 TMenuItem 即可。

以下取自 BCB5 線上說明：(Delphi 應該也有才對)

Adding a TMenuItem to a Popup menu at runtime example
This example demonstrates how to add and delete menu items to a popup menu at runtime and assign an event handler to the OnClick event.

void __fastcall TForm1::AddButtonClick(TObject *Sender)
{
const int num_items = 4;
for (int index = 0; index < num_items; index)
{
TMenuItem *NewItem = new TMenuItem(PopupMenu1); // create the new item
PopupMenu1->Items->Add(NewItem);// add it to the Popupmenu
NewItem->Caption = "Menu Item " IntToStr(index);
NewItem->Tag = index;
NewItem->OnClick = PopupMenuItemsClick;// assign it an event handler
}
}

void __fastcall TForm1::PopupMenuItemsClick(TObject *Sender)
{
TMenuItem *ClickedItem = dynamic_cast(Sender);
if (ClickedItem)
{
switch (ClickedItem->Tag)
{
case 0:
{
ShowMessage("first item clicked");
break;
}
case 1:
{
ShowMessage("second item clicked");
break;
}
// etc...

}
}
}


To edit or destroy an item, grab its pointer via the TMenuItem::Items Property.

void __fastcall TForm1::EditButtonClick(TObject *Sender)
{
const int index = 1;
TMenuItem *ItemToEdit = PopupMenu->Items->Items[index];
ItemToEdit->Caption = "Changed Caption";
}

void __fastcall TForm1::DestroyButtonClick(TObject *Sender)
{
const int index = 2;
TMenuItem *ItemToDelete = PopupMenu->Items->Items[index];
delete ItemToDelete;
}

------
http://www.ViewMove.com

謝謝dllee站務副站長為我回答問題

但是我還是有很多不了解的地方

要在uses、type 或 var 宣告哪些東西或是放其他元件嗎？

我是放上Popup memu跟edit而以

popup menu 的 menu items 我第一次使用，該如何使用呢？

如果目前只用姓名、性別 做在右鍵中，該怎麼設定在Popup memu裡呢？




一個初學者挑戰比較難的題目，看了程式碼有很多不解

可以麻煩您教我一下嗎，可能您覺得您講了我也不太了解

但我還是希望您能解釋給我看一下，麻煩您了，謝謝。

編輯記錄

去買本書看看吧！不然就去Google去查看看
你的這一句＂一個初學者挑戰比較難的題目，看了程式碼有很多不解＂
初學者應該把基本的打好，而不是還沒學會走路就想飛了
一點意見，若有得罪請見諒
===================引 用 arthur760119 文 章===================
謝謝dllee站務副站長為我回答問題

但是我還是有很多不了解的地方

要在uses、type 或 var 宣告哪些東西或是放其他元件嗎？

我是放上Popup memu跟edit而以

popup menu 的 menu items 我第一次使用，該如何使用呢？

如果目前只用姓名、性別 做在右鍵中，該怎麼設定在Popup memu裡呢？




一個初學者挑戰比較難的題目，看了程式碼有很多不解

可以麻煩您教我一下嗎，可能您覺得您講了我也不太了解

但我還是希望您能解釋給我看一下，麻煩您了，謝謝。

請善用 Online Help
程式語言所使用的英文單字真的不多，多看幾次就熟了，
如果排斥英文線上說明，我想，去圖書館借幾本中文的 Delphi 回來看吧。
Delphi 5 以上的入門書都可以，因為您的問題只是對 TPopupMenu, TMenuItem
會基本操作就可以作出來了。
如果真的不行，請把您目前的程式貼出來。
說真的，我還是不了解您目前到底是作成怎樣？
「目前只用姓名、性別 做在右鍵中」
這句話我實在是看不懂...

------
http://www.ViewMove.com

我先問重點好了~~

在windows的剪貼簿中，有辨法做到像 word 當你每按複製時

都會存每次複製的東西，當你下次按複製時

word 的右邊會出現之前複製過的東西讓你選擇後貼上

就不用一在重複複製你所要的文字

我想說的是~~能用程式做到像word存取選擇剪貼簿嗎？

程式幾乎什麼都能作(除了生小孩)，只是看寫不寫得出來。
想寫程式，自己出題(或別人出題)，之後要規劃/構想可能的方法，
接著寫小程式測試主要的想法或是沒用過的元件功能測試，
之後再按規劃/構想寫出想要的程式。

您要想的能，在網路上可以找到現成的，甚至有原始碼(只是不一定是 Delphi)，
(我以前使用過的 LiteStep 有類似的 Plugins 是 VC 原始碼, 應該也有獨立的程式)
元件使用方式不熟，就只有多練習，看線上說明，有那些 Property/Method/Event
是可能會用到的，就要試一試它的功能是否與預期的相同，這樣才能熟悉元件。

如果要像 Word 在旁邊列表顯示，也不一定要用 TPopupMenu，完全看您想要
如何作。

使用 google 用 Clipboard Tools/Uitility/Recorder 等等 Keyword 就可以找到許多現成的工具，如：
http://lists.thedatalist.com/pages/Clipboard_Tools.htm
ArsClip 免費含 Delphi6 Source
只要花點時間找，就可以找到更多，因為這樣的工具太多，並不是很難作到的事，
如果真的要作，多看看別人已作了什麼功能，是否自己可以想出其他有用的功能。

請您試著去作，有問題再問。

------
http://www.ViewMove.com

編輯記錄