关于SendMessage,(问题没结束呢，继续来高手啊); (20分)

易名烦 · 2003-01-18

有一程序，上有很多EDIT，不是DEPHI写的，光标正定位在某一EDIT上，我向窗口发送 消息：SendMessage(R3Hwnd,WM_KeyDown,65,0);其中65是"A"，但EDIT中无反应。 我是这样理解的，窗口中的很一控件都有自己的HANDLE，要向对应的HANDLE中发消息。 (不知道对不对)     如果是这样，我要怎么找到光标所在的EDIT的HANDLE呢？

张无忌 · 2003-01-18

你可以发送SENDMESSAGE(WINDOWSHANDLE,WM_COMMAND,参数1，参数2); 通过参数来发送你要设置的字符,这个最好查MSDN

易名烦 · 2003-01-18

什么啊，参数就是按键值吧？ 我现在要搞懂怎么向指定的EDIT发消息。 怎么取得光标所在EDIT的HANDLE。

张无忌 · 2003-01-18

这个很简单，用一个API就可以取得光标过在的窗口的句柄， 你再看他是不是EDIT类的，如果是就直接设置他的内容

易名烦 · 2003-01-18

可以教我吗？

thz999 · 2003-01-18

要获取当前鼠标位置的句柄和类名，只须通过 WindowFromPoint和GetClassName    格式为：hWnd := WindowFromPoint(sender);            GetClassName(hWnd,aName,256); 说明hwnd为thandle类型变量，sender为tpoint类型变量，aname为array [0..255] of char数组类型

易名烦 · 2003-01-18

对不起，我用的是这个程序去控制别一个程序（光标非鼠标）。 应该要用到别一个窗口的HNADLe.

薄荷 · 2003-01-19

首先，你要得到另一个窗体的句柄，可以用findWindow得到， 然后遍历它的子窗体:EnumChildWindows，然后用GetClassName()判断是不是TEdit 类(如果是vc写的是Edit类)，如果是的话，就postMessage

易名烦 · 2003-01-20

薄荷:     但有很多的TEdit啊，怎么知道光标所在处的TEdit的Handle?

易名烦 · 2003-01-20

来人啊： 如果有EnumChildWindows()怎么用别有分相赠。 因为哪个回调函数实在搞不太懂。

易名烦 · 2003-01-20

张无忌同志也是，就这样就不来看了。

诸葛白痴 · 2003-01-20

光标所在不会用是否处理焦点状态判断不就知道了

易名烦 · 2003-01-20

能简单写两句吗？

薄荷 · 2003-01-20

遍历子窗体： implementation var Hchild: integer; function EnumProc(Hwnd: THandle;lparam: LPARAM): boolean; stdcall; var   lpText: Array[0..255] of char; begin    Result := true;    GetClassName(hwnd,@lpText,255);    if (lptext)='Edit' then    begin       HChild := HWnd;       Result := false;    end; end; function TForm1.GetEditHandle(WinCap: string): integer; var   hParent: THandle;   i: integer; begin    Result := 0;    hChild := 0;    hParent := FindWindow(nil,pchar(WinCap));    if hParent=0 then exit;      EnumChildWindows(hParent,@EnumProc,0);      Result := hChild; end;

薄荷 · 2003-01-20

其实这个问题好像不要那么复杂阿， 不就是模拟按钮吗，你只要模拟按键，发几个字符，他不就自然发到有焦点的edit里了？ delphi5里面有个sendkey单元，不知道6里面有没有。如果有的话就太简单了。 我还知道delphi5开发人员指南的光盘里有。如果你要我找给你把。

诸葛白痴 · 2003-01-20

function EnumProc(Hwnd: THandle;lparam: LPARAM): boolean; stdcall; var   lpText: Array[0..255] of char; begin    Result := true;    GetClassName(hwnd,@lpText,255);    if ((lptext)='Edit') and (GetFocus = hwnd)  then //比较是否和焦点句柄相同    begin       HChild := HWnd;       Result := false;    end; end;

易名烦 · 2003-01-20

模拟按键要把窗口变成当前窗口吧。

诸葛白痴 · 2003-01-20

可以改简单点，先用GetFocus取得Handle，然后再用GetClassname取得是否是Edit类，这样 就不要遍历了，效率提高太多了，最好再用key_event来完成就行了，不要写出代码吧， 很简单的了

薄荷 · 2003-01-20

不是当前窗口有焦点吗？

诸葛白痴 · 2003-01-20

啊，我以为有key_event呢，原来没有，那你可用以sendkey来完成吧 VB的一段代码，用的是postMessage N = CInt(Mid(RFID, 10 - ws(w) + i, 1)) Msg = WM_CHAR wParam = vbKey0 + N lParam = (&HC000 + ScanCode(N)) * &H10000 + 1 PostMessage ActWnd, Msg, wParam, lParam

关于SendMessage,(问题没结束呢，继续来高手啊); (20分)

易名烦

Unregistered / Unconfirmed

张无忌

Unregistered / Unconfirmed

易名烦

Unregistered / Unconfirmed

张无忌

Unregistered / Unconfirmed

易名烦

Unregistered / Unconfirmed

thz999

Unregistered / Unconfirmed

易名烦

Unregistered / Unconfirmed

薄荷

Unregistered / Unconfirmed

易名烦

Unregistered / Unconfirmed

易名烦

Unregistered / Unconfirmed

易名烦

Unregistered / Unconfirmed

诸葛白痴

Unregistered / Unconfirmed

易名烦

Unregistered / Unconfirmed

薄荷

Unregistered / Unconfirmed

薄荷

Unregistered / Unconfirmed

诸葛白痴

Unregistered / Unconfirmed

易名烦

Unregistered / Unconfirmed

诸葛白痴

Unregistered / Unconfirmed

薄荷

Unregistered / Unconfirmed

诸葛白痴

Unregistered / Unconfirmed

Similar threads