Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c