unit1.dfm

九宫格的A*算法实现 可以选择两个估价函数

object Form1: TForm1
  Left = 493
  Top = 215
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #20061#23467#26684
  ClientHeight = 316
  ClientWidth = 224
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnActivate = FormActivate
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 32
    Top = 272
    Width = 60
    Height = 13
    Caption = #25191#34892#27493#25968#65306
  end
  object Label2: TLabel
    Left = 109
    Top = 272
    Width = 6
    Height = 13
    Caption = '0'
  end
  object Panel1: TPanel
    Tag = 1
    Left = 8
    Top = 56
    Width = 60
    Height = 60
    TabOrder = 0
    OnClick = Panel1Click
  end
  object Panel9: TPanel
    Tag = 9
    Left = 152
    Top = 200
    Width = 60
    Height = 60
    TabOrder = 1
    OnClick = Panel1Click
  end
  object Panel8: TPanel
    Tag = 8
    Left = 80
    Top = 200
    Width = 60
    Height = 60
    TabOrder = 2
    OnClick = Panel1Click
  end
  object Panel7: TPanel
    Tag = 7
    Left = 8
    Top = 200
    Width = 60
    Height = 60
    TabOrder = 3
    OnClick = Panel1Click
  end
  object Panel6: TPanel
    Tag = 6
    Left = 152
    Top = 128
    Width = 60
    Height = 60
    TabOrder = 4
    OnClick = Panel1Click
  end
  object Panel5: TPanel
    Tag = 5
    Left = 80
    Top = 128
    Width = 60
    Height = 60
    TabOrder = 5
    OnClick = Panel1Click
  end
  object Panel4: TPanel
    Tag = 4
    Left = 8
    Top = 128
    Width = 60
    Height = 60
    TabOrder = 6
    OnClick = Panel1Click
  end
  object Panel3: TPanel
    Tag = 3
    Left = 152
    Top = 56
    Width = 60
    Height = 60
    TabOrder = 7
    OnClick = Panel1Click
  end
  object Panel2: TPanel
    Tag = 2
    Left = 80
    Top = 56
    Width = 60
    Height = 60
    TabOrder = 8
    OnClick = Panel1Click
  end
  object Button1: TButton
    Left = 152
    Top = 267
    Width = 57
    Height = 26
    Caption = #19979#19968#27493
    TabOrder = 9
    OnClick = Button1Click
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 297
    Width = 224
    Height = 19
    Panels = <
      item
        Text = #24050#22788#29702#33410#28857#25968#65306
        Width = 85
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object RadioGroup1: TRadioGroup
    Left = 8
    Top = 8
    Width = 201
    Height = 33
    Caption = #21551#21457#20989#25968
    Columns = 2
    ItemIndex = 1
    Items.Strings = (
      #20989#25968'1'
      #20989#25968'2')
    TabOrder = 11
  end
  object Animate1: TAnimate
    Left = 104
    Top = 272
    Width = 18
    Height = 18
    Active = False
    StopFrame = 2
    Visible = False
  end
  object MainMenu1: TMainMenu
    Left = 408
    Top = 96
    object N1: TMenuItem
      Caption = #25991#20214'(&F)'
      object G1: TMenuItem
        Caption = #26032#28216#25103'(&N)'
        ShortCut = 16462
        OnClick = G1Click
      end
      object N2: TMenuItem
        Caption = #33258#21160#23436#25104'(&A)'
        ShortCut = 16449
        OnClick = N2Click
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object E1: TMenuItem
        Caption = #36864#20986'(&E)'
        ShortCut = 16453
        OnClick = E1Click
      end
    end
    object N3: TMenuItem
      Caption = #20851#20110'(&R)'
      OnClick = N3Click
    end
  end
end