在Delphi中，
可否去判斷滑鼠所圈選文字的內容（備註：滑鼠圈選的文字並非在自己本身程式，而是像是網頁中或Word內之文字內容），
並且當按下Ctrl C時，
可以複製到剪貼簿，
並且自己所製作的程式可同時抓取其文字內容？
如可以那該如何去實現它？



((小弟為Delphi新手，但因所製作程式需求，請各位大大幫忙！

第一個問題小弟不太清楚是否可行
但對於第二個問題
假如是想判斷剪貼簿中是否有文字內容
可以用比較簡單的方式判斷~
先uses Clipbrd
在Timer的事件中:

if Trim(ClipBoard.AsText) <> '' then
Memo1.Lines.Add(ClipBoard.AsText);
ClipBoard.Clear;


===================引 用 lonhou2005 文 章===================
在Delphi中，
可否去判斷滑鼠所圈選文字的內容（備註：滑鼠圈選的文字並非在自己本身程式，而是像是網頁中或Word內之文字內容），
並且當按下Ctrl C時，
可以複製到剪貼簿，
並且自己所製作的程式可同時抓取其文字內容？
如可以那該如何去實現它？



((小弟為Delphi新手，但因所製作程式需求，請各位大大幫忙！

感謝大大的剪貼怖判斷提醒
小弟想到直接判斷剪貼怖
是否有東西
然後再執行所製作程式想執行的步驟就可以了
((奇怪...當初怎沒想到 ~"~


但小弟又有另一個問題
那就是有沒有可能
直接複製滑鼠圈起來的文字((不必按下Ctrl C






===================引 用 老大仔 文 章===================
第一個問題小弟不太清楚是否可行
但對於第二個問題
假如是想判斷剪貼簿中是否有文字內容
可以用比較簡單的方式判斷~
先uses Clipbrd
在Timer的事件中:

if Trim(ClipBoard.AsText) <> '' then
Memo1.Lines.Add(ClipBoard.AsText);
ClipBoard.Clear;

編輯記錄

很簡單, 

procedure TForm2.Button1Click(Sender: TObject);
begin
Button1.Caption := Edit1.SelText;
end;

依照上例, 這樣就會把 Edit1 被圈選的部分複製到 Button1 的標題上了
TMemo 也有類似的屬性

------
Mephise Chen
前興德工程師

透過Edit1的方式小弟有些了解
只是
小弟所要抓取的文字並非在本身程式內
而是位於其他文件中
如：Word、網頁內容...



===================引 用 mephise 文 章===================
很簡單,

procedure TForm2.Button1Click(Sender: TObject);
begin
Button1.Caption := Edit1.SelText;
end;

依照上例, 這樣就會把 Edit1 被圈選的部分複製到 Button1 的標題上了
TMemo 也有類似的屬性

應該是不行喔  
因為 Word 幹了什麼事情, 你的程式並不會知道啊
所以才需要剪貼簿這種東西的存在

------
Mephise Chen
前興德工程師