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

Отключение кнопки Delete   Найти похожие ветки 

← →
tulen   (2003-01-22 17:31) [0]

Как сделать так чтобы в Edit нельзя было нажимать на кнопку Delete, т.е. как отключить её? Я буду благодарен!

---

← →
KDenis ©   (2003-01-22 17:54) [1]

У меня, на Delphi6 это делается так:
Компонент TApplicationEvents ложется на форму, и для его события OnMessage пишится такой код:
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
handled:= Edit1.focused and(msg.wParam=vk_Delete);
end;

---

← →
tulen   (2003-01-22 18:05) [2]

Спасибо!
Печально что третяя делфи не поддерживает ApplicationEvents а другой у меня пока нету ... диск сдох...
Но всё равно большое спасибо!

---

← →
NailS ©   (2003-01-22 18:36) [3]

А так тоже можно

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_DELETE then
Key := 0;
end;

---

← →
tulen   (2003-01-22 18:39) [4]

Я догатался об этом почти тогда когда ты ответил(Nails). Эх как приятно когда сам допрёшь....
ВСЕМ СПАСИБО!
Крутой форум!

---

Страницы: 1 вся ветка

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



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