Отключение кнопки 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). Эх как приятно когда сам допрёшь....
ВСЕМ СПАСИБО!
Крутой форум!

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