四个小问题。(ngyxh)

Question

1.搜索以前的帖子～～～～～太多了～～泛滥了～～2.Form的BorderIcons属性里面的biMaxisize=False3.procedure TForm1.Button1Click(Sender: TObject);
begin
  WindowState := wsMaximized;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  WindowState := wsMinimized;
end;4.Label1.Transparent := True;

Answer 1

1。在Edit的KeyPress事件中写
begin
  if not (Key in ['0'..'9']) then
  Key := #0; 
end; 

Answer 2

我也提供一些代码吧，也是他们给我的，你试试！
================================================================if edit1.text = '' then i := 0 else 
try 
  i:=strtoint(edit1.text);
except
  出错处理
end ;
----------------------------------------------------------
procedure Taddpermit.edt_nameChange(Sender: TObject);
var
  S : String ;
begin
        if text = '' then exit ;
        s := text ;
        try
          strtoint(s );
        except
          delete(s,length(s),1);
          text := s ;
          SelStart := length(s) ;
        end ;
end ;
送你一段代码，禁止输入字母。只能输入数字
edit的Change事件中 
-－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
if edit1.text = '' then i := 0 else 
try 
  i:=strtoint(edit1.text);
except
  出错处理
end ;
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
我也给你一段代码，只能输入数字在onkeypress中啊
if key not (in['0'..'9']) then key:=chr(0); 
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not isnumeric(key) then key:=#0;
---------------------------------
if not (key in['0'..'9','.',#8]) then key:=#0;
end;