咨询下。。。。我是超级小鸟！！！！

inn520 · 发表于 2009-3-19 17:54

本帖最后由 inn520 于 2009-3-22 16:30 编辑

object Button1: TButton
   Left = 136
   Top = 328
   Width = 81
   Height = 21
   Caption = #20889#20837#25968#25454
   TabOrder = 8
   OnClick = Button1Click
我想在这段代码里加入回车键代码怎么加
就是一按回车就会点这个按钮
以下是全部RC数据！

object Form1: TForm1
  Left = 272
  Top = 190
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #22825#23431#23567#28789#36890#20889#21345#36719#20214' '#26222#21450#29256'  by inn520'
  ClientHeight = 477
  ClientWidth = 375
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDefault
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Bevel1: TBevel
Left = 13
Top = 67
Width = 348
Height = 7
Shape = bsTopLine
  end
  object Label1: TLabel
Left = 56
Top = 13
Width = 42
Height = 12
Caption = #20018#34892#21475':'
  end
  object Label8: TLabel
Left = 56
Top = 45
Width = 36
Height = 12
Caption = #27874#29305#29575
  end
  object ComboBox1: TComboBox
Left = 112
Top = 8
Width = 145
Height = 20
Style = csDropDownList
ItemHeight = 12
ItemIndex = 0
TabOrder = 0
Text = 'COM1'
Items.Strings = (
   'COM1'
   'COM2'
   'COM3'
   'COM4'
   'COM5'
   'COM6'
   'COM7'
   'COM8'
   'COM9'
   'COM10'
   'COM11'
   'COM12'
   'COM13'
   'COM14'
   'COM15'
   'COM16'
   'COM17'
   'COM18'
   'COM19'
   'COM20')
  end
  object GroupBox1: TGroupBox
Left = 16
Top = 88
Width = 345
Height = 361
Caption = #20889#20837'PIM'
TabOrder = 1
object Label2: TLabel
   Left = 40
   Top = 20
   Width = 174
   Height = 12
   Caption = #26426#36523#30721':  ('#21313#36827#21046'--'#19981#22810#20110'13'#20301')'
end
object Label3: TLabel
   Left = 40
   Top = 68
   Width = 150
   Height = 12
   Caption = #37492#26435#30721':  ('#21313#20845#36827#21046'--16'#20301')'
end
object Label4: TLabel
   Left = 40
   Top = 116
   Width = 48
   Height = 12
   Caption = #25511#21046#20449#36947
end
object Label5: TLabel
   Left = 112
   Top = 116
   Width = 60
   Height = 12
   Caption = #29983#20135#32773#32534#21495
end
object Label6: TLabel
   Left = 184
   Top = 116
   Width = 48
   Height = 12
   Caption = #22269#23478#20195#30721
end
object Label7: TLabel
   Left = 40
   Top = 304
   Width = 54
   Height = 12
   Caption = #37492#26435#31639#27861':'
end
object Label9: TLabel
   Left = 16
   Top = 135
   Width = 18
   Height = 12
   Caption = '(1)'
end
object Label10: TLabel
   Left = 16
   Top = 155
   Width = 18
   Height = 12
   Caption = '(2)'
end
object Label11: TLabel
   Left = 16
   Top = 196
   Width = 18
   Height = 12
   Caption = '(4)'
end
object Label12: TLabel
   Left = 16
   Top = 176
   Width = 18
   Height = 12
   Caption = '(3)'
end
object Label13: TLabel
   Left = 16
   Top = 276
   Width = 18
   Height = 12
   Caption = '(8)'
end
object Label14: TLabel
   Left = 16
   Top = 256
   Width = 18
   Height = 12
   Caption = '(7)'
end
object Label15: TLabel
   Left = 16
   Top = 235
   Width = 18
   Height = 12
   Caption = '(6)'
end
object Label16: TLabel
   Left = 16
   Top = 215
   Width = 18
   Height = 12
   Caption = '(5)'
end
object Edit1: TEdit
   Left = 96
   Top = 34
   Width = 177
   Height = 20
   CharCase = ecUpperCase
   MaxLength = 13
   TabOrder = 0
   OnChange = Edit1Change
end
object Edit2: TEdit
   Left = 96
   Top = 82
   Width = 121
   Height = 20
   CharCase = ecUpperCase
   MaxLength = 10
   TabOrder = 1
   OnChange = Edit2Change
end
object Edit3: TEdit
   Left = 40
   Top = 130
   Width = 65
   Height = 20
   CharCase = ecUpperCase
   MaxLength = 2
   TabOrder = 2
end
object Edit4: TEdit
   Left = 112
   Top = 130
   Width = 65
   Height = 20
   CharCase = ecUpperCase
   MaxLength = 2
   TabOrder = 3
end
object Edit5: TEdit
   Left = 184
   Top = 130
   Width = 89
   Height = 20
   CharCase = ecUpperCase
   MaxLength = 4
   TabOrder = 4
end
object RadioButton1: TRadioButton
   Left = 120
   Top = 302
   Width = 73
   Height = 17
   Caption = '10'#20301
   Checked = True
   TabOrder = 5
   TabStop = True
   OnClick = RadioButton1Click
   OnEnter = RadioButton1Enter
   OnKeyDown = RadioButton1KeyDown
end
object RadioButton2: TRadioButton
   Left = 216
   Top = 302
   Width = 65
   Height = 17
   Caption = '16'#20301
   TabOrder = 6
   OnClick = RadioButton2Click
   OnEnter = RadioButton2Enter
   OnKeyDown = RadioButton2KeyDown
end
object Edit6: TEdit
   Left = 220
   Top = 82
   Width = 53
   Height = 20
   CharCase = ecUpperCase
   Color = clBtnFace
   Enabled = False
   MaxLength = 6
   TabOrder = 7
   Text = '000000'
   OnChange = Edit6Change
end
object Button1: TButton
   Left = 136
   Top = 328
   Width = 81
   Height = 21
   Caption = #20889#20837#25968#25454
   TabOrder = 8
   OnClick = Button1Click
end
object Button2: TButton
   Left = 240
   Top = 328
   Width = 81
   Height = 21
   Caption = #36864#20986
   TabOrder = 9
   OnClick = Button2Click
end
object Memo1: TMemo
   Left = 0
   Top = 8
   Width = 201
   Height = 81
   TabOrder = 10
end
object Memo2: TMemo
   Left = 200
   Top = 8
   Width = 137
   Height = 81
   TabOrder = 11
end
object Button3: TButton
   Left = 0
   Top = 0
   Width = 0
   Height = 210
   Caption = ' '
   TabOrder = 12
   OnClick = Button3Click
end
object Edit7: TEdit
   Left = 40
   Top = 150
   Width = 65
   Height = 20
   CharCase = ecUpperCase
   MaxLength = 2
   TabOrder = 13
end
object Edit8: TEdit
   Left = 112
   Top = 150
   Width = 65
   Height = 20
   CharCase = ecUpperCase
   MaxLength = 2
   TabOrder = 14
end
object Edit9: TEdit
   Left = 184
   Top = 150
   Width = 89
   Height = 20
   CharCase = ecUpperCase
   MaxLength = 4
   TabOrder = 15
end
object Edit10: TEdit
   Left = 40
   Top = 170
   Width = 65
   Height = 20
   CharCase = ecUpperCase
   MaxLength = 2
   TabOrder = 16
end
object Edit11: TEdit
   Left = 112
   Top = 170
   Width = 65
   Height = 20
   CharCase = ecUpperCase
   MaxLength = 2
   TabOrder = 17
end
object Edit12: TEdit
   Left = 184
   Top = 170
   Width = 89
   Height = 20
   CharCase = ecUpperCase
   MaxLength = 4
   TabOrder = 18
end
object Edit13: TEdit
   Left = 40
   Top = 190
   Width = 65
   Height = 20
   CharCase = ecUpperCase
   MaxLength = 2
   TabOrder = 19
end
object Edit14: TEdit
   Left = 112
   Top = 190
   Width = 65
   Height = 20
   CharCase = ecUpperCase
   MaxLength = 2
   TabOrder = 20
end
object Edit15: TEdit
   Left = 184
   Top = 190
   Width = 89
   Height = 20
   CharCase = ecUpperCase
   MaxLength = 4
   TabOrder = 21
end
object Edit16: TEdit
   Left = 40
   Top = 210
   Width = 65
   Height = 20
   CharCase = ecUpperCase
   MaxLength = 2
   TabOrder = 22
end
object Edit17: TEdit
   Left = 112
   Top = 210
   Width = 65
   Height = 20
   CharCase = ecUpperCase
   MaxLength = 2
   TabOrder = 23
end
object Edit18: TEdit
   Left = 184
   Top = 210
   Width = 89
   Height = 20
   CharCase = ecUpperCase
   MaxLength = 4
   TabOrder = 24
end
object Edit19: TEdit
   Left = 40
   Top = 230
   Width = 65
   Height = 20
   CharCase = ecUpperCase
   MaxLength = 2
   TabOrder = 25
end
object Edit20: TEdit
   Left = 112
   Top = 230
   Width = 65
   Height = 20
   CharCase = ecUpperCase
   MaxLength = 2
   TabOrder = 26
end
object Edit21: TEdit
   Left = 184
   Top = 230
   Width = 89
   Height = 20
   CharCase = ecUpperCase
   MaxLength = 4
   TabOrder = 27
end
object Edit22: TEdit
   Left = 40
   Top = 250
   Width = 65
   Height = 20
   CharCase = ecUpperCase
   MaxLength = 2
   TabOrder = 28
end
object Edit23: TEdit
   Left = 112
   Top = 250
   Width = 65
   Height = 20
   CharCase = ecUpperCase
   MaxLength = 2
   TabOrder = 29
end
object Edit24: TEdit
   Left = 184
   Top = 250
   Width = 89
   Height = 20
   CharCase = ecUpperCase
   MaxLength = 4
   TabOrder = 30
end
object Edit25: TEdit
   Left = 40
   Top = 270
   Width = 65
   Height = 20
   CharCase = ecUpperCase
   MaxLength = 2
   TabOrder = 31
end
object Edit26: TEdit
   Left = 112
   Top = 270
   Width = 65
   Height = 20
   CharCase = ecUpperCase
   MaxLength = 2
   TabOrder = 32
end
object Edit27: TEdit
   Left = 184
   Top = 270
   Width = 89
   Height = 20
   CharCase = ecUpperCase
   MaxLength = 4
   TabOrder = 33
end
  end
  object ProgressBar1: TProgressBar
Left = 16
Top = 456
Width = 345
Height = 17
Min = 0
Max = 12
Smooth = True
TabOrder = 2
  end
  object Memo3: TMemo
Left = 320
Top = 48
Width = 201
Height = 17
TabOrder = 3
Visible = False
  end
  object ComboBox2: TComboBox
Left = 112
Top = 40
Width = 145
Height = 20
Style = csDropDownList
ItemHeight = 12
ItemIndex = 0
TabOrder = 4
Text = '  9600 bps 3.57Mhz'
Items.Strings = (
   '  9600 bps 3.57Mhz'
   ' 10472 bps 3.89Mhz'
   ' 11520 bps 4.28Mhz'
   ' 12800 bps 4.76Mhz'
   ' 14400 bps 5.35Mhz'
   ' 16457 bps 6.12Mhz'
   ' 19200 bps 7.14Mhz'
   ' 23040 bps 8.57Mhz'
   ' 28800 bps 10.71Mhz'
   ' 38400 bps 14.28Mhz'
   ' 57600 bps 21.43Mhz'
   '115200 bps 42.85Mhz')
  end
end

chen123456 · 发表于 2009-3-19 20:06

If KeyAscii = 13 Then
Button1_Click
End If

inn520 · 发表于 2009-3-21 02:13

2# chen123456

加哪个位置？

datochan · 发表于 2009-3-21 09:18

怎么看怎么不像VC的程序~~~
BC的？
两个方法
一个是把按钮设置成默认按扭：
在普通的RC资源中：
普通的按扭类别是：PUSHBUTTON，把它改成：DEFPUSHBUTTON
另一个是改变TAB顺序为0。

inn520 · 发表于 2009-3-22 16:03

BC的。。。。斑竹牛啊。。。。。好象没找到那个类别

datochan · 发表于 2009-3-22 17:52

BC的。。。。斑竹牛啊。。。。。好象没找到那个类别
inn520 发表于 2009-3-22 16:03

用资源工具，导出RC文件，然后编辑RC文件就成`~~~~

datochan · 发表于 2009-3-22 17:53

用资源工具，导出RC文件，然后编辑RC文件就成`~~~~
bester 发表于 2009-3-22 17:52

另外，不要拘与某个资源编辑工具，那样局限太大了`~~~

inn520 · 发表于 2009-3-22 22:40

本帖最后由 inn520 于 2009-3-23 01:51 编辑

7# bester
那麻烦您指引一下应该用哪个软件进行编辑？？？我现在在下Borland Delphi 7.0 简体中文版实验ing。。。。

inn520 · 发表于 2009-3-23 22:07

好象没什么作用。。。。有点复杂

帐号		自动登录	找回密码
密码			注册[Register]

[其他转载] 咨询下。。。。我是超级小鸟！！！！