爬了文章，如果只是想一開始就要 bsNone 可以
override CreateParams 來做

那如果我想讓mdi子視窗在 Active 事件變成正常的 bsSizeable , 在 Deactive 時變成 bsNone
該怎麼做呢 ？ CreateParams 只能在視窗建立的時候使用

SetWindowLong應該可以.
[code delphi]
procedure SetFormBorder(Form: tCustomForm; Visible: boolean);
const
BorderStyles = WS_BORDER or WS_CAPTION or WS_SIZEBOX;
var
Styles: integer;
begin
Styles := GetWindowLong(Form.Handle, GWL_STYLE);
if visible
then Styles := Styles or BorderStyles
else Styles := Styles and not BorderStyles;
SetWindowLong(Form.Handle, GWL_STYLE, Styles);
end;
[/code]

在MDI內試了，沒有任何效果耶，會不會是缺了Refresh 的指令呢 ？

===================引 用 歸木淡 文 章===================
SetWindowLong應該可以.
[code delphi]
procedure SetFormBorder(Form: tCustomForm; Visible: boolean);
const
BorderStyles = WS_BORDER or WS_CAPTION or WS_SIZEBOX;
var
Styles: integer;
begin
Styles := GetWindowLong(Form.Handle, GWL_STYLE);
if visible
then Styles := Styles or BorderStyles
else Styles := Styles and not BorderStyles;
SetWindowLong(Form.Handle, GWL_STYLE, Styles);
end;
[/code]

對不起，我沒有用過在MiDIChild上，剛才我試了試，發現真的不行..........
你可以試試用Region，不過我也不知可不可以
[code delphi]procedure SetFormBorder(const visible: boolean);
var
Rgn: THandle;
p, ps: tpoint;
begin
if visible then
begin
SetWindowRgn(Handle, 0, TRUE);
end else
begin
p:=ClientToScreen(point(0,0)); // p = Client 左上角在SCREEN的位置
ps:=point(Left, Top);
if assigned(parent)
then ps:=parent.ClientToScreen(ps); // ps = Form 左上角在SCREEN的位置
dec(p.x, ps.x);
dec(p.y,ps.y); // p = Client 左上角在Form的位置
Rgn := CreateRectRgn(p.x, p.y, p.x ClientWidth, p.y ClientHeight);
SetWindowRgn(Handle, Rgn, TRUE);
DeleteObject(Rgn);
end;
end;
[/code]
隨手寫來，可能有點語法錯誤.........

可以用，部份x ,y 座標自己再調一下就好了 ，感謝