toolpropdialog.dfm

大家是不是为不知道如何在VB学到绝地程序

object dlgToolProp: TdlgToolProp
  Left = 192
  Top = 123
  AutoSize = True
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Custom Tool Properties'
  ClientHeight = 98
  ClientWidth = 298
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 19
    Top = 4
    Width = 23
    Height = 13
    Caption = '&Title:'
    FocusControl = edtTitle
  end
  object Label2: TLabel
    Left = 0
    Top = 29
    Width = 42
    Height = 13
    Caption = '&Program:'
  end
  object Label3: TLabel
    Left = 0
    Top = 54
    Width = 42
    Height = 13
    Caption = '&WorkDir:'
    FocusControl = edtWorkDir
  end
  object Label4: TLabel
    Left = 4
    Top = 79
    Width = 38
    Height = 13
    Caption = 'Pa&rams:'
    FocusControl = edtParams
  end
  object edtTitle: TEdit
    Left = 46
    Top = 0
    Width = 173
    Height = 21
    TabOrder = 0
  end
  object edtWorkDir: TEdit
    Left = 45
    Top = 50
    Width = 173
    Height = 21
    TabOrder = 4
  end
  object edtParams: TEdit
    Left = 46
    Top = 75
    Width = 173
    Height = 21
    TabOrder = 5
  end
  object btnOK: TBitBtn
    Left = 223
    Top = 46
    Width = 75
    Height = 25
    Caption = '&OK'
    TabOrder = 2
    Kind = bkOK
  end
  object btnCancel: TBitBtn
    Left = 223
    Top = 73
    Width = 75
    Height = 25
    Caption = '&Cancel'
    TabOrder = 3
    Kind = bkCancel
  end
  object edtProgram: TFilenameEdit
    Left = 46
    Top = 25
    Width = 173
    Height = 21
    Filter = 
      'All Files (*.*)|*.*|Execute Files (*.exe)|*.exe|Help Files (*.hl' +
      'p;*.chm)|*.hlp;*.chm'
    NumGlyphs = 1
    TabOrder = 1
    Text = 'edtProgram'
  end
end