Edit(нестандартные символы)

← →
DIMAS777 (2002-08-16 14:44) [0]

такой вопросик. можно как нить реализовать ввод в Edit спецсимволов типа #1 #2 #10 #13 и т.п.?
Тоесть жмешь alt+13 и появляется этот символ.

Заранее благодарен.

← →
{bas} (2002-08-16 15:08) [1]

Сам не пробовал - но м.б. можно через KeyPress, а пар-ер Key устанавливаешь какой надо(например #13)

P.S. #13 - это я на угад написал, это типа какой то спец. символ

← →
Opuhshii © (2002-08-16 15:19) [2]

а как вы будете хранить 3 #00 подряд, а?,.. %)

← →
DIMAS777 (2002-08-16 15:24) [3]

млин, так что? невозможно чтоли?

← →
DIMAS777 (2002-08-16 15:30) [4]

3 #00 - и ненадо ;)

Навскидку делаешь свой edit readonly. И в KeyPress пишешь нечто такое:
Ну и по желанию разбираешься какой символ спец, а какой нет.

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
edit1.Text := edit1.Text + "#" + IntToStr(Ord(Key));
end;

← →
DIMAS777 (2002-08-18 19:05) [6]

это неудобно, т.к. требуеся вставквка из клипберда и многих еще вещей...

Edit(нестандартные символы) Найти похожие ветки