问两个简单delphi的问题~~

Question

1、如何设置使得窗口的大小不能通过拖动边缘来改变
2、对于edit的输入栏里，只能输入0-9的数字不能输入字母和其他字符，该怎么写？

Answer 1

将窗口的边界属性设为single
在keydown加入
if key in [0..9] then
else 
  key = 0

Answer 2

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9',#8,#46,#13]) then begin
  Key:=#0;
  windows.Beep(1000,100);
end;
end;