замена символа в textbox

← →
denis24 (2003-03-26 15:35) [0]

Есть textbox ,Как сделать чтобы при нажатии какогонить заперщеного символа он сразу же менялся на другой.Подозреваю что через событие onkeydown

← →
Jel © (2003-03-26 15:39) [1]

Вегной догогой идете товагищ. :)

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if key = "0" then key := "9"; end;

← →
denis24 (2003-03-26 15:41) [2]

key это код клавищи или символ?

← →
Jel © (2003-03-26 15:45) [3]

> var Key: Char

← →
malkolinge © (2003-03-26 17:43) [4]

Лучше OnKeyDown тогда можно много еще разных вкусностей ловить

← →
denis24 (2003-03-31 11:53) [5]

Какой код у украинской "і"?

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
ShowMessage(IntToStr(Key));
end;

← →
denis24 (2003-03-31 12:47) [7]

if key=83 then begin
key:=ord("A");
end;
Все равно в эдите не меняется символ.Что не так делаю?