showmsg.xfm

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

object FrmMain: TFrmMain
  Left = 123
  Top = 131
  Width = 596
  Height = 300
  HorzScrollBar.Range = 587
  VertScrollBar.Range = 291
  ActiveControl = RadGrpMsgMethod
  Caption = 'Showing Messages...'
  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 RadGrpMsgMethod: TRadioGroup
    Left = 12
    Top = 8
    Width = 185
    Height = 217
    Items.Strings = (
      'TApplication.MessageBox'
      'ShowMessage'
      'ShowMessagePos'
      'ShowMessageFmt'
      'MessageDlg'
      'MessageDlgPos'
      'InputBox'
      'InputQuery')
    Caption = 'Message Method:'
    Font.Color = clBlack
    Font.Height = 13
    Font.Name = 'Helvetica'
    Font.Pitch = fpVariable
    Font.Style = []
    ItemIndex = 0
    ParentFont = False
    TabOrder = 3
    OnClick = RadGrpMsgMethodClick
  end
  object RadGrpMsgType: TRadioGroup
    Left = 212
    Top = 8
    Width = 132
    Height = 169
    Items.Strings = (
      'Custom'
      'Information'
      'Warning'
      'Error or Critical'
      'Confirmation')
    Caption = 'Message Type:'
    ItemIndex = 1
    TabOrder = 1
  end
  object GrpBoxButtons: TGroupBox
    Left = 352
    Top = 8
    Width = 145
    Height = 217
    Caption = 'Buttons:'
    TabOrder = 2
    object Bevel1: TBevel
      Left = 2
      Top = 178
      Width = 141
      Height = 2
    end
    object ChkBoxButtonHelp: TCheckBox
      Left = 12
      Top = 184
      Width = 100
      Height = 30
      Caption = 'Help'
      TabOrder = 0
    end
    object RadBtnButtonOK: TRadioButton
      Left = 12
      Top = 44
      Width = 113
      Height = 17
      Caption = 'OK'
      Checked = True
      TabOrder = 1
    end
    object RadBtnButtonOKCancel: TRadioButton
      Left = 12
      Top = 69
      Width = 113
      Height = 17
      Caption = 'OK Cancel'
      TabOrder = 2
      TabStop = False
    end
    object RadBtnButtonYesNo: TRadioButton
      Left = 12
      Top = 94
      Width = 113
      Height = 17
      Caption = 'Yes No'
      TabOrder = 3
      TabStop = False
    end
    object RadBtnButtonYesNoCancel: TRadioButton
      Left = 12
      Top = 119
      Width = 113
      Height = 17
      Caption = 'Yes No Cancel'
      TabOrder = 4
      TabStop = False
    end
    object RadBtnButtonAbortRetryIgnore: TRadioButton
      Left = 12
      Top = 144
      Width = 129
      Height = 17
      Caption = 'Abort Retry Ignore'
      TabOrder = 5
      TabStop = False
    end
    object RadBtnButtonNone: TRadioButton
      Left = 12
      Top = 20
      Width = 113
      Height = 17
      Caption = 'None'
      TabOrder = 6
    end
  end
  object LblX: TLabel
    Left = 212
    Top = 204
    Width = 12
    Height = 15
    Caption = 'X:'
  end
  object EdtX: TEdit
    Left = 228
    Top = 200
    Width = 41
    Height = 23
    TabOrder = 4
    Text = '350'
  end
  object LblY: TLabel
    Left = 284
    Top = 204
    Width = 12
    Height = 15
    Caption = 'Y:'
  end
  object EdtY: TEdit
    Left = 300
    Top = 200
    Width = 41
    Height = 23
    TabOrder = 6
    Text = '250'
  end
  object LblMsg: TLabel
    Left = 212
    Top = 272
    Width = 54
    Height = 15
    Caption = 'Message:'
  end
  object EdtMsg: TEdit
    Left = 272
    Top = 268
    Width = 225
    Height = 23
    TabOrder = 8
  end
  object LblCaption: TLabel
    Left = 212
    Top = 240
    Width = 46
    Height = 15
    Caption = 'Caption:'
  end
  object EdtCaption: TEdit
    Left = 272
    Top = 236
    Width = 225
    Height = 23
    TabOrder = 10
    Text = 'Show Message Dialog'
  end
  object BtnShow: TButton
    Left = 512
    Top = 16
    Width = 75
    Height = 25
    Caption = 'Show'
    TabOrder = 11
    OnClick = BtnShowClick
  end
  object PnlReturn: TPanel
    Left = 12
    Top = 240
    Width = 185
    Height = 49
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 12
    object LblReturn: TLabel
      Left = 4
      Top = 16
      Width = 39
      Height = 15
      Caption = 'Return:'
    end
    object EdtReturn: TEdit
      Left = 48
      Top = 12
      Width = 128
      Height = 23
      TabOrder = 1
    end
  end
end