untmain.dfm

这是一个扑克牌游戏。 1.抓有黑桃7 的玩家首先出黑桃7。 2.然后按逆时针方向出牌。每位玩家依次出牌

object frmMain: TfrmMain
  Left = 259
  Top = 103
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'frmMain'
  ClientHeight = 524
  ClientWidth = 602
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Menu = mmMain
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  object imgDesk: TImage
    Left = 0
    Top = 0
    Width = 602
    Height = 502
    Align = alClient
  end
  object statMessage: TStatusBar
    Left = 0
    Top = 502
    Width = 602
    Height = 22
    Panels = <>
    SimplePanel = True
  end
  object mmMain: TMainMenu
    Left = 168
    Top = 104
    object mniGame: TMenuItem
      Caption = #28216#25103'(&G)'
      object mniNewGame: TMenuItem
        Caption = #26032#28216#25103'(&N)'
        ShortCut = 113
        OnClick = mniNewGameClick
      end
      object mniOption: TMenuItem
        Caption = #36873#39033'(&O)...'
        OnClick = mniOptionClick
      end
      object mniBackPic: TMenuItem
        Caption = #32972#26223#22270#26696'(&C)...'
        OnClick = mniBackPicClick
      end
      object mniScore: TMenuItem
        Caption = #24471#20998'(&S)...'
        ShortCut = 114
        OnClick = mniScoreClick
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object mniExit: TMenuItem
        Caption = #36864#20986'(&X)'
        OnClick = mniExitClick
      end
    end
    object mniHelp: TMenuItem
      Caption = #24110#21161'(&H)'
      object mniContext: TMenuItem
        Caption = #24110#21161'(&H)'
        ShortCut = 112
        OnClick = mniContextClick
      end
      object mniAbout: TMenuItem
        Caption = #20851#20110'(&A)...'
        OnClick = mniAboutClick
      end
    end
  end
end