createwindow()另外,你建立的所有窗口均属于TApplication窗口
解决方案 »
- 大神帮我看看这段代码问题所在吧,万分感激...在线等哟.....
- 听说delphi中report machine能编写代码,在哪里写?
- Delphi6中,接收到的UTF-8编码的乱码中文如何转化为可识别中文(小鸟在线等)
- 请教用sql语句按字段名对查询结果排序问题
- [高分]如何在Delphi里面显示透明Flash????
- 高分求MPEG II 转DVD格式文件结构的代码或资料。
- f1book1在delphi6.0的安装?
- 各位有没有用过这种功能的控件呢?
- 在进行sql插入数据时,系统报错,请问“access violation at address 004cf5a7 in moudule"是什么意思?
- 不知哪位仁兄能告诉我,哪个免费空间装有BDE,因为我写了一个ISAPP程序,我一定给分!!
- 如何用delphi调用一个静态网页
- 一个Delphi初学者的小问题!
createparam()
在这个事件里,重载就可以了,好像是的:)
如下:
unit Unit4;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
procedure CreateParams(var Params: TCreateParams); override;
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.WndParent := 0;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
with TForm1.Create(Application) do
Show;
end;end.
可是这样的话,开始就出现了两个窗口(Form1 and project1),怎么解决?