Калькулятор

[yaxx]

Привет! Помогите пожалуйста!
Пишу калькулятор, нужно сделать, чтобы к примеру при вводе выражения
4+6+3+.....и т.д, он складывал их поочередно то есть, ввожу 4+3, нажимаю + он мне выдает результат, и если ничего не нажимая я введу число к примеру 7, и нажму кнопку равно, то ответ должен быть 14... как это сделать?


P.S Как сделать чтобы числа вводились в edit не слева, а справа?

[Стелс]

на procedure TForm1.Form1KeyPress(Sender: TObject; var Key: Char);
begin
if Key =(#код клавиши "+")or(#код клавиши "=") then sum := (a+b);
ну и так далее......

end;

[mihali4]

Как выравнять текст в Edit по правой стороне?

type
TEdit = class(StdCtrls.TEdit)
public
procedure CreateParams(var Params: TCreateParams); Override;
end;

procedure TEdit.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.Style := Params.Style or ES_RIGHT; //по центру - ES_CENTER
end;

[yaxx]

Товарищи, еще вопрос:
Хочу обработать кнопки + - и т.д чтобы все действия можно было совершать при помощи numpad клавиатуры.
К примеру для кнопки плюс(bitbtn20) будет так?

procedure TForm1.BitBtn20KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=107 then
bitbtn20.Click;
end;

Причина закрытия темы прояснится практически мгновенно после внимательного прочтения правил раздела...