我想实现的功能是,现有三个EDIT控键edit1、edit2、edit3edit3显示的值是edit1与edit2的积,在不需要按键情况下实现比如:在edit1和edit2分别输入1和2 光标点到edit3的时候会自动显示出他们和积
希望高手指教!最好详细一点!procedure TForm1.Edit3MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
edit3.Text :=inttostr(strToint(edit1.Text)*strToint(edit2.Text));
end;按上面这个写进去之后点击EDIT3程序就出错了

解决方案 »

  1.   

    最好使用edit3的enter事件
    edit3.Text :=inttostr(strTointDef(edit1.Text,-1)*strTointDef(edit2.Text),-1); 
      

  2.   

    edit3.Text :=inttostr(strTointDef(edit1.Text,-1)*strTointDef(edit2.Text,-1)); 
      

  3.   

    IntToStr()?  or  FloatToStr()?
      

  4.   

    希望高手指教!最好详细一点! procedure TForm1.Edit3MouseDown(Sender: TObject; Button: TMouseButton; 
    Shift: TShiftState; X, Y: Integer); 
    begin 
    edit3.Text :=inttostr(strToint(edit1.Text)*strToint(edit2.Text)); 
    end; 按上面这个写进去之后点击EDIT3程序就出错了
    应该没有错误啊
    调试下