全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:2433
推到 Plurk!
推到 Facebook!

Edit.SelectAll如何用PostMessage做到?

答題得分者是:Justmade
MingLin
一般會員


發表:24
回覆:26
積分:10
註冊:2002-09-20

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-03-19 15:04:00 IP:211.23.xxx.xxx 未訂閱
我需要用PostMessage做到Edit.SelectAll的功能,請問各位先進該用哪一個WM_xxxxxxxxxxx或是其他方法來做呢?謝謝!
Justmade
版主


發表:94
回覆:1934
積分:2030
註冊:2003-03-12

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-03-19 15:17:39 IP:218.16.xxx.xxx 未訂閱
試試 SendMessage(ActiveControl.Handle, EM_SETSEL, 0, -1);
MingLin
一般會員


發表:24
回覆:26
積分:10
註冊:2002-09-20

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-03-19 16:15:10 IP:211.23.xxx.xxx 未訂閱
Thank you!EM_SETSEL已經可以work,再請問該用哪一個WM_xxxxxxxxx來取得此Edit.Text呢?我怎麼是都取到空字串,謝謝!
Justmade
版主


發表:94
回覆:1934
積分:2030
註冊:2003-03-12

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-03-19 16:33:44 IP:218.16.xxx.xxx 未訂閱
不是就用 WM_Copy 來抄出來嗎? 有沒試過 EM_GETSEL ? 若你是去取 password 欄位好像是不行的耶... 你現在是用甚麼來取? 發表人 - Justmade 於 2003/03/19 16:36:49
MingLin
一般會員


發表:24
回覆:26
積分:10
註冊:2002-09-20

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-03-19 17:03:37 IP:211.23.xxx.xxx 未訂閱
我就是用WM_COPY但就是抓不出來,程式碼如下: ClipBoard:=TClipBoard.Create; ClipBoard.Clear; PostMessage(EditHandle,WM_SETFOCUS,0,0); PostMessage(EditHandle,EM_SETSEL,0,-1); PostMessage(EditHandle,WM_COPY,0,0); if Clipboard.HasFormat(CF_TEXT) then begin Edit1.Clear; Edit1.PasteFromClipBoard; end; ClipBoard.free; 但是Edit1.Text都是空的,請幫忙指正!謝謝!
timhuang
尊榮會員


發表:78
回覆:1815
積分:1608
註冊:2002-07-15

發送簡訊給我
#6 引用回覆 回覆 發表時間:2003-03-19 17:06:44 IP:211.76.xxx.xxx 未訂閱
引言: Thank you!EM_SETSEL已經可以work,再請問該用哪一個WM_xxxxxxxxx來取得此Edit.Text呢?我怎麼是都取到空字串,謝謝!
hi, 如 Justmade 兄所說, 可以利用 WM_COPY 來實現. SendMessage(ActiveControl.Handle, WM_COPY, 0, 0); 你可以試著追 TEdit 的 CopyToClipboard 來找出以上的 程式. 你問的 SELECTALL 也是, 底下列出這兩個功能的原始碼:
procedure TCustomEdit.CopyToClipboard;
begin
  SendMessage(Handle, WM_COPY, 0, 0);
end;    procedure TCustomEdit.SelectAll;
begin
  SendMessage(Handle, EM_SETSEL, 0, -1);
end;
timhuang
尊榮會員


發表:78
回覆:1815
積分:1608
註冊:2002-07-15

發送簡訊給我
#7 引用回覆 回覆 發表時間:2003-03-19 17:16:30 IP:211.76.xxx.xxx 未訂閱
引言: 我就是用WM_COPY但就是抓不出來,程式碼如下: ClipBoard:=TClipBoard.Create; ClipBoard.Clear; PostMessage(EditHandle,WM_SETFOCUS,0,0); PostMessage(EditHandle,EM_SETSEL,0,-1); PostMessage(EditHandle,WM_COPY,0,0); if Clipboard.HasFormat(CF_TEXT) then begin Edit1.Clear; Edit1.PasteFromClipBoard; end; ClipBoard.free; 但是Edit1.Text都是空的,請幫忙指正!謝謝!
HI, 因為你使用了 PostMessage, 是不等待回應的一種 Message 傳遞, 有可能尚未完成 copy 至剪貼簿的關係. 使得你的 if Clipboard.HasFormat(CF_TEXT) then 不會為真, 所以當然不會得到結果, 建議你將三個 PostMessage 改為 SendMessage 即可!! // SendMessage(EditHandle,WM_SETFOCUS,0,0); 這行不需要 SendMessage(EditHandle,EM_SETSEL,0,-1); SendMessage(EditHandle,WM_COPY,0,0); 發表人 - timhuang 於 2003/03/19 17:41:28
系統時間:2024-05-06 19:22:01
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!