本人用delphi6正在写一个单据,里面有一个计算的小数点按钮(Button控件)。要求这个小数点按钮实现当一按下这个按钮,再输入数字时就变为小数。和小型计算器上的小数点按钮是一模一样的功能。请教各位如何在这个Button控件中写代码实现这个小数点按钮的功能。

解决方案 »

  1.   

    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;