delete.~xfm

《Kylix程序设计》一书中附带的例程源代码

object FrmDelete: TFrmDelete
  Left = 214
  Top = 120
  Width = 323
  Height = 93
  HorzScrollBar.Range = 307
  VertScrollBar.Range = 75
  Caption = 'Delete'
  Color = clBackground
  Font.Color = clBlack
  Font.Height = 13
  Font.Name = 'Helvetica'
  Font.Pitch = fpVariable
  Font.Style = []
  ParentFont = False
  PixelsPerInch = 97
  TextHeight = 15
  TextWidth = 7
  object LblPosition: TLabel
    Left = 8
    Top = 20
    Width = 47
    Height = 15
    Caption = 'Position:'
    Font.Color = clBlack
    Font.Height = 13
    Font.Name = 'Helvetica'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentFont = False
  end
  object EdtPosition: TEdit
    Left = 60
    Top = 16
    Width = 69
    Height = 23
    Font.Color = clBlack
    Font.Height = 13
    Font.Name = 'Helvetica'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    Text = '0'
  end
  object BtnOK: TButton
    Left = 232
    Top = 16
    Width = 75
    Height = 23
    Caption = 'OK'
    Font.Color = clBlack
    Font.Height = 13
    Font.Name = 'Helvetica'
    Font.Pitch = fpVariable
    Font.Style = []
    ModalResult = 1
    ParentFont = False
    TabOrder = 2
  end
  object BtnCancel: TButton
    Left = 232
    Top = 52
    Width = 75
    Height = 23
    Caption = 'Cancel'
    Font.Color = clBlack
    Font.Height = 13
    Font.Name = 'Helvetica'
    Font.Pitch = fpVariable
    Font.Style = []
    ModalResult = 2
    ParentFont = False
    TabOrder = 3
  end
end