请教各位大侠:已知一个窗口的句柄,如何检索该Form上的所有控件,并判断其类型(100分)

baoling · 2001-12-05

请教各位大侠:已知一个窗口的句柄,如何检索该Form上的所有控件,并判断其类型, 该窗口可能是其他应用程序的窗体

baoling · 2001-12-05

另:还可以修改检索到的控件的属性,如:Tlabel,我可以修改它的caption的属性

seago · 2001-12-05

不知道其它的应用程序的窗口行不行，你试试看吧！ 你可以使用FORM的Components属性或Controls属性，如：   Temp:TComponets;   for I :=0　to Form.ComponentCount - 1 do   begin     Temp := Components;     if (Temp is TLabel) then     begin       (Temp as TLabel).caption:="be changed";     end;   end;

maming · 2001-12-05

多使用几次getwindow就行了。

littlefish · 2001-12-05

其它的应用程序的窗口似乎不行，另Temp的类型不是TComponets，而是TComponet

antic_ant · 2001-12-05

API函数 EnumChildWindows

eric.youbin · 2001-12-05

(FindComponent('label5') as Tlabel).caption ;= 'haha';

DragonPC_??? · 2001-12-05

> API函数 EnumChildWindows 补充一点，获取句柄就可以用GetClassName获取类名，SPY，WinSight之类的工具都是这样调用的。

free_knight · 2001-12-05

就是这样： procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin   for I :=0 to Form1.ComponentCount - 1 do   begin     if (Form1.Components is TLabel) then           (Form1.Components as TLabel).Caption:='This is a label';    end; end; 已经测试通过

tinytao · 2001-12-05

procedure TForm1.Button1Click(Sender: TObject);   function EnumChildWindowsProc(hwnd: Integer): Boolean; stdcall;   var     buffer: array[0..255] of Char;   begin     Result := True;       GetClassName(hwnd,buffer,256);  //得到类名     Form1.Memo1.Lines.add(buffer);  //加到Memo显示   end; var   hwnd: Integer;   buffer: Array[0..1023] of Char; begin   Memo1.Clear;   hwnd := FindWindow(nil,'窗口');   //得到目标窗口句柄   if hwnd<>0 then       EnumChildWindows(hwnd,@EnumChildWindowsProc,Integer(@hwnd)); end; 给分吧。

newsweep · 2001-12-05

沒必要這麼難吧 這樣用吧 procedure TForm1.Button1Click(Sender: TObject); procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin   listbox1.Items.Clear ;   for I :=0 to Form1.ComponentCount - 1 do      listbox1.Items.Add(Form1.Components.ClassName) ; end;

yzhshi · 2001-12-05

就是需要使用tinytao的办法。 得到不同于本可执行文件的其他窗体上元素的信息

duckdo · 2001-12-05

同意 DragonPC_??? 的说法！

baoling · 2001-12-05

肯定是要使用API函数的,使用ComponentCount检索的方法适合Delphi自己的Form,其他应用 程序的就不可能了,使用EnumChildWindows函数有基本可以,但是没有句柄的按钮或其他对象好 像无法检索到,另有没有修改属性的办法

tan_jian · 2001-12-23

function hasChildWindow(H: HWND): boolean; begin   if getWindow(H,GW_CHILD)=0 then   result:=false else   result:=true; end; procedure allwindow(H: HWND); var P: PChar;     w:HWND; begin   if HasChildWindow(H) then   begin     getmem(P,256);     w:=getwindow(H,GW_CHILD);     while w<>0 do     begin       GetClassName(w,P,256);       GetWindowText(w,P,256);       if  HasChildWindow(w) then       allwindow(w);  //地跪调用       GetWindow(w,GW_HWNDNEXT);    end;     Freemem(P);     end; end

cntiny · 2003-11-17

尤其是label没handle怎么取啊？

请教各位大侠:已知一个窗口的句柄,如何检索该Form上的所有控件,并判断其类型(100分)

baoling

Unregistered / Unconfirmed

baoling

Unregistered / Unconfirmed

seago

Unregistered / Unconfirmed

maming

Unregistered / Unconfirmed

littlefish

Unregistered / Unconfirmed

antic_ant

Unregistered / Unconfirmed

eric.youbin

Unregistered / Unconfirmed

DragonPC_???

Unregistered / Unconfirmed

free_knight

Unregistered / Unconfirmed

tinytao

Unregistered / Unconfirmed

newsweep

Unregistered / Unconfirmed

yzhshi

Unregistered / Unconfirmed

duckdo

Unregistered / Unconfirmed

baoling

Unregistered / Unconfirmed

tan_jian

Unregistered / Unconfirmed

cntiny

Unregistered / Unconfirmed

Similar threads