Текущий архив: 2003.01.30;
Скачать: CL | DM;
Вниз
Про кнопку 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;
← →
Юрий Зотов © (2003-01-22 19:24) [4]> tulen (22.01.03 18:35)
Гениально!
Правда, отключаются вообще ВСЕ кнопки, ну да и ладно. Главное, что Delete отключилась. А как юзеру текст вводить... да ведь это необязательно, верно?
← →
tulen (2003-01-22 19:47) [5]Почему же буквы и цыфры вводит можно так как keydown их не отключает!
ХЕ
Страницы: 1 вся ветка
Текущий архив: 2003.01.30;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.012 c
