берем на форму кидаем объект 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 ничего подобного рисует те символы которые ввожу