⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 unitframedialogs.dfm

📁 I mComputermaster programmisDelphi+pascal
💻 DFM
字号:
object FrameDialogs: TFrameDialogs
  Left = 0
  Top = 0
  Width = 574
  Height = 520
  TabOrder = 0
  OnResize = FrameResize
  object sGroupBox1: TsGroupBox
    Left = 21
    Top = 15
    Width = 393
    Height = 254
    Caption = 'sMessageDlg function'
    TabOrder = 0
    SkinData.SkinSection = 'GROUPBOX'
    object sEdit1: TsEdit
      Left = 40
      Top = 34
      Width = 255
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      Text = 'Message text'
      SkinData.SkinSection = 'EDIT'
      BoundLabel.Indent = 0
      BoundLabel.Font.Charset = DEFAULT_CHARSET
      BoundLabel.Font.Color = clWindowText
      BoundLabel.Font.Height = -11
      BoundLabel.Font.Name = 'MS Sans Serif'
      BoundLabel.Font.Style = []
      BoundLabel.Layout = sclLeft
      BoundLabel.MaxWidth = 0
      BoundLabel.UseSkinColor = True
    end
    object sGroupBox2: TsGroupBox
      Left = 190
      Top = 73
      Width = 175
      Height = 163
      Caption = 'Message type'
      TabOrder = 1
      SkinData.SkinSection = 'GROUPBOX'
      object sRadioButton1: TsRadioButton
        Left = 16
        Top = 29
        Width = 64
        Height = 19
        Caption = 'Warning'
        Checked = True
        TabOrder = 0
        TabStop = True
        SkinData.SkinSection = 'RADIOBUTTON'
      end
      object sRadioButton2: TsRadioButton
        Left = 16
        Top = 52
        Width = 46
        Height = 19
        Caption = 'Error'
        TabOrder = 1
        SkinData.SkinSection = 'RADIOBUTTON'
      end
      object sRadioButton3: TsRadioButton
        Left = 16
        Top = 75
        Width = 76
        Height = 19
        Caption = 'Information'
        TabOrder = 2
        SkinData.SkinSection = 'RADIOBUTTON'
      end
      object sRadioButton4: TsRadioButton
        Left = 16
        Top = 98
        Width = 82
        Height = 19
        Caption = 'Confirmation'
        TabOrder = 3
        SkinData.SkinSection = 'RADIOBUTTON'
      end
      object sRadioButton5: TsRadioButton
        Left = 16
        Top = 121
        Width = 59
        Height = 19
        Caption = 'Custom'
        TabOrder = 4
        SkinData.SkinSection = 'RADIOBUTTON'
      end
    end
    object sButton1: TsButton
      Left = 313
      Top = 32
      Width = 59
      Height = 26
      Caption = 'Show'
      TabOrder = 2
      OnClick = sButton1Click
      SkinData.SkinSection = 'BUTTON'
    end
    object sRadioGroup1: TsRadioGroup
      Left = 16
      Top = 73
      Width = 161
      Height = 163
      Caption = 'Buttons'
      ParentBackground = False
      TabOrder = 3
      SkinData.SkinSection = 'GROUPBOX'
      Items.Strings = (
        'OK'
        'OKCANCEL'
        'ABORTRETRYIGNORE'
        'YESNOCANCEL'
        'YESNO'
        'RETRYCANCEL')
    end
  end
  object sGroupBox3: TsGroupBox
    Left = 21
    Top = 274
    Width = 393
    Height = 87
    Caption = 'Messages'
    TabOrder = 1
    SkinData.SkinSection = 'GROUPBOX'
    object sEdit2: TsEdit
      Left = 20
      Top = 24
      Width = 353
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      Text = 'Message text for "sShowMessage" procedure'
      SkinData.SkinSection = 'EDIT'
      BoundLabel.Indent = 0
      BoundLabel.Font.Charset = DEFAULT_CHARSET
      BoundLabel.Font.Color = clWindowText
      BoundLabel.Font.Height = -11
      BoundLabel.Font.Name = 'MS Sans Serif'
      BoundLabel.Font.Style = []
      BoundLabel.Layout = sclLeft
      BoundLabel.MaxWidth = 0
      BoundLabel.UseSkinColor = True
    end
    object sButton2: TsButton
      Left = 33
      Top = 52
      Width = 136
      Height = 26
      Caption = 'sShowMessage'
      TabOrder = 1
      OnClick = sButton2Click
      SkinData.SkinSection = 'BUTTON'
    end
    object sButton4: TsButton
      Left = 177
      Top = 52
      Width = 184
      Height = 26
      Caption = 'Application.MessageBox'
      TabOrder = 2
      OnClick = sButton4Click
      SkinData.SkinSection = 'BUTTON'
    end
  end
  object sGroupBox4: TsGroupBox
    Left = 21
    Top = 373
    Width = 392
    Height = 56
    Caption = 'sInputQuery function'
    TabOrder = 2
    SkinData.SkinSection = 'GROUPBOX'
    object sEdit3: TsEdit
      Left = 40
      Top = 24
      Width = 255
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      Text = 'Message text for "sInputQuery" function'
      SkinData.SkinSection = 'EDIT'
      BoundLabel.Indent = 0
      BoundLabel.Font.Charset = DEFAULT_CHARSET
      BoundLabel.Font.Color = clWindowText
      BoundLabel.Font.Height = -11
      BoundLabel.Font.Name = 'MS Sans Serif'
      BoundLabel.Font.Style = []
      BoundLabel.Layout = sclLeft
      BoundLabel.MaxWidth = 0
      BoundLabel.UseSkinColor = True
    end
    object sButton3: TsButton
      Left = 313
      Top = 20
      Width = 59
      Height = 26
      Caption = 'Show'
      TabOrder = 1
      OnClick = sButton3Click
      SkinData.SkinSection = 'BUTTON'
    end
  end
  object sFrameAdapter1: TsFrameAdapter
    SkinData.SkinSection = 'CHECKBOX'
    Left = 11
    Top = 33
  end
end

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -