我在form1中创建form2,当form1最小化时,form2也最小化,能不能让他们之间独立?
我用下面的方式创建。
procedure TForm1.btn1Click(Sender: TObject);
begin
Form2 := TForm2.Create(nil);
Form2.Show;
end;
我用下面的方式创建。
procedure TForm1.btn1Click(Sender: TObject);
begin
Form2 := TForm2.Create(nil);
Form2.Show;
end;
解决方案 »
- Delphi菜鸟一天一问,数据库程序在别人机器上出错!
- 如何取得另外一个进程当前焦点控件的文本内容?
- image.canvas清屏问题
- ddd:='&sub='+selecttype.text;我现在showmessage(ddd);为什么sub前有一个&不见了?请问如何写才出输出来呢?
- 拜托,帮一下忙(关于PageControl和菜单),很抱歉没什么分了
- 请问如何在Delphi的quickReport报表预览窗口中的另存为Excel文件
- 一个关于SQL语句的简单问题
- 在Delphi中如何实现将windows的任务栏设置为自动隐藏?
- 汉字的自动选择问题!!急急!!
- 应用程序服务器用什么方式比较好?
- DBGridEh的Column Line多行显示(包括空记录)(凭证式)
- FastReport 中如果StoreInDfm为false的话,该如何处理才能动态加载设计好的报表文件?
if Application.FindComponent('Form2')=nil then
Form2:=TForm2.Create(Application);
Form2.Show;
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.WndParent := GetDesktopWindow;
end;frm2 := TForm2.Create(nil);
frm2.Show;
SetWindowLong(frm2.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW); //这句不起作用