Про кнопку Delete

← →
tulen (2003-01-22 18:35) [0]

Короче отвечаю сам на свой вопрос про кнопку Delete
Тут делов то:
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
key:=0;
end;

И ВСЁ!

← →
tulen (2003-01-22 18:38) [1]

Правда отключаются кнопки Ап Даун Бэкспэйс и т.д. Но мне так оно и надо было :)))

← →
Chubais © (2003-01-22 18:44) [2]

ААААААААААААААААААААААА!!!!!!!!!!!!!!!!!!!!

← →
KDenis © (2003-01-22 19:16) [3]

А ты попробуй так: if key=vk_Delete then key:=0;

> tulen (22.01.03 18:35)

Гениально!
Правда, отключаются вообще ВСЕ кнопки, ну да и ладно. Главное, что Delete отключилась. А как юзеру текст вводить... да ведь это необязательно, верно?

← →
tulen (2003-01-22 19:47) [5]

Почему же буквы и цыфры вводит можно так как keydown их не отключает!
ХЕ

Про кнопку Delete Найти похожие ветки