delphi

[vykker]

подскажите пожалуйста как сделать едит2.текст чтобы при переходе на него можно было вводить с экранной клавиатуры так же как и в 1ый эдит??

ето вроде получился калькулятор с клавиатурой, нужен еще едит2 чтобы в него можно было вводить данные с этойже клавиатуры

procedure Tcalc.BitBtn1Click(Sender: TObject);
begin
edit1.text:=edit1.Text+'1';
end;

procedure Tcalc.BitBtn2Click(Sender: TObject);
begin
edit1.text:=edit1.Text+'2';
end;

procedure Tcalc.BitBtn9Click(Sender: TObject);
begin
edit1.text:=edit1.Text+'3';
end;

procedure Tcalc.BitBtn8Click(Sender: TObject);
begin
edit1.text:=edit1.Text+'4';
end;

procedure Tcalc.BitBtn7Click(Sender: TObject);
begin
edit1.text:=edit1.Text+'5';
end;

procedure Tcalc.BitBtn10Click(Sender: TObject);
begin
edit1.text:=edit1.Text+'6';
end;

procedure Tcalc.BitBtn3Click(Sender: TObject);
begin
edit1.text:=edit1.Text+'7';
end;

procedure Tcalc.BitBtn5Click(Sender: TObject);
begin
edit1.text:=edit1.Text+'8';
end;

procedure Tcalc.BitBtn6Click(Sender: TObject);
begin
edit1.text:=edit1.Text+'9';
end;

procedure Tcalc.BitBtn11Click(Sender: TObject);
begin
edit1.text:=edit1.Text+'0';
end;

procedure Tcalc.BitBtn4Click(Sender: TObject);
begin
edit1.text:=edit1.Text+'.';
end;

procedure Tcalc.BitBtn17Click(Sender: TObject);
begin
edit1.Clear;

end;

procedure Tcalc.BitBtn13Click(Sender: TObject);
begin
      x:=strtofloat(edit1.Text);
      edit1.clear;
      n:=1;
end;

procedure Tcalc.BitBtn12Click(Sender: TObject);
begin
if edit1.Text=''then y:=0 //edit1.Text:='0';
   else y:=strtofloat(edit1.Text);
    case n of
    1: z:=x+y;
    2:z:=x-y;
    3:z:=x*y;
    4:z:=x/y;
    end;
    edit1.Text:=floattostr(z);
end;

procedure Tcalc.BitBtn14Click(Sender: TObject);
begin
x:=strtofloat(edit1.Text);
      edit1.clear;
      n:=2;
end;

procedure Tcalc.BitBtn15Click(Sender: TObject);
begin
    x:=strtofloat(edit1.Text);
      edit1.clear;
      n:=3;
end;

procedure Tcalc.BitBtn16Click(Sender: TObject);
begin
x:=strtofloat(edit1.Text);
      edit1.clear;
      n:=4;
end;

procedure Tcalc.Button1Click(Sender: TObject);
begin
edit1.text:=floattostr(strtofloat(edit1.text)*(-1));
end;

procedure Tcalc.Button2Click(Sender: TObject);
begin
a:=strtofloat(edit1.text);
a:=sqr(a);
edit1.text:=floattostr(a);
end;

procedure Tcalc.Button3Click(Sender: TObject);
begin
a:=strtofloat(edit1.text);
a:=sqrt(a);
edit1.text:=floattostr(a);
end;

[mss]

нужен еще едит2

Не нужен он там.
Куркулятору достаточно одного поля ввода.

[vykker]

в этом случае очень нужен, если знаешь подскажи