| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Отключение кнопки Delete [D3, WinXP]

tulen ©   (2003-01-22 17:31:00) 

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

---

tulen   (2003-01-22 18:39:00) [1]

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

---

NailS   (2003-01-22 18:36:00) [2]

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

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

---

tulen   (2003-01-22 18:05:00) [3]

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

---

KDenis   (2003-01-22 17:54:00) [4]

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

---

Наверх