已知一个窗口的HWND,怎么创建以此窗口为Parent的另一个Form? 如题,这个HWND是通过参数传过来的。另外,还要保证这个新建Child窗口在它父窗口(HWnd窗口)上面。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 SetParent(MainForm.Handle, ParentWnd) ==> 0失败,怎么办? 其实我是要在InstallShield中显示Delphi做的DLL中的窗口:function LicenceCheck(ParentWnd: HWnd): Boolean; StdCall;var MainForm: TFormMain;begin MainForm := TFormMain.Create(nil); if SetParent(MainForm.Handle, ParentWnd) = 0 then begin Result := False; Exit; end; Result := MainForm.ShowModal = mrOK; MainForm.Free; MainForm := nil;end;InstallShield 6.22 脚本: bzPassed = FALSE; dllName = SUPPORTDIR^"licencecheckdll.dll"; if UseDLL(dllName)=0 then bzPassed = LicenceCheck(GetWindowHandle(HWND_INSTALL)); endif; UnUseDLL(dllName); 我的目的是InstallShield调用DLL中这个函数后.窗口能显示在最上面,而现在跑下面去了。现在的问题是:Parent是设置成功了,但窗口显示不出来 application.CreateForm(tform2,form2);self.FormStyle:=fsMDIForm;form2.ParentWindow:=self.Handle;form2.Show; 谁来优化下函数,webbrowser的POST发送 求助:有关DBGRID中实现复选框的问题? 问一个简单问题 函数调用问题 诚心求教。两个报表连续打印的问题。两个报表能否连续打印,前张打完能紧接打后张的内容,并在同一张纸内。 如何使用一个没有标题的程序得到焦点(使程序在所以窗口的最前) 判斷控件是否獲得焦點,很簡單的問題! 帮帮我,哪里有PVCS Version Manager正式版本下载? 请问cxgrid中如何可设置成象EXCLE那样可计算? 一个让我失眠的问题 如何在一个3维的坐标上画点? 关于语法的一个小问题
失败,怎么办?
function LicenceCheck(ParentWnd: HWnd): Boolean; StdCall;
var
MainForm: TFormMain;
begin
MainForm := TFormMain.Create(nil);
if SetParent(MainForm.Handle, ParentWnd) = 0 then
begin
Result := False;
Exit;
end;
Result := MainForm.ShowModal = mrOK;
MainForm.Free;
MainForm := nil;
end;InstallShield 6.22 脚本:
bzPassed = FALSE;
dllName = SUPPORTDIR^"licencecheckdll.dll";
if UseDLL(dllName)=0 then
bzPassed = LicenceCheck(GetWindowHandle(HWND_INSTALL));
endif;
UnUseDLL(dllName); 我的目的是InstallShield调用DLL中这个函数后.窗口能显示在最上面,而现在跑下面去了。
现在的问题是:
Parent是设置成功了,但窗口显示不出来
self.FormStyle:=fsMDIForm;
form2.ParentWindow:=self.Handle;
form2.Show;