如何改变非激活窗口成为当前活动窗口，并得到某个EDIT框的焦点，往该框传入信息(0分)

nutian · 2002-11-11

如当前活动窗口是Delphi程序，MS Word先前被打开且是非活动窗口， 在Delphi程序中编程，把Word变成当前的活动窗口（得到输入焦点）， 也就是改变窗口的Z order。 先得到WORD的句柄 hdl，不难吧？ 调用：ShowWindow(hwnd,SW_RESTORE);//SW_RESTORE 使窗口激活显示

nutian · 2002-11-12

1、找到所在窗口的句柄，FindWindow或ENumWindows 2、枚举该窗口下所有子窗口的句柄，ENumChildWindows 3、对每一个子窗口加以判断，是否是你所要找的 ================================================== 知道某一个程序正在运行(得到他的进程).如何得到它的窗口句柄.? 可以用 EnumWindows 遍历系统中的顶层窗口，对每个窗口用 GetWindowThreadProcessId 得到该窗口所属的 Process 的 Id，再跟你用 ToolHelp API 得到的各 Process 的 Id 比 较就能知道该窗口属于哪个进程，但是不是进程的主窗口则不好判断，大概需要其他条件， 如已知进程主窗口的标题。 ================================================================= 具体该怎么做才能找到我想要的哪个子窗口的句柄？ 比如一字排开有3个TEdit，个个的标题都是空，我想要第二个的句柄，该怎么办呢？ 是先获取主窗口的句柄，然后调用win api EnumChildWindows 可以列出所有的win control的句柄。看看win api帮助吧 =========================================================== 找到句柄后用GetWindowRect取得控件的位置，然后再根据位置判断 你总要有东西可以判断才行的 如果你的多个EDIT又是叠在一起的话，那就没有办法了。[

] ============================================================== 这个问题你可以这样解决，不知道符合不符合理论，不过我用这种方法确实还没有 出过错。实现很简单 　　就是定义两个全局变量，即一个计数器(integer)与一个名柄。EnumChildWindows()函数 对一个窗口中的子窗口的访问顺序是固定的，在自己回调函数里给计数器计数，当计数器到 指定值(即你所要的子窗口)时，便给全局变量句柄赋枚举函数传来句柄值，即为你所想要的。 这个子窗口被第几次调用你可以用一个MEMO组件来测试获得！

nutian · 2002-11-12

我是这样解决的: 1.编写一个程序定义一个全局变量:Cnt:integer=0;   然后:在EnumChildWindowsProc函数里:       Inc(cnt);       SendMessage(aHwnd,WM_SETTEXT,0,LongInt(PChar(IntToStr(cnt)))); 这样我们就看到了每一个控件的序号.记这个序号. 2.再编写我们真正要编写的程序. 同样定义一个全局变量Cnt, 在EnumChildWindowsProc里对Cnt进行比较就找到了我们要找到的控件了. ========================================================================== 如何控制其他程序窗体上的窗口控件：上 首先申明:我是菜鸟,我只不过想把困绕了我很长时间的问题的解决方案发表出来，免得以 后我又忘记,同时给还不知道这些小知识的同僚一些帮助。各位不要笑我的浅薄。同时为了 表示我的低级，我会很罗嗦的讲一些基本的东西，这些都是我的理解,很不准确。 用我的方法来控制其他程序窗体上的窗口控件，必须先了解什么是回调函数。我的理解是这 样的： 回调函数写出来不是自己的程序去调用的，反而是让其他的东西去调用，比如windows操作 系统，比如其他的程序等等之类的。但是什么时候被调用却不知道了。回调函数一般是按照 调用者的要求定义好参数和返回值的类型，你向调用者提供你的回调函数的入口地址，然后 调用者有什么事件发生的时候就可以随时按照你提供的地址调用这个函数通知你，并按照预 先规定好的形式传递参数。所以很多人打比方，说回调函数还真有点像您随身带的BP机：告 ]诉别人号码，在它有事情时Call您！ 所以一个回调函数写出来之后，一定有个注册的动作，就是告诉调用者，你怎么样找到我写 的函数。某些Windows API 函数会要求以回调函数地址作为其参数之一，例如SetTimer 、 LineDDA 、EnumObjects，以及我们下面要用到的EnumWindows。 在Delphi里声明一个回调函数的格式很简单，例如： function EnumWindowsProc(AhWnd:LongInt;lParam:LongInt):boolean;stdcall; 首先是函数名称可以随便乱取，但函数参数的类型一般不得乱来，其顺序，数据类型等都有 规定的，因为这些都是让其他程序调用的，他们已经规定好了的，但参数名称可以随便乱叫。 注意后面一定要带上“stdcall”， stdcall是标准调用,也就是说采用标准windows参数传递方式来调用函数。 编写函数体就很简单了，利用传递过来的参数就可以了，只要记住，这些参数是别人送给你 的，你只要知道这些参数代表了什么意思。 再看个向调用者注册回调函数入口地址的函数。 function EnumWindows(lpEnumFunc: TFNWndEnumProc; lParam: LPARAM): BOOL; stdcall; TFNWndEnumProc其实就是指针类型。其中的lpEnumFunc就是回调函数的入口地址了。 下面是调用EnumWindows的格式： EnumWindows(@EnumWindowsProc,0); 通过向系统注册回调函数的入口地址，系统就能在需要的时候，调用回调函数，传递参数给 它，也许这些参数就是我们想要的。 EnumWindows函数的功能是：枚举屏幕上所有程序中的顶层窗口，将窗口句柄以参数的形式 传递给回调函数。找到一个窗口，就调用一次回调函数。枚举结束的条件是：要么枚举完所 有的窗口，要么回调函数返回False。 lParam: LPARAM参数是程序定义的值，这个值被传递到回调函数。 回过头来再看一下EnumWindowsProc： function EnumWindowsProc(AhWnd:LongInt;lParam:LongInt):boolean;stdcall; 当系统找到了一个窗口后，就开始调用这个回调函数，将窗口的句柄作为第一个参数传递过 来，将在EnumWindows中lParam: LPARAM这个程序定义的值作为第二个参数传递过来。 所以我们可以在EnumWindowsProc函数中利用传递过来的两个参数来做某些处理了。 下面我们新建一个程序列举系统中所有程序的顶层窗口，我们要得到窗口的标题，要得到窗 口类名称。 得到窗口标题用： function GetWindowText(hWnd: HWND; lpString: PChar; nMaxCount: Integer): Integer; stdcall; 该函数功能是将窗口句柄为hWnd的窗口的标题拷入到一个缓冲区lpString。nMaxCount是拷 入缓冲区内的最大的字符数。 要得到窗口标题还可以发送消息：WM_GETTEXT，其实GetWindowText就是发送WM_GETTEXT消 息的。 要得到窗口类名称用： function GetClassName(hWnd: HWND; lpClassName: PChar; nMaxCount: Integer): Integer; stdcall; 其参数意义和上面的函数差不多。不详细解释了。 我们先编写回调函数：EnumWindowsProc。现在告诉自己，我们已经有了两个参数的值了。 这两个参数是系统给我们的. 为了显示窗口标题和类名，我们用一个TMemo控件。 先在interface部分声明函数。 function EnumWindowsProc(AhWnd:LongInt;AForm:TForm1):boolean;stdcall; 注意我将第二个参数改了，不要紧，到时候调用的时候注意看。 然后在implementation部分定义函数： function EnumWindowsProc(AhWnd:LongInt;AForm:TForm1):boolean; var   lpszClassName,lpszWindowText:array[0..254] of char;  //定义两个缓冲区。 begin   GetWindowText(AhWnd,lpszWindowText,254); //得到窗口标题   GetClassName(AhWnd,lpszClassName,254); //得到窗口类名。   Aform.memo1.lines.add(StrPas(lpszWindowText));   Aform.memo1.lines.add(StrPas(lpszClassName));   Aform.memo1.lines.add('--------------------');   Result:=True; end; 接着需要做的就是调用EnumWindows函数，注册回调函数入口地址，让系统调用回调函数， 列举窗口了。所以再添加一个TButton: btn_listwindow procedure TForm1.btn_listwindowClick(Sender: TObject); begin   EnumWindows(@EnumWindowsProc,LongInt(self)); end; 程序清单如下： unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     Memo1: TMemo;     btn_listwindow: TButton;     procedure btn_listwindowClick(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1;   function EnumWindowsProc(AhWnd:LongInt;AForm:TForm1):boolean;stdcall; implementation {$R *.dfm} function EnumWindowsProc(AhWnd:LongInt;AForm:TForm1):boolean; var   lpszClassName,lpszWindowText:array[0..254] of char; begin   GetWindowText(AhWnd,lpszWindowText,254);   GetClassName(AhWnd,lpszClassName,254);   Aform.memo1.lines.add(StrPas(lpszWindowText));   Aform.memo1.lines.add(StrPas(lpszClassName));   Aform.memo1.lines.add('--------------------');   Result:=True; end; procedure TForm1.btn_listwindowClick(Sender: TObject); begin   EnumWindows(@EnumWindowsProc,LongInt(self)); end; end. F9，运行，看看结果。最好是F7单步跟踪调试一下，看看回调函数是怎么被调用的。

nutian · 2002-11-12

EnumChildWindows和EnumChildProc怎么用啊? function enumchildproc(h:hwnd;l:lparam):bool;stdcall;//自定義函數 var s:array [0..30] of char; begin getclassname(h,@s,30); //在combobox顯示得到的句柄和類名 form1.combobox1.items.add(inttostr(h)+' classname:'+s); result:=true; end; procedure tform1.button1click(sender:tobject); begin enumchildwindows(handle,@enumchildproc,0);//獲得本窗體所有句柄及類名 end;

rockythd · 2003-01-18

学习了

如何改变非激活窗口成为当前活动窗口，并得到某个EDIT框的焦点，往该框传入信息(0分)

nutian

Unregistered / Unconfirmed

nutian

Unregistered / Unconfirmed

nutian

Unregistered / Unconfirmed

nutian

Unregistered / Unconfirmed

rockythd

Unregistered / Unconfirmed

Similar threads