urunning.dfm

一个dos游戏的源代码

object Form_Run: TForm_Run
  Left = 256
  Top = 134
  BorderStyle = bsDialog
  Caption = #26497#38480'1000'#31859
  ClientHeight = 362
  ClientWidth = 561
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnKeyUp = FormKeyUp
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 16
    Top = 8
    Width = 32
    Height = 13
    Caption = 'Label1'
  end
  object pnlView: TPanel
    Left = 0
    Top = 0
    Width = 529
    Height = 241
    TabOrder = 0
    object pbxView: TPaintBox
      Left = 1
      Top = 1
      Width = 488
      Height = 200
    end
  end
  object MediaPlayer1: TMediaPlayer
    Left = 8
    Top = 304
    Width = 253
    Height = 30
    Visible = False
    TabOrder = 1
  end
  object MediaPlayer2: TMediaPlayer
    Left = 288
    Top = 304
    Width = 253
    Height = 30
    Display = pnlView
    Visible = False
    TabOrder = 2
  end
  object Timer1: TTimer
    Interval = 20
    OnTimer = Timer1Timer
    Left = 328
  end
end