初学，请大家帮忙。

Question

刚学两天，看书实在看不懂。问题太多都不知道该怎么问了。还请大家帮忙。。
书中好多内容只写部分代码，我想实验又不知道前后该怎么写。比如Edit控件，Onkeypress事件的实现，书中写的代码是procedure TFom1.edit1KyePress(Sender:Tobject;var Key:char);
begin
  if not(key in['0'..'9']then
    begin
     key:=chr(0);
     showmessage('输入错误，请输入数字');
    end;
end;
如果我想看运行结果该怎么做？先谢了。

Answer 1

那你就按F9运行一下呀
已经showmessage
你输入一个东西除了0-9
看一下显示什么

Answer 2

key:=chr(0);
换成key := #0 吧！
运行的时候按一下键盘（除了功能键），看不到结果吗？

Answer 3

应该这样写:
procedure TFom1.edit1KyePress(Sender:Tobject;var Key:char);
begin
  if not(key in['0'..'9']then   {判断按下的字符是否为数字,如果不是数字则Begin}
    begin
     key:=chr(0);  {如果不是数字,则把Key设为空,让他白输}
     showmessage('输入错误，请输入数字');
     edit1.setfouces;     {显示完对话框,把焦点设在Edit1上,就是使光标在文本框中}
    end;
end;你运行,在这个文本框中按数字键,就会出现一个对话框

Answer 4

刚发现，我先建一个edit，然后在events中找到了keypress，后面双击，再加进去这段程序就可以了。但这个方法不是全有效。书上讲打开对话框中的代码我又做不出来了。内容大致如下：用户通过选择文件类型下拉框中的文件类型，可以确定显示在文件列表中的文件。如，如果用户选择*.txt文件类型，那么只有在当前目录下的文本文件才会显示。打开对话框包含一个filters的属性，。（这个filters我就找不到了）。如filterindex等于2，表示程序运行时出现在过滤器是第2个过滤器。代码：
procedure TeditForm.Open/Click(sender:Tobject);
   begin
     if OpenDialog1.Execute then
       begin
       showmessage('open');
       end;
    end;

Answer 5

双击opendialog or savedialog
然后编辑打开类型
*.*
*.txt
...

Answer 6

不好意思，一直没刷新。没看到楼上的回复~~谢谢。。
我实在太笨了，开始就不知道edit1是什么意思，找了好久才发现有这么一个按纽！汗！
就是感觉前面缺点什么，总是和书上给的代码不和再次感谢~~昨天刚学会送分，今天可以用上啦！

Answer 7

问一下，
楼上说的edit1.setfouces；我一运行这一行就变红了。
再有就是setfouces一类的命令书上我都没有见到，不知道是没看到还是还需要再看其他的书。要是需要看其他的书帮忙推荐一下~~~

Answer 8

那个英文我记不住了,反正就是设定焦点,Delphi不能自动完成嘛?你打set.s就自动出来了