main.dfm

PEZIP捆绑壳delphi源代码 一份不错的源码

object frmMain: TfrmMain
  Left = 229
  Top = 235
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  ClientHeight = 110
  ClientWidth = 363
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object btnOpen: TButton
    Left = 241
    Top = 14
    Width = 25
    Height = 25
    Caption = '...'
    TabOrder = 0
    OnClick = btnOpenClick
  end
  object edtFilePath: TEdit
    Left = 6
    Top = 16
    Width = 233
    Height = 21
    Color = clBtnFace
    ReadOnly = True
    TabOrder = 1
  end
  object btnCompress: TButton
    Left = 280
    Top = 12
    Width = 75
    Height = 25
    Caption = 'Compress'
    TabOrder = 2
    OnClick = btnCompressClick
  end
  object btnClose: TButton
    Left = 280
    Top = 44
    Width = 75
    Height = 25
    Caption = 'Close'
    TabOrder = 3
    OnClick = btnCloseClick
  end
  object btnAbout: TButton
    Left = 280
    Top = 76
    Width = 75
    Height = 25
    Caption = 'About'
    TabOrder = 4
    OnClick = btnAboutClick
  end
  object dlgOpen: TOpenDialog
    Filter = 'Executable files (*.exe)|*.exe'
    InitialDir = '.'
    Top = 80
  end
end