儘管微軟不建議開發人員使用 MDI 界面, 但仍有不少重量級程式仍使用 MDI 界面.(微軟的 Office 系列即是一例)
Delphi 當然也能讓您設計 MDI 界面 , 但您會發現以Delphi設計的 MDI Form 的父視窗的邊框並不像其他 MDI 程式
的父視窗那樣立體, 關鍵就在視窗形式 WS_EX_CLIENTEDGE, 我們將透過 override CreateParams 函數來修改視窗建
立時的參數:
在 TForm1 的類別宣告中加入:
procedure CreateParams(var Params: TCreateParams); override;
然後是函數的實作部份:
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.ExStyle := Params.ExStyle or WS_EX_CLIENTEDGE;
end;
非 MDI Form 也可以這麼做喔! (取材自 Delphi Developer's Journal)
               (
geocities.com/huanlin_tsai)