首页 > 其他分享 >用鼠标获取任意窗口的句柄, 并把它当作子窗体

用鼠标获取任意窗口的句柄, 并把它当作子窗体

时间:2023-05-13 11:55:06浏览次数:39  
标签:鼠标 句柄 TObject Edit1 Button2 Button1 窗体 procedure Sender

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.

标签:鼠标,句柄,TObject,Edit1,Button2,Button1,窗体,procedure,Sender
From: https://www.cnblogs.com/lucken2000/p/17397065.html

相关文章

  • 拿到当前句柄di与鼠标当前位置信息Sx,Sy
    importtime,win32guiimportpyautoguitime.sleep(2)handle1=win32gui.GetForegroundWindow()#GetForegroundWindow使用此方法返回一个句柄di保存在handle1print("显示当前句柄id:",handle1)x,y=pyautogui.position()#使用pyautogui.position()使用此方法返回两个数值......
  • tkinter 鼠标滚轮控制滚动条滚动
    defprocessWheel(event):globalvbar,canvas,stepifevent.delta>0:#滚轮往上滚动,放大canvas.yview_scroll(step,'units')else:canvas.yview_scroll(step,'units')#滚轮往下滚动,缩小......
  • 获取鼠标位置和控件区域
    procedureTForm1.scSplitView1MouseEnter(Sender:TObject);beginifscSplitView1.OpenedthenExit;scSplitView1.Opened:=True;Label1.Visible:=True;Label2.Visible:=True;end;procedureTForm1.scSplitView1MouseLeave(Sender:TObject);varP:TPoin......
  • C# 窗体控件ContextMenuStrip下拉项之间的分割线
    1.效果如图: 2.选中ContextMenuStrip控件,在Items属性中添加Separator 3. (其中第3,4步,通过上下箭头,摆置好你要分割的位置)原文链接......
  • 键盘与鼠标按键的键值对照表
    键盘与鼠标按键的键值对照表该表总结了常见的键盘与鼠标按键对应的按键名称、十进制、十六进制表示形式与按键功能。方便用户进行查询。提供给需要的朋友使用。  常数名称十六进制值十进制值对应按键VK_LBUTTON011鼠标的左键VK_RBUTTON022鼠标的右键......
  • MFC-GetModuleHandle获取动态链接库的模块句柄
     HMODULEhmodule=::GetModuleHandle(_T("kernel32.dll"));//获取动态链接库的模块句柄/*参数:LPCTSTR指向含有模块名称字符串的指针返回值:HMODULE,如执行成功成功,则返回模块句柄。零表示失败。获取错误信息*/     ......
  • web自动化10--鼠标滚动
    有的时候selenium和Python不能够对网页完全的操作,有的时候需要用到鼠标进行辅助;对js不太熟悉的,网上找下教程,简单了解。http://www.w3school.com.cn/js/index.asp4一、页面竖滚动条控制可以修改最后的scrollTop的值,来改变滚动条的位置,0是最上面,10000是最底部......
  • MFC-GetCursorPos获取鼠标屏幕坐标
     voidCHitTestDlg::OnTimer(UINT_PTRnIDEvent){//TODO:在此添加消息处理程序代码和/或调用默认值CStringstr;POINTpoint={0};BOOLb=::GetCursorPos(&point);//获取鼠标屏幕坐标/*参数:LPPOINTlpPoint返回光标位置返回值:......
  • [Axure RP 9]怎么让鼠标移动到某元件上变成小手
    描述:在Axure中画原型图时经常会遇到制作当鼠标移动到按钮上鼠标就变成小手形状的交互事件一、准备工具AxureRP9二、工具材料元件(任一)三、实现步骤1、在axure中的拖入你想要的设置效果的元件,这里演示的是常见的按钮和文本框。(这个时候可以知道鼠标时没有发生变化的)......
  • MFC-NM_CLICK鼠标左键点击CListCtrl控件消息
    NM_CLICK是鼠标左键点击CListCtrl控件客户区时激发的消息添加消息函数选中控件-->          ......