DELPHI菜鸟~,几个菜问题,急~~~~

Question

1、怎样判断一个Edit框中是否为数字？？
2、表单中有很多个Edit框，也有很多个其它控件类型，我想在前一个Edit框中按下Enter时，跳到下一个Edit框中，怎么样写？
3、在关闭窗口时，怎么判断表单里的Edit框有没有被改动过？（我就是想在用户退出程序前，检查是不是作了改动）各路英雄，帮忙啊~~~

Answer 1

1. 
try
  FloatToStr(Edit1.Text);
Except
  ShowMessage('不是数字');
end;2. 最好把组件的顺序先排好，不然每一次回车都要做一次循环判断。
参见SelectNext()，FindComponent()，TabOrder3. 在Edit 的OnChange 事件做个标记

Answer 2

1.try
    strtofloat(edit1.text);
    showmessage('ok!you input a numeric.');
  except
    showmessage('the input is not been a numeric');
  end;2.procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then
     SelectNext(Edit1,false,true);
end;
            
//---------注意：要按焦点跳转顺序设置好每一个EDIT的TAB值。
       
3.  if edit1.Modified then
       begin       end;
if edit2.Modified then
       begin       end;
......

Answer 3

1. strtointdef(yourstr,0) = 0 来判断是否数字。
2. 前一个EDIT中，用keypress事件，If Key = #13 then Edit2.SetFouse;
3. 你的问题没有说清楚，如果不希望用户修改EDIT，可以将EDIT属性设置为readonly.如果要检查是否改动，也可以用onchange事件来判断。

Answer 4

dinglinger(红辣椒) 的对，我把函数写反了 -_-|

Answer 5

在Combobox的KeyPress事件中判断:if  key in ['0'..'9','.',#8,#13] then
else
begin
  KEY:=#0;
end;

Answer 6

回答最后一个问题。
　　如果只想判断一个Edit里的内容是否改变的话，你可以在窗体显示时先把Edit里的内容保存到一个变量中var１，当程序退出时判断var1中的内容是否与Edit里的内容相同，这样不就可以了吗！

Answer 7

更换焦点可以直接用　ru如edit3.setfocus;这样就不用太顾及顺序