umainform.pas

来自「一整套的源代码」· PAS 代码 · 共 50 行

unit UMainForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UMyForm, jpeg, RzBckgnd, ExtCtrls, RzPanel, RzButton, ImgList,
  Buttons, RzBmpBtn, StdCtrls, UView, UControllerView, UPagesView,
  UAdapterDataPagesView, Menus, RzLabel;

type
  TMainForm = class(TMyForm)
    RzPanel1: TRzPanel;
    RzBackground1: TRzBackground;
    RzPanel2: TRzPanel;
    PagesView: TAdapterDataPagesView;
    ImageList: TImageList;
    RzPanel3: TRzPanel;
    BtnSys: TRzMenuButton;
    RzLabel1: TRzLabel;
    PMSys: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    procedure N2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

procedure TMainForm.N2Click(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  inherited;
  Width := Screen.Width - 2;
  Height := Screen.Height - 2;
end;

end.