delphi中,如何用api函数,得知当前窗体
2005-02-05 16:23
363 查看
//自定义函数GetFormNameAt,获得鼠标针指下窗体的Name
function GetFormNameAt ( X, Y : integer ) : string;
var
P:TPoint;
W:TWinControl;
begin
P.X := X;
P.Y := Y;
W := FindVCLWindow(P); //得到鼠标指针下的VCL可视组件
if ( nil <> W ) then
begin
while w.Parent<>nil do //当W的上级Parent不为空时就继续往上找
w:=w.Parent;
Result := W.Name;//最后返回窗体的名称Name
end
else
begin
Result := ’’;
end;
end;
procedure TForm1.click(Sender: TObject);
var
winPos:TPoint;
begin
GetCursorPos(winpos); //得到当前鼠标指针的在屏幕上的坐标
form1.name=GetFormNameAt(winpos.X,winpos.Y)
end;
function GetFormNameAt ( X, Y : integer ) : string;
var
P:TPoint;
W:TWinControl;
begin
P.X := X;
P.Y := Y;
W := FindVCLWindow(P); //得到鼠标指针下的VCL可视组件
if ( nil <> W ) then
begin
while w.Parent<>nil do //当W的上级Parent不为空时就继续往上找
w:=w.Parent;
Result := W.Name;//最后返回窗体的名称Name
end
else
begin
Result := ’’;
end;
end;
procedure TForm1.click(Sender: TObject);
var
winPos:TPoint;
begin
GetCursorPos(winpos); //得到当前鼠标指针的在屏幕上的坐标
form1.name=GetFormNameAt(winpos.X,winpos.Y)
end;
相关文章推荐
- Delphi MDI程序 父窗体如何调用当前活动子窗体的函数/过程
- 如何使MDI窗体只显示当前点击Form
- C#中如何对当前窗体进行打印预览
- Delphi FireMonkey APP 如何获得当前系统语言设置
- 用API函数在DELPHI中实现&ldquo;非典型&rdquo;窗体
- Delphi中如何控制其他程序窗体上的窗口控件
- 不在同一程序内,如何在光标处(当前有焦点的窗体输入框)输入字符
- 用API函数在DELPHI中实现“非典型”窗体
- (论坛答疑点滴)如何得知调用当前方法的方法名?
- 不用注册热键方式在Delphi中实现定义快捷键(又简单又巧妙,但要当前窗体处在激活状态)
- 如何设置Delphi编辑器当前一行的背景色
- Android中如何得知当前View中的EditText正在被编辑或改动,即如何检测EditText的焦点
- 用API函数在DELPHI中实现“非典型”窗体
- delphi如何让程序最小化到任务栏(使用Shell_NotifyIcon API函数)
- [IMX6Q]如何得知当前平台是IMX6Q
- Delphi如何从非主窗体启动
- delphi如何让程序最小化到任务栏(使用Shell_NotifyIcon API函数)
- 如何在Delphi for PHP中验证窗体?
- delphi如何获得当前操作系统语言环境
- C# 如何在窗体项目的类中获得当前窗体的对象