請問這個是什麼元件，有範例可參考如何設計嗎? |
|
答題得分者是：axsoft
|
|
skurama
中階會員   發表：88 回覆：127 積分：73 註冊：2002-07-22 發送簡訊給我 |
剛才在用Delphi的Code Editor時，
忽然發現左邊有一個可以拖曳的視窗(雖然知道很久了)，
一時興起想試試看如何使用，
沒想到找不到。
請問有人只道是哪個元件，以及大概如何使用或範例嗎? 圖如下
------
---------------- 初出芧房程設師， 左鍵右鼠寫程式， 日扣夜寫眼框溼， 望能早成系分師。 ---------------- |
|
ha0009
版主 發表：16 回覆：507 積分：639 註冊：2002-03-16 發送簡訊給我 |
|
|
axsoft
版主  發表：681 回覆：1056 積分：969 註冊：2002-03-13 發送簡訊給我 |
|
|
skurama
中階會員 發表：88 回覆：127 積分：73 註冊：2002-07-22 發送簡訊給我 |
謝謝兩位的幫忙:
目前改成一個
Panel1 上放一個 Panel2
panel1.docksite := true; panel2.dragkind := dkDock;
panel2.dragmode := dmAutomatic; 再請問一下:
在axsoft大大的第二個超連結中，
有一斷範例大概如下 void __fastcall TForm1::FormCreate(TObject *Sender)
{
TRect Recto(Left, Top, Left Panel1->Width, Top ClientHeight);
Panel2->ManualFloat( Recto);
Panel2->ManualDock(Panel1, Panel1, alClient);
} 我改成: procedure TForm1.FormCreate(Sender: TObject);
var
Recto : TRect;
begin
Recto.TopLeft.X := panel1.left;
Recto.TopLeft.Y := panel1.Top;
Recto.BottomRight.X := panel1.left panel1.Width;
Recto.BottomRight.Y := panel1.Top panel1.Height;
// Recto := TRect.;
Panel2.ManualFloat(Recto); //大概知道是讓panel2 undock
// Recto.free;
Panel2.ManualDock(panel1,panel1,alclient); //手動 dock end; 雖然可以運作，但不清楚Recto所放入的參數是否正確?
謝謝!! ----------------
快滿一年程設師，
日日工作寫程式，
每買樂透眼框溼，
望能早成系分師。
----------------
------
---------------- 初出芧房程設師， 左鍵右鼠寫程式， 日扣夜寫眼框溼， 望能早成系分師。 ---------------- |
發表時間：2003-08-05 23:22:49
IP:61.13.xxx.xxx 未訂閱
系統時間：2024-05-04 15:12:39
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |