Rz控件集中的RzNumericEdit1 procedure TForm1.ButtonClick(Sender: TObject); begin if Button.Down=true then RzNumericEdit1.integersOnly:=false else RzNumericEdit1.integersOnly:=true; end; 用edit控件edit1procedure TForm1.Button1Click(Sender: TObject); begin if Button1.Down=false then begin edit1.Text:=copy(edit1.text,1,pos('.',edit1.text)-1); end; end;procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); var I,l:integer; begin if ((key>'9') or (key<'0'))and (key<>#8) then begin if key<>'.' then begin key:=#0; exit; end; if (Button1.Down=false) then begin key:=#0; end else if (Button1.Down=true) and (Key='.') then begin if pos('.',edit1.text)<>0 then key:=#0; end; end; end;
procedure TForm1.ButtonClick(Sender: TObject);
begin
if Button.Down=true then
RzNumericEdit1.integersOnly:=false
else
RzNumericEdit1.integersOnly:=true;
end;
用edit控件edit1procedure TForm1.Button1Click(Sender: TObject);
begin
if Button1.Down=false then
begin
edit1.Text:=copy(edit1.text,1,pos('.',edit1.text)-1);
end;
end;procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var I,l:integer;
begin
if ((key>'9') or (key<'0'))and (key<>#8) then
begin
if key<>'.' then
begin
key:=#0;
exit;
end;
if (Button1.Down=false) then
begin
key:=#0;
end
else if (Button1.Down=true) and (Key='.') then
begin
if pos('.',edit1.text)<>0 then
key:=#0;
end;
end;
end;