main.dfm

一个经典的读写Excel的控件

object frmMain: TfrmMain
  Left = 415
  Top = 128
  BorderStyle = bsDialog
  Caption = 'Create Hyperlinks Sample'
  ClientHeight = 242
  ClientWidth = 558
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 32
    Width = 15
    Height = 13
    Caption = 'Col'
  end
  object Label2: TLabel
    Left = 52
    Top = 32
    Width = 21
    Height = 13
    Caption = 'Row'
  end
  object Label3: TLabel
    Left = 96
    Top = 32
    Width = 46
    Height = 13
    Caption = 'Cell value'
  end
  object Label4: TLabel
    Left = 200
    Top = 32
    Width = 39
    Height = 13
    Caption = 'Address'
  end
  object Label5: TLabel
    Left = 416
    Top = 32
    Width = 32
    Height = 13
    Caption = 'Tooltip'
  end
  object Label6: TLabel
    Left = 8
    Top = 12
    Width = 42
    Height = 13
    Caption = 'Filename'
  end
  object Button1: TButton
    Left = 472
    Top = 212
    Width = 75
    Height = 25
    Caption = 'Close'
    TabOrder = 0
    OnClick = Button1Click
  end
  object edCol: TEdit
    Left = 4
    Top = 48
    Width = 41
    Height = 21
    TabOrder = 1
    Text = '1'
  end
  object edRow: TEdit
    Left = 48
    Top = 48
    Width = 41
    Height = 21
    TabOrder = 2
    Text = '1'
  end
  object edCellValue: TEdit
    Left = 92
    Top = 48
    Width = 105
    Height = 21
    TabOrder = 3
  end
  object edAddress: TEdit
    Left = 200
    Top = 48
    Width = 213
    Height = 21
    TabOrder = 4
  end
  object edTooltip: TEdit
    Left = 416
    Top = 48
    Width = 133
    Height = 21
    TabOrder = 5
  end
  object Button2: TButton
    Left = 4
    Top = 212
    Width = 75
    Height = 25
    Caption = 'Add'
    TabOrder = 6
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 388
    Top = 212
    Width = 75
    Height = 25
    Caption = 'Save'
    TabOrder = 7
    OnClick = Button3Click
  end
  object edFilename: TEdit
    Left = 56
    Top = 8
    Width = 469
    Height = 21
    TabOrder = 8
  end
  object Button4: TButton
    Left = 528
    Top = 8
    Width = 21
    Height = 21
    Caption = '...'
    TabOrder = 9
    OnClick = Button4Click
  end
  object Memo1: TMemo
    Left = 4
    Top = 72
    Width = 545
    Height = 129
    BorderStyle = bsNone
    Color = clBtnFace
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Courier New'
    Font.Style = []
    Lines.Strings = (
      'There can be four types of hyperlinks:'
      '1. URL, an internet address (http://, ftp:// , mailto:).'
      '2. UNC, a network file address (\\MyServer\ ...).'
      '3. The current workbook (Sheet1!B2).'
      '4. A local file.'
      
        'The hyperlink type is detected automatically. If it don'#39't matche' +
        's any of the '
      
        'first three, it is assumed to be a local file. This can be chang' +
        'ed with the '
      'HyperlinkType property.')
    ParentFont = False
    ReadOnly = True
    TabOrder = 10
  end
  object dlgSave: TSaveDialog
    Filter = 'Excel files (*.xls)|*.xls|All files (*.*)|*.*'
    Left = 124
    Top = 208
  end
  object XLS: TXLSReadWriteII2
    Version = xvExcel97
    Sheets = <
      item
        Name = 'Sheet1'
        DefaultColWidth = 8
        DefaultRowHeight = 255
        PrintSettings.Copies = 0
        PrintSettings.FooterMargin = 0.5
        PrintSettings.HeaderMargin = 0.5
        PrintSettings.MarginBottom = -1
        PrintSettings.MarginLeft = -1
        PrintSettings.MarginRight = -1
        PrintSettings.MarginTop = -1
        PrintSettings.Options = [psoPortrait]
        PrintSettings.PaperSize = psNone
        PrintSettings.ScalingFactor = 255
        PrintSettings.StartingPage = 1
        PrintSettings.HorizPagebreaks = <>
        PrintSettings.VertPagebreaks = <>
        PrintSettings.Resolution = 0
        MergedCells = <>
        Options = [soGridlines, soRowColHeadings, soShowZeros]
        WorkspaceOptions = [woShowAutoBreaks, woRowSumsBelow, woColSumsRight, woOutlineSymbols]
        Zoom = 0
        ZoomPreview = 0
        RecalcFormulas = True
        FixedRows = 0
        FixedCols = 0
        Validations = <>
        DrawingObjects.Texts = <>
        DrawingObjects.Notes = <>
        DrawingObjects.Basics = <>
        DrawingObjects.AutoShapes = <>
        DrawingObjects.Pictures = <>
        ControlsObjects.ListBoxes = <>
        ControlsObjects.ComboBoxes = <>
        ControlsObjects.Buttons = <>
        Hyperlinks = <>
        ConditionalFormats = <>
      end>
    Workbook.Left = 100
    Workbook.Top = 100
    Workbook.Width = 10000
    Workbook.Height = 7000
    Workbook.SelectedTab = 0
    Workbook.Options = [woHScroll, woVScroll, woTabs]
    OptionsDialog.SaveExtLinkVal = False
    OptionsDialog.CalcCount = 0
    OptionsDialog.CalcMode = cmAutomatic
    OptionsDialog.ShowObjects = soShowAll
    OptionsDialog.Iteration = False
    OptionsDialog.PrecisionAsDisplayed = True
    OptionsDialog.R1C1Mode = False
    OptionsDialog.RecalcBeforeSave = False
    OptionsDialog.Uncalced = False
    OptionsDialog.SaveRecalc = False
    BookProtected = False
    Backup = False
    RefreshAll = False
    StrTRUE = 'TRUE'
    StrFALSE = 'FALSE'
    ShowFormulas = False
    IsMac = False
    PreserveMacros = True
    ComponentVersion = '2.00.00'
    MSOPictures = <>
    Left = 92
    Top = 208
  end
end