Непонятки с KeyPress

[grigoreo]

Пробую один и тот же код под Linux и Win , под Linux не идет, помогите где что не так,
берем на форму кидаем объект TEdit и вешаем обработчик OnKeyPress, что то типа этого

Код: Выделить всё

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);
begin
  Key:='*';
end;

или этого на обработкуOnUTF8KeyPress но эфект тот же

Код: Выделить всё

procedure TForm1.Edit1UTF8KeyPress(Sender: TObject; var UTF8Key: TUTF8Char);
begin
  UTF8Key:='*';
end;

в этоге в Win все ок , за место введеных символов рисуется звездочка
а в Linux ничего подобного рисует те символы которые ввожу

[kosteek]

У Edit`а есть св-во PasswordChar.

[grigoreo]

У Edit`а есть св-во PasswordChar.

согласен но мне это нужно не для пароля, или маскирования всех клавишь, это просто пример, мне нужно фильтр ввода построить, поэтому PasswordChar, MaskEdit мне не подходят, почему в Linux не работает этот вроде бы простой механизм , в Windows же все ок, а если я выполню Key:=#0 то и в Linux тоже норма, почему я не могу проходной переменной присвоить нужное мне значение...

[Alex333]

Странно, но у меня эта штука (Edit1KeyPress) работает и в Windows, и в Linux.
Ну, правда, не Федора, а Убунта-10 + старенький Lazarus 0.9.28.2. Никаких проблем.

[Widowmaker]

Аналогично, всё работает, как задумано. Убунту 10.04 + Лазарь 0.9.30-0.

Код: Выделить всё

procedure TForm1.Edit1UTF8KeyPress ( Sender : TObject; var UTF8Key : TUTF8Char );
  begin
    Edit2.Text := Edit2.Text + UTF8Key; // текст в Edit2 для контроля русских букв
    UTF8Key := '*'; // текст в Edit1 - звёздочки
  end;


[daesher]

У меня тоже всё нормально. Gentoo, Lazarus из svn.