用鼠标获取任意窗口的句柄, 并把它当作"干儿子"
2008-03-09 21:27
337 查看
首先建议初学者不要在这些小的技巧上下太多功夫, 学好基础才是根本;
我的博客上这种东西不多, 这是大家讨论时, 话赶话赶出来的, 知道有这种可行性即可, 没有多少实用价值.
本例效果图:
此例回复来宾在
/article/4586625.html 碰到的问题.
全部代码如下(测试时注意给主窗体焦点):
发现还没处理计算器的关闭呢, 用处不大, 不再重做了.
我的博客上这种东西不多, 这是大家讨论时, 话赶话赶出来的, 知道有这种可行性即可, 没有多少实用价值.
本例效果图:
此例回复来宾在
/article/4586625.html 碰到的问题.
全部代码如下(测试时注意给主窗体焦点):
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Panel1: TPanel; Edit1: TEdit; Button1: TButton; Button2: TButton; Timer1: TTimer; procedure FormCreate(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} {这里主要是设置控件位置} procedure TForm1.FormCreate(Sender: TObject); begin Panel1.Align := alTop; Panel1.Height := 30; Edit1.Top := 4; Edit1.Left := 12; Edit1.Width := 72; Edit1.Clear; Button1.Top := Edit1.Top - 1; Button1.Left := Edit1.Left + Edit1.Width + 12; Button1.Caption := '确认捕获, 用回车键'; Button1.Width := Canvas.TextWidth(Button1.Caption) + 32; Button1.Default := True; Button2.Top := Button1.Top; Button2.Left := Panel1.ClientWidth - Button2.Width - 12; Button2.Anchors := [akRight]; Button2.Caption := '过来吧你'; Timer1.Interval := 100; end; {捕获窗口句柄, 显示在标题} procedure TForm1.Timer1Timer(Sender: TObject); var pt: TPoint; begin if Boolean(GetCursorPos(pt)) then Text := IntToStr(WindowFromPoint(pt)); end; {把确认的目标窗口的句柄显示在 Edit1} procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text := Self.Text; end; {捕获了干什么呢? 譬如让它当自己的"干儿子"吧} procedure TForm1.Button2Click(Sender: TObject); var h: HWND; {这是被捕捉窗口的句柄} r: TRect; {这是被捕捉窗口的矩形} pw,ph: Integer; {这是被捕捉窗口的宽度与高度} begin h := StrToInt(Edit1.Text); Windows.SetParent(h, Self.Handle); GetWindowRect(h,r); pw := r.Right - r.Left; ph := r.Bottom - r.Top; MoveWindow(h, 0, Panel1.Height, pw, ph, True); end; end.
发现还没处理计算器的关闭呢, 用处不大, 不再重做了.
相关文章推荐
- C#获取鼠标位置窗口句柄
- 获取任意控件的ID或窗口句柄
- C#_获取鼠标所在处的窗口句柄
- 获取鼠标点窗口句柄
- c# 获取鼠标处窗口句柄,程序嵌入桌面
- 易语言获取当前鼠标的窗口句柄、位置、颜色值
- C#:根据鼠标位置获取窗口句柄,名字等
- C#获取鼠标处的窗口(window)句柄的小工具
- 获取鼠标点窗口句柄
- C/C++ Windows API——获取鼠标位置的窗口句柄
- 怎么实现在任意窗口获取鼠标选中的文本内容?
- 通过鼠标获取窗口句柄
- C#获取鼠标处的窗口(window)句柄
- C#通过鼠标获取窗口句柄
- Windows程序获取鼠标下窗口句柄的例子
- MFC中获取窗口句柄及相关函数
- MFC中获取窗口句柄及相关函数
- 获取窗口句柄(内部窗体)
- (转)获取指定进程的主窗口句柄
- js中获取各种窗口的大小和鼠标坐标