已知一个窗体的句柄(frmhandle),如果取得它上面一个标题为“确定”的按扭的句柄。
解决方案 »
- TRichEdit.Lines的Insert方法怎么使用?(在线)
- 如何在dbgrid中将某一列显示为“*****”?
- 一个有关Socket的问题(delphi5->delphi7的)
- 如何设置memo行的颜色(在线,马上给分)
- 高分求救,急急急急急急急!!!!!
- 计算字段'合计',等于'数量',乘'单价'为什么老是出错,高手帮帮我!
- delphi firemonkey 里获取汉字的拼音首字母 出错了。。帮我看看。。
- 出现必须加载Dll的错误怎么办??????????????
- WScript 是ActiveX 还是COM,还是别的什么。如何在应用程序中使用 ?
- 让各位见笑了,下面语句是什么意思?
- 问题,不知道怎么回事?
- 使用IdFTP组件无法上载文件到Unix上的FTP站点?
var
vHandle:THandle;
vPoint:TPoint;
begin
GetCursorPos(vPoint);
vHandle:=WindowFromPoint(vPoint);
if vHandle<>0 then
begin
end;
vHandle:THandle;
vPoint:TPoint;
begin
GetCursorPos(vPoint);
vHandle:=WindowFromPoint(vPoint);
if vHandle<>0 then
begin
end;
procedure TFormMain.Timer1Timer(Sender: TObject);
var
p:tpoint;
curwin:longint;
Parwin:longint;
text,textp:array[0..255] of Char;
begin
getcursorpos(p);//得到当前鼠标指针的在屏幕上的坐标
curwin:=windowfrompoint(p);// 获得窗口句柄
getclassname(curwin,text,255);//取得窗体的类名
parWin:=GetParent(curwin);//获得父窗体句柄
getclassname(parWin,textp,255);//取得父窗体的类名
Label1.caption:=inttostr(curwin)+':'+text+' parent:'+inttostr(parWin)+':'+textp;
end;
用FindWindowEx ...
支持hottey(点亮心灵)(基础补习中)