🚀 go-pugleaf

 �����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.nju.edu.cn��[FROM: hsia.nju.edu.cn]