16,742
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.Button1Click(Sender: TObject);
begin
hwndNotePad:=FindWindow(PChar('Notepad'),0);//获取记事本的窗体句柄
hwndOldParent:=GetParent(hwndNotePad);//记住其“父亲”
Windows.SetParent(hwndNotePad,handle);//绑架
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
//交还被“绑架”者给其原来的“父亲”:
Windows.SetParent(hwndNotePad,hwndOldParent);
end;