Question

delphi7中让一个edit只能输入数字的问题

我其他知道里看到这样一段

procedure TForm3.gradeKeyPress(Sender: TObject; var Key: Char);
begin
If not (key in [#48..#57,#8]) then
begin
showmessage('请输入正确的成绩!');
key:= #0;
end;
end;

请问这个procedure TForm3.gradeKeyPress(Sender: TObject; var Key: Char);
是什么意思,如果是双击edit出来的应该是procedure TForm3.gradeChange(Sender: TObject);呀

然后添加了上面这段代码,又在type里加了procedure TForm3.gradeKeyPress(Sender: TObject; var Key: Char);
一运行就说expected'=' but '('found,请问这些代码加的位置是不是不对,应该怎么加

Answer 1

procedure TForm3.gradeKeyPress(Sender: TObject; var Key: Char);
表示控件的键盘按下事件，双击空间出来的默认事件是控件改变的时间，选中控件，在事件选项中找到keypress事件，双击，则出现该事件。新手？