Перерисовка edit'a при замене символа

[Schekhovtsov]

Пытаюсь заменить символы, пробовал два способа, через цикл и обычный.

s: string; S:=InfoPanelEdit1.Text;  while Pos('=',S)<>0 do    begin      Insert('+',S,Pos('=',S));      Delete(S,Pos('=',S),1)    end;  InfoPanelEdit1.Text:=S

или

InfoPanelEdit1.Text := InfoPanelEdit1.Text.Replace('=','+');

В обоих случаях замена происходит лишь после ввода следующего символа. Т.е. я ввожу "=", он записывается в edit, и только после ввода следующего он заменяется на "+". Код кладу в OnChangeTracking. Можно как-то заменять одним действием, чтобы пользователь сразу видел "+"? Изменено 6 сентября, 2015 пользователем Schekhovtsov

[Vitaldj]

Какая платформа? У меня на винде ваша проблема на воспроизводится! Вожу = , а он сразу становиться +

[umkes]

procedure TForm1.InfoPanelEdit1KeyDown(Sender: TObject; var Key: Word;
  var KeyChar: Char; Shift: TShiftState);
begin
  if KeyChar = '=' then begin
      KeyChar := '+';
  end{if};
  KeyChar := #0;
end{procedure TForm1.InfoPanelEdit1KeyDown};

Изменено 9 сентября, 2015 пользователем umkes

[Schekhovtsov]

Платформа Android 4.4 ребят, в тегах указал