能邦我，我太感谢您了。请进来吧，关于98和2000中的EnumChildWindows函数的疑问？(50分)

yypeng · 2004-01-07

我想让另一个程序的combobox改变值,想用此函数找到那个窗口的combobox,然后模拟点击下键，来选择值，并按回车确认。这个函数我在98下完全可以通过，但在2000下就不行了，调试它发现它只执行一次，就是只能取得所给窗口句柄中的第一个控件句柄就退出了，所以程序不能够找到那个combobox句柄，我不知道这个函数在98下和在2000下有什么不同？请各位大侠能够告诉我。我起初还以为我的2000不行，换了台机器，依然是这样，我想，这可能是此函数在98中和2000中不一样，　　　　　　　　　　　　　　　　　　　　　　　　　　　　　请各位大侠给小生讲解一下为什么吧！　　太感谢了。。。。。。。。。。。function  EnumChildWndProc(AhWnd:HWnd;  AlParam:lParam):boolean;stdcall; var  WndClassName: array[0..254] of Char;  TXT:STRING;  Hwnd,h1: THandle;  Text: string;  Count: Integer; begin  GetClassName(AhWnd,wndClassName,255);  if pos('COMBOBOX',uppercase(strpas(wndclassname)))>0 then  begin    Count := SendMessage(AHwnd, CB_GETCOUNT, 0, 0);    IF COUNT=4 THEN    BEGIN        SENDMESSAGE(aHWND,WM_KEYDOWN,VK_DOWN,0);        SENDMESSAGE(aHWND,WM_KEYDOWN,VK_DOWN,0);        SENDMESSAGE(AHWND,WM_KEYDOWN,VK_RETURN,0);    END;   end;  if Pos('EDIT',uppercase(strpas(wndclassname)))>0 then      sendmessage(ahwnd,wm_settext,0,longint(pchar(apppath+'tmp'))); end;

weiwei81123 · 2004-01-07

To continue enumeration, the callback function must return TRUE; to stop enumeration, it must return FALSE.

wjh_wy · 2004-01-07

EnumChildWndProc(AhWnd:HWnd;  AlParam:lParam):boolean;stdcall; var  WndClassName: array[0..254] of Char;  TXT:STRING;  Hwnd,h1: THandle;  Text: string;  Count: Integer; begin  GetClassName(AhWnd,wndClassName,255);  if pos('COMBOBOX',uppercase(strpas(wndclassname)))>0 then  begin    Count := SendMessage(AHwnd, CB_GETCOUNT, 0, 0);    IF COUNT=4 THEN    BEGIN        SENDMESSAGE(aHWND,WM_KEYDOWN,VK_DOWN,0);        SENDMESSAGE(aHWND,WM_KEYDOWN,VK_DOWN,0);        SENDMESSAGE(AHWND,WM_KEYDOWN,VK_RETURN,0);    END;   end;  if Pos('EDIT',uppercase(strpas(wndclassname)))>0 then      sendmessage(ahwnd,wm_settext,0,longint(pchar(apppath+'tmp'))); [red]  Result := True;[/red] end;

wjh_wy · 2004-01-07

请看如下示例： {our callback function prototype} function EnumerateChildWindows(hWnd:HWND; lParam:LPARAM): BOOL; stdcall; var   Form1: TForm1; implementation procedure TForm1.EnumerateChildWindows1Click(Sender: TObject); begin    {empty our list box}    ListBox1.Items.Clear;    {enumerate all child windows belonging to Form1}    EnumChildWindows(Form1.Handle,@EnumerateChildWindows,0); end; {these steps execute for every child window belonging to the parent} function EnumerateChildWindows(hWnd: HWND; lParam: LPARAM): BOOL; var    ClassName: Array[0..255] of char;  // this holds the class name of our child windows begin    {get the class name of the given child window}    GetClassName(hWnd,ClassName,255);    {display it in the list box}    Form1.ListBox1.Items.Add(ClassName);    {continue enumeration}    Result:=TRUE; end;

wjh_wy · 2004-01-07

详细请看： http://www.delphibbs.com/delphibbs/dispq.asp?lid=819474

yypeng · 2004-01-08

谢谢两位的帮助，是我不对，没有多看英文说明，不过，我的E文的确很差，再次感谢！

能邦我，我太感谢您了。请进来吧，关于98和2000中的EnumChildWindows函数的疑问？(50分)

yypeng

Unregistered / Unconfirmed

weiwei81123

Unregistered / Unconfirmed

wjh_wy

Unregistered / Unconfirmed

wjh_wy

Unregistered / Unconfirmed

wjh_wy

Unregistered / Unconfirmed

yypeng

Unregistered / Unconfirmed

Similar threads