Question

delphi程序问题 edit1＋edit2=edit3

我想实现的功能是，现有三个EDIT控键edit1、edit2、edit3edit3显示的值是edit1与edit2的积，在不需要按键情况下实现比如：在edit1和edit2分别输入1和2 光标点到edit3的时候会自动显示出他们和积 希望高手指教！最好详细一点！

Answer 1

上面的程序还可以完善，皮带对edit1/2的输入数据进行处理一下~ 代码正握握如下： unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure Edit3MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
//判断EDIT1中输入是否为数值，否则屏蔽。
if not((key in ['0'举庆..'9',#8]) ) then
begin
key := #0;
end;
end;procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
//判断EDIT1中输入是否为数值，否则屏蔽。
if not((key in ['0'..'9',#8]) ) then
begin
key := #0;
end;
end;procedure TForm1.Edit3MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
edit3.Text :=inttostr(strToint(edit1.Text)*strToint(edit2.Text));
end;end.

Answer 2

procedure TForm1.Edit3Click(Sender: TObject);
begin
edit3.Text:=FloatToStr(StrToFloat(edit1.Text)*StrToFloat(edit2.Text));
end;

这是Edit3的鼠敏蚂卜标桥穗点击事件物皮