netmodal.~dfm

来自「这是一个delphi源码」· ~DFM 代码 · 共 66 行

object NetModalForm: TNetModalForm
  Left = 190
  Top = 227
  AutoSize = True
  BorderIcons = []
  BorderStyle = bsNone
  BorderWidth = 1
  Caption = 'NetModalForm'
  ClientHeight = 44
  ClientWidth = 521
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 521
    Height = 44
    BevelOuter = bvLowered
    TabOrder = 0
    object Label1: TLabel
      Left = 12
      Top = 28
      Width = 168
      Height = 12
      Caption = '正在载入数据库请等待........'
    end
    object ProgressBar: TFlatGauge
      Left = 4
      Top = 5
      Width = 513
      Height = 21
      AdvColorBorder = 0
      Progress = 6
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      ShowHint = False
    end
  end
  object ClientSocket: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 999
    OnConnect = ClientSocketConnect
    OnRead = ClientSocketRead
    Left = 368
  end
end