目前开发一个项目,主程序是一个窗口菜单,所有功能的实现都是通过调用外部DLL实现的,目前在一个外部窗口中,我用的是Show,我只要在主程序的空白位置上点击一下,外部窗口就隐藏起来了,跑到主程序后面去了,能不能限制一下,打开多窗口的同时,在调用多窗口的界面中点击任何位置,被激活的窗口始终显示在主程序前面??
解决方案 »
- LB控件为什么在我的系统上没法注册
- 请教一个局域网ADO连接的问题
- 请问如何访问远程没有固定ip的服务器上的SQL Server
- 编程高手看过来!!!!应聘请回复并请附详细介绍
- 谁???有 李维新书《Inside VCL》前两章?? EMAIL给我,送50分!!![email protected]
- 用什么方法可以定义热键运行某过程?
- VOD的核心技术
- delphi 打开源码一个控件便消失了,咋回事?
- 菜鸟的 问题
- Delphi5和Delphi6可以同时安在win98下吗,会不会冲突?
- 请教超市的小票打印是怎样实现的?通过一行一行的writeln吗?用fastreport能否实现?
- 又是好几年没来,老朋友们都还在吗?
FormB.Parent := FormA;
FormB.Show;
try
// Call Dll
finally
EnableWindow(Application.Handle, True);
end;
----------------------------------------------------------
Dll的函数可以这样写:type
pTForm = ^TForm;function ShowForm(pParent : Pointer) : Boolean;stdcall;
var
pForm : pTForm;
begin
try
pForm := pTForm(pParent);
FormB.Parent := TWinControl(pForm^);
FormB.Show;
Result := True;
except
Result := False;
end;
end;
----------------------------------------------------调用的时候:procedure TFormA.Button1Click(Sender: TObject);
begin
ShowForm(@Self);
end;