人人做人人澡人人爽欧美,国产主播一区二区,久久久精品五月天,羞羞视频在线观看免费

當前位置:蘿卜系統下載站 > 技術開發教程 > 詳細頁面

Delphi4的窗口融合技術

Delphi4的窗口融合技術

更新時間:2022-10-10 文章作者:未知 信息來源:網絡 閱讀次數:

Delphi4除了繼承先前版本強大的面向對象的功能外,而且引入了十幾項新技術、新特征。Docking 就是其中的一項,有人將Docking譯為對接、入塢、結合等,也可以譯為“窗口融合技術”。那么什么是窗口融合技術呢?窗口融合是一項先進的界面設計技術,體現了當今的發展趨勢。Word97的浮動工具欄就是一種窗口融合技術,有時也稱為Word97風格的浮動工具欄。下面針對目前比較流行的窗口與窗口的融合例程來進行:

  經過筆者一段時間的使用,發現Panel控件最適合作兩個窗口融合的工具。由于這是最一般的情況,所以這里舉一個具有代表性的例子詳細說明。我們要達到的要求是:程序運行后,出現主窗口,按一個按鈕,出現另一個窗口,拖動此窗口,與主窗口融合在一起,融合后主窗口的Caption變成兩個窗口的Caption相加。在主窗口form1中放置兩個Panel控件(panel1和panel2),一個Button控件(button1);另一個窗口form2為空白窗口。具體屬性設置如下:

  panel1:

  align:alleft;

  docksite:true;

  usedockmanager:true;

  panel2:

  align:albottom;

  docksite:true;

  usemanager:true;

  form2:

  anchors:[aktop,akbottom,akleft,akright];

  dragmode:dmautomatic;

  dragkind:dkdock;

  設置button1的onclick事件,對應的代碼如下:

  procedure TForm1.Button1Click(Sender: TObject);

  begin

  form2.Show;

  a:=form1.caption;

  b:=form2.caption;

  end;

  設置panel1和panel2的onundock事件,代碼如下:

  procedure TForm1.Panel1UnDock(Sender: TObject; Client: TControl; NewTarget: TWinControl; var Allow: Boolean);

  begin

  form1.caption:=a;

  form1.Refresh;

  end;

  設置panel1和panel2的ondockdrop事件,代碼如下:

  procedure TForm1.Panel1DockDrop(Sender:TObject; Source: TDragDockObject; X, Y: Integer);

  begin

  form1.Caption:=a+′,′+b;

  form1.Refresh;

  end;

  其中a,b為String型變量,用以保存窗口的最初標題,在form1的接口處聲明。

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統下載排行

網站地圖xml | 網站地圖html
主站蜘蛛池模板: 葫芦岛市| 崇明县| 揭东县| 淅川县| 环江| 杨浦区| 呼伦贝尔市| 平果县| 道孚县| 郎溪县| 闵行区| 岑溪市| 咸宁市| 绥中县| 衡阳县| 林西县| 疏勒县| 通州市| 永寿县| 象山县| 天水市| 安福县| 安顺市| 北川| 阿拉善右旗| 永宁县| 双辽市| 黄浦区| 宣城市| 南京市| 岳普湖县| 江源县| 额敏县| 阳东县| 龙岩市| 兴化市| 城市| 周至县| 会昌县| 肃北| 阿图什市|