怎样获得光标在TEDIT中的具体位置？

musickiller 2003-08-30 08:18:51

如题

...全文

25 1 打赏收藏转发到动态举报

写回复

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

teatool 2003-08-30

打赏
举报

回复

Edit1->SelStrat;

《Delphi 7 新概念百例》是一本通过讲解Delphi实例，来说明使用Delphi编程时通常采用的编程思路以及具体方法的计算机书籍。通过对每个实例从编程思路和代码实现的详细分析和讲解，力求带领读者快速地提高自己的程序设计水平，并达到举一反三的目的。很多实例的重要部分都做了特别注意和技巧等提示，目的是强调一些技巧的使用或使读者尽量避免一些常见的错误，以使更高效地利用Delphi这个强大的程序开发工具。　　该书精选了100多个经典的实例从易到难、由浅入深、由简单到综合地进行讲解，内容涉及面也很广泛，基本上涵盖了用Delphi进行应用程序设计的方方面面，凝聚了作者多年的Delphi编程经验，相信对启发读者的思想并提高读者的编程水平台有很大帮助。　　该书主要面向中高级读者，但对那些熟悉Object Pascal语法并有一定编程经验的初级读者也很有帮助。本书也可以作为初涉Delphi的实例教材使用。　　本文件是《Delphi 7 新概念百例》的配书源代码，包含编译好的可执行文件。内容如下：├─综合应用篇│ ├─87 用TreeView来显示数据库信息│ ├─86 显示彩色数据表格│ ├─85 文件切割器│ ├─84 加密解密器│ ├─83 TButton增加OnMouseLeave事件│ ├─82 将IE收藏夹导出为HTML文件│ ├─81 NT Win2000中发送Winpop消息│ ├─80 制作无闪烁的动画│ ├─79 定制自己的幽灵程序│ ├─78 简单的文件查看器│ ├─77 简单的文件夹浏览器│ └─76 实现自己的控制面板├─练习提高篇│ ├─99 获取TRichEdit控件中光标所在行号│ ├─98 获取内存信息│ ├─97 获取CPU 信息│ ├─96 获取Windows的版本│ ├─95 临时文件的操作│ ├─94 获取Windows和System目录│ ├─93 将窗体大小限定在一定范围内│ ├─92 闪烁窗口│ ├─91 在窗体客户区用鼠标拖曳窗体│ ├─90 使TMemo组件带边界│ ├─89 给ListBox控件增加水平滚动条│ ├─88 运行时拖动控件│ ├─104 防止程序或系统关闭│ ├─103 设置屏幕分辨率│ ├─102 获取系统和显卡的BIOS信息│ ├─101 使应用程序不出现在任务栏上│ └─100 隐藏或显示桌面上的图标└─基础实例篇 ├─8第八节数据库技术 │ ├─75 通过注册表在程序中增减和修改数据源 │ ├─74 获取BDE的配置信息 │ ├─73 动态建立和使用别名 │ │ ├─在程序中动态地建立和使用别名(四) │ │ ├─在程序中动态地建立和使用别名(二) │ │ ├─在程序中动态地建立和使用别名(三) │ │ └─在程序中动态地建立和使用别名(一) │ ├─72 自动检测、建立数据库别名和数据表 │ ├─71 用Delphi进行数据库之间转换 │ ├─70 图像数据的存取 │ ├─69 压缩、反删除dBase或FoxPro数据表 │ ├─68 处理数据库日期型字段的显示与输入 │ │ └─数据库 │ └─67 在数据库中存取Word文档 ├─7第七节网络编程 │ ├─66 动态更改DNS │ ├─65 网络资源树形浏览 │ ├─64 实现网络驱动器的映射和断开 │ ├─63 在网络邻居上得到某台机器的磁盘空间 │ ├─62 在网络邻居中获取指定工作组内的所有计算机及其共享资源信息 │ ├─61 在WinNT-2000网络邻居中获取所有的工作组 │ ├─60 计算机名与IP地址的互相获取 │ ├─59 实现Ping操作 │ ├─58 网页浏览器 │ └─57 获取本机机器名、IP信息以及网卡的MAC地址 ├─6第六节多媒体技术 │ ├─56 实现图像之间的平滑过渡 │ ├─55 制作能播放Midi、Wav和Avi文件的播放器 │ ├─54 检测声卡是否安装 │ ├─53 获取Audio-CD的序列号 │ ├─52_关闭CD-ROM │ └─51 检测_设置CD-ROM是否自动运行 ├─5第五节图像技术 │ ├─50 创建Jpeg图像的缩略图 │ ├─49 实现图像的翻转 │ ├─48 多种渐变色的实现 │ ├─47 TColor与RGB值的互相转换 │ ├─46 将文本转换成图像 │ ├─45 提高对位图象素的访问速度 │ ├─44 将彩色位图转换为灰度图 │ ├─43 将图像从jpg,ico,bmp,wmf格式转换为emf格式 │ ├─42 将图像从jpg,ico,emf,wmf格式转换为bmp格式 │ └─41 将图像从bmp格式转换为Jpg格式 ├─4第四节 VCL分析 │ ├─40 消除在TEdit控件中按下回车键时的声音 │ ├─39 在StringGrid中设置只读栏 │ ├─38 加速TTreeView控件的填充和清空 │ ├─37 加速TListBox控件的填充和清空 │ ├─36 在TStringGrid控件中删除整行 │ ├─35 动态创建主菜单和菜单项 │ ├─34 使程序能在循环中响应界面操作 │ ├─33 在TListbox、TCombobox中实现自动搜索 │ ├─32 用剪贴板复制和粘贴图像 │ └─31 实现.dfm文件和.txt文件的互相转换 ├─3第三节 Shell研究 │ ├─30 为程序创建快捷方式 │ ├─29 获取Windows的若干特殊文件夹路径（二） │ ├─28 获取Windows的若干特殊文件夹路径（一） │ ├─27 抽取程序关联图标 │ ├─26 磁盘格式化的实现 │ ├─25 将文件加入“开始”菜单的“文档”中 │ ├─24 文件的拖放 │ ├─23 整个目录的复制、移动、删除 │ ├─22 将指定文件类型设置为与自己的应用程序相关联 │ └─21 文件的自动打开和超链接的实现 ├─2第二节系统探秘 │ ├─20 操作INI文件 │ ├─19 获取驱动器类型信息 │ ├─18 在自己的程序中关闭其它的程序 │ ├─17 使程序开机自动运行 │ ├─16 在自己的程序中打开或关闭IE窗口 │ ├─15 模拟鼠标的行为 │ ├─14 限制光标的移动区域 │ ├─13 获取或更改计算机名 │ ├─12 运行程序的单实例 │ └─11 隐藏任务栏 └─1第一节界面设计 ├─09 在系统菜单上添加自定义菜单项 ├─08 使窗体始终最大化 ├─07 使窗体始终最小化 ├─06 为窗体创建动画光标 ├─05 制作始终位于最上层的窗体 ├─04 制作带背景窗体 ├─03 制作圆形窗体 ├─02 制作无标题栏窗体 ├─10 给窗体边框“镶边” └─01 制作不可移动的窗体

　　　在程序员眼中，Windows的用户界面就是一个由无数个大小窗口组合在一起的整体。密码框也不例外，它是一个具有ES_PASSWORD风格的"TEdit"类子窗口控制。既然它是一个窗口，就难免具有一些Windows窗口所共有的特性：有一个窗口过程；可以接收消息。或许你已经知道，向文本框发送一个WM_GETTEXTLENGTH消息，就能获得文本框中的字符串长度。如果向文本框发送一个WM_GETTEXT消息，就能获得文本框中的字符串。这两个消息对密码框同样有效，因为它们都是基于 "TEdit"类所创建的子窗口控制，只是风格不同罢了。我们可以用以下两行代码来获取密码了： iLength = SendMessage(hwnd, WM_GETTEXTLENGTH, 0, 0) ; SendMessage(hwnd, WM_GETTEXT, (WPARAM)(iLength + 1), (LPARAM)(pStrPassWord)) ; 问题1：SendMessage函数需要密码框的窗口句柄作为参数，如何得到密码框的窗口句柄呢？很简单，使用WindowFormPoint API函数。该函数接受一个POINT类结构的参数，并返回包含该点的窗口句柄，函数原型如下： HWND WindowFromPoint(POINT point) ; 知识准备充足，代码如下： /*------------------------------------ *号查看器v1.0 20110407 Ra -------------------------------------*/ #include #define WM_GETCODE WM_USER+1 LRESULT CALLBACK WndProc(HWND, UINT, WPARAM, LPARAM) ; LRESULT CALLBACK EditProc(HWND, UINT, WPARAM, LPARAM) ; WNDPROC OldProc ; POINT point ; int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpszCmdLine, int iCmdShow) { static TCHAR szAppName[] = TEXT("GetCode") ; MSG msg ; HWND hwnd ; WNDCLASS wndclass ; wndclass.style = CS_HREDRAW | CS_VREDRAW ; wndclass.lpfnWndProc = WndProc ; wndclass.cbClsExtra = 0 ; wndclass.cbWndExtra = 0 ; wndclass.hInstance = hInstance ; wndclass.hIcon = LoadIcon(NULL, IDI_WINLOGO) ; wndclass.hCursor = LoadCursor(NULL, IDC_ARROW) ; wndclass.hbrBackground = (HBRUSH)(COLOR_BTNFACE + 1) ; wndclass.lpszMenuName = NULL ; wndclass.lpszClassName = szAppName ; if (!RegisterClass(&wndclass)) { MessageBox(NULL, TEXT("This program requires Windows NT!") , szAppName, MB_ICONERROR) ; return 0 ; } hwnd = CreateWindowEx(WS_EX_TOPMOST, szAppName, TEXT("*号查看器"), WS_OVERLAPPED | WS_CAPTION | WS_SYSMENU | WS_MINIMIZEBOX, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, NULL, NULL, hInstance, NULL) ; ShowWindow(hwnd, iCmdShow) ; UpdateWindow(hwnd) ; while (GetMessage(&msg, NULL, 0, 0)) { TranslateMessage(&msg) ; DispatchMessage(&msg) ; } return msg.wParam ; } LRESULT CALLBACK WndProc(HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam) { static HWND hwndEdit ; static HINSTANCE hInstance ; switch(message) { case WM_CREATE: hInstance = (HINSTANCE)GetWindowLong(hwnd, GWL_HINSTANCE) ; hwndEdit = CreateWindow(TEXT("button"), TEXT("请将此按钮拖放到你想查看的*号上"), WS_CHILD | WS_VISIBLE | BS_PUSHBUTTON, 0, 0, 0, 0, hwnd, (HMENU)1,hInstance, NULL) ; OldProc = (WNDPROC)SetWindowLong(hwndEdit, GWL_WNDPROC, (LONG)EditProc) ; //改变指定窗口的属性 //GWL_WNDPROC：为窗口过程设定一个新的地址 return 0 ; case WM_SIZE: TEXTMETRIC tm ; HDC hdc ; int cxChar, cyChar, cxScreen, cyScreen, iWndWidth, iWndHeight ; //确定主窗口宽度与高度 cxScreen = GetSystemMetrics(SM_CXSCREEN) ; cyScreen = GetSystemMetrics(SM_CYSCREEN) ; iWndWidth = cxScreen / 10 * 4 ; iWndHeight = cyScreen / 4 ; //确定字符宽度与高度 hdc = GetDC(hwnd) ; GetTextMetrics(hdc, &tm) ; cxChar = tm.tmAveCharWidth ; cyChar = tm.tmHeight + tm.tmExternalLeading ; MoveWindow(hwnd, cxScreen / 100, cyScreen / 100, iWndWidth, iWndHeight, TRUE) ; MoveWindow(hwndEdit, (iWndWidth - cxChar * 38) / 2, iWndHeight / 3, cxChar * 38, cyChar + 10, TRUE) ; //对指定的窗口设置键盘焦点。该窗口必须与调用线程的消息队列相关。 SetFocus(hwnd) ; return 0 ; case WM_GETCODE: HWND hwndDst ; int iLength ; TCHAR PassWord[255], ClassName[255] ; //获得包含指定点的窗口的句柄。 hwndDst = WindowFromPoint(point) ; if (hwndDst == hwndEdit || hwndDst == hwnd) { MessageBox(hwnd, TEXT("如果你有任何意见或建议，请与我联系：td1126@163.com"), TEXT("关于 Ra"), MB_ICONINFORMATION) ; return 0 ; } iLength = GetClassName(hwndDst, ClassName, 255) ; if (!iLength) { MessageBox(hwnd, TEXT("获取类名失败！"), TEXT("Error"), MB_ICONERROR) ; return 0 ; } if (strncmp((char *)ClassName, (char *)"TEdit",4) != 0) { MessageBox(hwnd, TEXT("目标位置不是一个密码框！"), TEXT("Error"), MB_ICONERROR) ; //return 0 ; } iLength = SendMessage(hwndDst, WM_GETTEXTLENGTH, 0, 0) ; SendMessage(hwndDst, WM_GETTEXT, (WPARAM)(iLength + 1), (LPARAM)PassWord) ; MessageBox(hwnd, PassWord, TEXT("你想得到的密码是："), MB_OK) ; return 0 ; case WM_DESTROY: PostQuitMessage(0) ; return 0 ; } return DefWindowProc(hwnd, message, wParam, lParam) ; } LRESULT CALLBACK EditProc(HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam) { static HCURSOR hOldCursor, hMyCursor ; switch(message) { case WM_LBUTTONDOWN: //从一个与应用事例相关的可执行文件（EXE文件）中载入指定的光标资源。 hMyCursor = LoadCursor(NULL, MAKEINTRESOURCE(IDC_CROSS)) ; //该函数确定光标的形状。 hOldCursor = SetCursor(hMyCursor) ; SetCapture(hwnd) ; return 0 ; case WM_LBUTTONUP: //从当前线程中的窗口释放鼠标捕获，并恢复通常的鼠标输入处理。捕获鼠标的窗口接收所有的鼠标输入（无论光标的位置在哪里），除非点击鼠标键时，光标热点在另一个线程的窗口中。 ReleaseCapture() ; SetCursor(hOldCursor) ; point.x = LOWORD(lParam) ; point.y = HIWORD(lParam) ; //将指定点，或者矩形的用户坐标转换成屏幕坐标。 ClientToScreen(hwnd, &point) ; SendMessage(GetParent(hwnd), WM_GETCODE, 0, 0) ; return 0 ; } return CallWindowProc(OldProc, hwnd, message, wParam, lParam) ; } WM_GETCODE是用户自定义消息，根据Windows编程规则，它的值应大于0X0400，我们把它定义为WM_USER+1，即：0X0401。point是一个POINT类全局结构变量，用来保存密码框的坐标值。主窗口过程在WM_CREATE消息期间创建了一个按钮控制hwndEdit，并使用窗口子类化技术给它安装了一个钩子，捕获它的WM_LBUTTONDOWN、WM_LBUTTONUP消息。这时，Windows的内部窗口过程就不能再处理这两个消息，所以，我们在按钮上单击鼠标左键时，不会再看到按钮被按下并弹起的视觉效果，但这点对我们并不重要。当用户在按钮控制上按下鼠标左键时，Windows会向按钮控制发送一个WM_LBUTTONDOWN消息，这个消息会被我们编写的EditProc窗口过程捕获，我们对这个消息的处理很简单：将鼠标光标设置为十字型，并捕获鼠标。鼠标被捕获后，所有的鼠标消息都将被发送到按钮控制的窗口过程，即EditProc。但我们只处理鼠标消息的WM_LBUTTONUP消息，而使用 return CallWindowProc(OldProc, hwnd, message, wParam, lParam) ; 将其它的消息交由Windows的内部窗口过程处理。在WM_LBUTTONUP消息期间，我们先撤消对鼠标的捕获，再将鼠标光标恢复原状，然后保存鼠标左键释放时的坐标位置。注意，这个坐标值是相对于按钮控制的客户区坐标，所以我们必须使用ClientToScreen函数将它转换成屏幕坐标。最后，使用SendMessage函数给主窗口发送一个WM_GETCODE自定义消息，把余下的工作交给主窗口过程处理。主窗口过程的WM_GETCODE消息逻辑，是程序的核心。它先使用WindowFromPoint函数获得鼠标释放时，鼠标光标所在位置的窗口句柄。如果鼠标是在本程序的窗口内释放，将弹出一个关于消息框。否则，就将获得的窗口句柄进行判断，如果是一个密码框，就给它发送WM_GETTEXTLENGTH、WM_GETTEXT消息，获取密码。问题2：利用本程序为什么不能查看QQ密码？如果你确实用本程序查看过QQ密码的话，那么你会发现你获取的窗口一直是主窗口（父窗口），因为QQ页面设置时利用了一项新技术，具体叫什么名字我忘记了，QQ页面中并没有其他的控件，帐户、密码的输入框并不是windows控件，而是类似于画上去的图形，所以我们无法获取它的句柄，从而无法查看QQ密码。

Delphi试题51道1.dbExpress组件访问数据库是通过哪种方式与特定的数据库连接的？（C）A. BDEB.其他三项都不是C.DbExpress自己的数据库连接DLLD.ODBC2.在try语句中使用多个except语句可以处理多个不同的异常情况。（A）A.错误B.正确3.DWORD，UINT，HResult以及WinAPI函数中各种Handle等于Delphi6中的哪种数据类型？（ A）...

VCL组件之编辑控件 Note 以后将用两种方式提及组件，以组件的名称或定义组件的VCL类的名称。可以说“Label组件用于……”或说“TLabel用于……”，这两种方式谈到的是同一组件。编辑控件（Edit Control） Delphi共有5个编辑控件组件，Edit、Memo、MaskEdit、RichEdit（该控件不是标准Windows控件）和SpinEdit（数字编辑

C＋＋Builder 资料库 2005-03-03 15:14 13115人阅读评论(3) 收藏举报 1.怎样在C＋＋Builder中创建使用DLL 2.用C++Bulider在WIN.INI中保存信息 3.如何在C＋＋Builder中检测硬件 4.C++Builder如何响应消息及自定义消息 5.利用C++ Builder开发动画DLL 6.用C++ Builder

13,825

社区成员

102,679

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章