各位大大：     小弟做了一個 MDI 應用程式，不過很困擾的就是每次 MDI 之 Child 視窗跑出來都會跑掉，如何才能使它依照我指定的大小出現，而且無法讓使用者調動呢？謝謝！

您可以參考之前類似的問題。 【問題】請問一下如何將視窗大小及位置固定不動呢? http://delphi.ktop.com.tw/topic.php?TOPIC_ID=57571

Hi kyusikin:    try this..^^    在你Create Child後, 加入下列Code

  Child.BorderStyle := bsSingle;
  Child.Width := 100;
  Child.Height := 100;
  Child.Top := 0;
  Child.Left := 0;

-------------------------- ～天下本無事 庸人自擾之～

引言: 您可以參考之前類似的問題。 【問題】請問一下如何將視窗大小及位置固定不動呢? http://delphi.ktop.com.tw/topic.php?TOPIC_ID=57571

感謝您的回答，不好意思，我是新手，想進一步請教： SC_MAXIMIZE,SC_MOVE,61441..61448,61458 :; 這一行的數值代表什麼意思啊？

引言: Hi kyusikin: try this..^^ 在你Create Child後, 加入下列Code

  Child.BorderStyle := bsSingle;
  Child.Width := 100;
  Child.Height := 100;
  Child.Top := 0;
  Child.Left := 0;

-------------------------- ～天下本無事 庸人自擾之～

您好： 這方法雖然可以固定Child的大小，但是卻無法讓Child緊緊貼在Mail Form的左上方耶。您的程式碼雖然有寫： Child.Top := 0; Child.Left := 0; 但還是一出現就會和Mail Form有空隙產生，有更好的解決方式嗎？

SC_MAXIMIZE 最大化事件 （點擊□按鈕] SC_MOVE,61458 移動標題列 61441..61448 選擇視窗邊框 作改變視窗大小的動作。 遮蔽掉這些動作，將使得使用者無法任意改變視窗的大小及位置。 發表人 - wameng 於 2004/10/14 13:41:12

補一下！我之前的作法。 * 如何使 MDICHILD FORM 可以設定BORDERSTYLE = BSNONE; procedure CreateParams(var Params: TCreateParams); override; procedure TFORM1.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); Params.Style := WS_CHILD; end; 請在屬性列，設定BORDERSTYLE = BSNONE;

引言: 各位大大： 小弟做了一個 MDI 應用程式，不過很困擾的就是每次 MDI 之 Child 視窗跑出來都會跑掉，如何才能使它依照我指定的大小出現，而且無法讓使用者調動呢？謝謝！ < face="Verdana, Arial, Helvetica"> 我已經解決了，不過是利用 wameng 及 Windyboy 這兩位大大的方式，再修改一下程式碼。不過這下子我要給誰分數啊？..< >< >

呵呵.... 沒辦法了！扔銅板決定！ 

在FormReSize中加入判斷,使FormSize大小不變,試試.

應該給wameng大大吧...    他回答的才是[正確解答]啦...    我的只能幫到你一半...哈哈 -------------------------- ～天下本無事 庸人自擾之～