線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1150
推到 Plurk!
推到 Facebook!

FindWindow將其他form物件下所有的資料取出來但無法取Label??

尚未結案
jeffreck
高階會員


發表:247
回覆:340
積分:197
註冊:2003-01-23

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-11-01 22:09:33 IP:61.70.xxx.xxx 未訂閱
各位前輩請教一下:    利用FindWindow將其他form物件下所有的資料取出來但無法取Label??    我參考http://delphi.ktop.com.tw/topic.php?TOPIC_ID=30409 所作範例但有一問題,就是無法取Label的資料不知為?? 可否請前輩教我下!! procedure TForm1.Button1Click(Sender: TObject); var   h: HWND; begin   h:=FindWindow(nil, PChar(Edit1.Text));   if h <> 0 then   begin     EnumChildWindows(h, @EnumChildProc, 0);   end; end;    function EnumChildProc(h: hwnd;  a: integer): Boolean; stdcall; var   str: Array[0..1024] of Char; begin   Result := true;   if h <> 0 then   begin     GetClassName(h, str, 1024);     Form1.Memo1.Lines.Add('classname='+str);     SendMessage(h, WM_GETTEXT, 1024, integer(@str[0]));     Form1.Memo1.Lines.Add('gettext='+str);     Form1.Memo1.Lines.Add('');   end; end; 非常非常的謝謝你,因為有你這世界變的更美好 ☆ ^_^ ☆ °∴°﹒☆°.﹒‧°∴°﹒°.﹒‧°∴°﹒ ﹒‧°∴°﹒☆°.﹒‧°∴°﹒°.﹒‧°∴°﹒﹒‧°∴°﹒☆°. 發表人 - jeffreck 於 2003/11/01 22:56:30
pgdennis
資深會員


發表:41
回覆:526
積分:443
註冊:2002-05-23

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-11-03 15:41:50 IP:218.163.xxx.xxx 未訂閱
因為label繼承於TGraphiccontrol,這個父親沒有HANDLE,所以凡是繼承他的 都沒有handle,好處是比較不佔資源.. Findwindow函式只能找繼承於Twincontrol的元件.... 看一下TGraphiccontrol,Twincontrol的說明你就可以了解了 永遠追不上技術更新的速度
------
星期一,二...無窮迴圈@@
系統時間:2024-05-10 17:30:06
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!