私はこれがfsMDIChildありませんフォームができないように制御できるようにする必要があり、私はdxRibbonとdxStatusBar（DevExpress社）</p> <p>を持ってfsMDIFormの内側のコーナーを見つけるためにしようとしていますfsMDIForm

Question

のコーナーを見つけてエリア外に移動する。

私は動きを制御する機能を持っているので、フォームが移動できる領域であるTRectを返す関数が必要です。

Answer 1

procedure TMainForm.Button1Click(Sender: TObject); 
var 
    R: TRect; 
begin 
    Windows.GetWindowRect(Self.ClientHandle, R); 
    with TForm2.Create(Self) do 
    begin 
    BoundsRect := R; 
    Show; 
    end; 
end;