● 使用Delphi实现滚动式面板窗口 - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: Peter (小飞侠), 信区: Program
标  题: 使用Delphi实现滚动式面板窗口
发信站: BBS 荔园晨风站 (Wed Jan 27 17:48:11 1999), 转信

常见的Windows应用程序界面基本是三种,也就是MFC或OWL中所支持
的单窗口、多窗口和对话窗口式;利用Delphi可轻易构造出新的应用
界面。本文仅举一例:滚动式面板窗口,它兼有菜单式、多窗口和对话
窗口等界面的多种优点。
    构造方法如下:
图1

    在PWIN95下运行Delphi 2.0
    1.在Additional组件集中选中一个ScrollBox,放置于Form中。
    2.从Standard组件集中,选多个Panel放置于ScrollBox。
      若Panel超出ScrollBox的可视区域,则ScrollBox会自动出现上
/下、左/右滚行杠,可滚动在ScrollBox的Panel组件中。

    3.再在每个Panel上放置其它的控制组件,如image、BitBtn等。
本例中,在ScrollBox中共放置了6个Panel,每个Panel上又放置了一个
image和一个BitBtn。
    4.在Form中直接放置一个Panel,显示标题"滚动式面板演示"。
    5.将Form的BorderStyle设为bsNone。
    源程序:(本例只实现了"退出系统"功能,读者可以根据需要编写
自己想要实现的功能。
    unit Unit1;
    interface
    uses
      Windows, Messages, SysUtils, Classes, Graphics, Contro
ls, Forms, Dialogs
      ExtCtrls, StdCtrls, Buttons;
    type
      TForm1 = class(TForm)
    ScrollBox1: TScrollBox;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    Panel6: TPanel;
    Image6: TImage;
    BitBtn6: TBitBtn;
    Panel7: TPanel;
    Panel8: TPanel;
      procedure BitBtn6Click(Sender: TObject);
      private
    { Private declarations }
      public
    { Public declarations }
      end;
        var
      Form1: TForm1;
    implementation
    {$R *.DFM}
      procedure TForm1.BitBtn6Click(Sender: TObject);{退出系
统}
    begin
      Close;
    end;
      end.
    本程序运行环境:6×86微机(16MB RAM,1.2GB硬盘)、PWin95操作
系统;、Delpli 2.0

--
※ 来源:．BBS 荔园晨风站 bbs.szu.edu.cn．[FROM: 192.168.1.3]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店