关于MDIform的简单问题

Question

详细：
我做了一个主mdiform,其他都是mdichild,我想mdichild不要标题栏，该如何操作?

Answer 1

mdichild.setwindowlong(handle,ws_ex_style，ws_ex_toolwindow);参数我有点记不清了，可参考WINDOW.PAS

Answer 2

mdichild窗体的FormCreate中写：
var
  OldStyle: DWORD;
begin
  OldStyle := GetWindowLong( Handle, GWL_STYLE );
  SetWindowLong(Handle, GWL_STYLE, OldStyle and not WS_CAPTION);
  SetBounds( Left, Top, ClientWidth, ClientHeight );
end;

Answer 3

谢谢大家
请问该如何判断该form已经释放?
我在mdichild中关闭不了?我添加个按钮,代码是:free;则该mdichild是关闭
但是用Assigned(form1)测试还是不等于nil?我想实现如下功能:
If not Assigned(form1) then //判断该form1是否在运行?该如何实现?
    form1:=Tform2.create(Application);
form1.show;

Answer 4

BCB里可以用CreateParamsDELPHI就不知道行不行了

Answer 5

在mdichild的OnClose事件中赋值事件参数 Action := caFree,便可。

Answer 6

procedure TForm1.FormDestroy(Sender: TObject);
begin
  if Self=Form1 then
    Form1 := nil;
end;