delphi如何用CreateWindowEx创建一个窗体？

这个都没人来答么，那我来大概说说吧。

首先你得先写一个注册窗口的函数：

function tmainform.RegClass:Boolean

var

WndClass:TWndClass

begin

//这里面是你注册的WndClass窗体的信息，代码麻烦我就不打了。

end

然后是创建窗口的过程：

procedure tmainform.CreateForm

var

Wnd:HWND

begin

RegClass

Wnd:=CreateWindow('MyFormClass', //注册窗口类名

'窗口标题', //窗口标题栏

WS_OVERLAPPEDWINDOW, //窗口风格

CW_USEDEFAULT, //默认left

CW_USEDEFAULT, //默认top

CW_USEDEFAULT, //默认width

CW_USEDEFAULT, //默认height

SELF.HANDLE, //父窗口句柄

MainMenu1.Handle,//窗口菜单

HInstance, //程序实例

nil //窗体附加参数

)

IF Wnd<>0 THEN

BEGIN

ShowWindow(Wnd,SW_SHOWNORMAL)//SHOW窗口

UpdateWindow(Wnd)//刷新窗口

END

end

完了，以上是以 CreateWindow 为例 创建窗口，仅作参考。

PS：没有分的回答还要打N多代码，怪不得没人来答。

方法很多

1.可以在通过Delphi的程序项目管理器Project--->Options--->Forms选择添加要自动启动的窗体。

2.直接使用代码,功能同上。

Application.CreateForm(Form1,TForm1)

Application.CreateForm(Form2,TForm2)

3.在第一窗体启动后再创建第二个窗体

Form2:=TForm2.create(Application)

Form2.Show

这两行代码可以放在按扭里手工启动，也可以放在第一个窗体的CREATE事件自动创建第二个窗体。

---