各位前輩:          請問一個有關DockManager的問題 我想將兩個TForm Dock在一個TPanel上面 然後在關閉程式時記錄這兩個Form的位置與大小 (為的是下一次開啟程式時,會自動回復上一次donking的位置)    所以我寫了以下的程式碼: 在FormShow時把2個FormA與FormB放到Panel1上面, 然後在FormClose時利用DockManager->SaveToStream儲存資訊到檔案中 下一次開啟程式時,按下Button1利用DockManager->LoadFromStream讀取docking的資訊(位置與大小)    當我使用2個TForm時,執行DockManager->LoadFromStream後並不會回復到之前的docking位置與大小 而且在Panel1中的FormA與FormB會變成無法拉動改變大小    如果將2個TForm改成用2個TPanel就可以正常執行 為什麼用Panel就可以用Form就不行呢? (因為特殊需求所以我必須使用TForm而不能使用TPanel)    謝謝先~    程式碼如下:

    void __fastcall TForm1::FormShow(TObject *Sender)
{
        FormA->ManualDock(Panel1,Panel1,alNone);
        FormB->ManualDock(Panel1,Panel1,alNone);
        FormA->Show();
        FormB->Show();
}    void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{            TFileStream *FileStr;
        FileStr = new TFileStream("C:\\dockposition.dck",fmCreate|fmOpenWrite);
        Panel1->DockManager->SaveToStream(FileStr);
        delete FileStr;     }
void __fastcall TForm1::Button1Click(TObject *Sender)
{            TFileStream *FileStr;
        FileStr = new TFileStream("C:\\dockposition.dck",fmOpenRead);
        Panel1->DockManager->LoadFromStream(FileStr);
        delete FileStr;            Panel1->DockManager->ResetBounds(true);
}←

發表人 - taishyang 於 2005/04/13 12:43:21