agentdialog.dfm

来自「进销存·完整的·有数据库的·非常完整·只得参考」· DFM 代码 · 共 103 行

object frmAgentDialog: TfrmAgentDialog
  Left = 196
  Top = 173
  BorderStyle = bsNone
  BorderWidth = 1
  Caption = 'frmAgentDialog'
  ClientHeight = 108
  ClientWidth = 193
  Color = clInfoBk
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  OnClick = FormClick
  OnCreate = FormCreate
  OnMouseDown = FormMouseDown
  OnPaint = FormPaint
  DesignSize = (
    193
    108)
  PixelsPerInch = 96
  TextHeight = 12
  object sbYes: TSpeedButton
    Left = 26
    Top = 75
    Width = 55
    Height = 20
    Cursor = crHandPoint
    Anchors = [akRight, akBottom]
    Caption = #30830#23450
    Flat = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = sbYesClick
  end
  object sbNo: TSpeedButton
    Left = 106
    Top = 75
    Width = 63
    Height = 20
    Cursor = crHandPoint
    Anchors = [akRight, akBottom]
    Caption = #21462#28040
    Flat = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = sbNoClick
  end
  object lblMsg: TLabel
    Left = 16
    Top = 24
    Width = 36
    Height = 12
    Caption = 'lblMsg'
    OnClick = lblMsgClick
  end
  object lblMsg1: TLabel
    Left = 16
    Top = 48
    Width = 36
    Height = 12
    Caption = 'lblMsg'
    Visible = False
    OnClick = lblMsg1Click
  end
  object lblMsg2: TLabel
    Left = 16
    Top = 72
    Width = 36
    Height = 12
    Caption = 'lblMsg'
    Visible = False
    OnClick = lblMsg2Click
  end
  object lblAnn: TLabel
    Left = 65
    Top = 4
    Width = 54
    Height = 14
    Alignment = taCenter
    Anchors = [akLeft, akTop, akRight]
    Caption = #25253'   '#35686
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    Visible = False
  end
end