| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Запрет удаления записи в DBGrid нажатием Ctrl-Del
Anics © (2002-03-27 07:31:00)Подскажите кто знает каким образом запретить удаление записи в DBGrid при нажатии Ctrl-Del
Zemal (2002-03-27 14:46:00) [1]Вполне достаточно примерно так сделать:
procedure TForm1.Table1BeforeDelete(DataSet: TDataSet);
begin
Abort;
end;
Записи удаляться небудут, вот только предупреждение об удалении будет выскакивать :))), но этим можно принебречь :))). Таким же образом можно отказаться от обработки любого события :).
sniknik (2002-03-27 09:03:00) [2]Ну да в принципе тоже самое только здесь не уделение события а переопределение
procedure TMyGrid.KeyDown(var Key: Word; Shift: TShiftState);
begin
if ssCtrl in Shift then begin
Case Key of
70: MyFindFirst(Self); // FindString; Ctrl+F
71: MyFindNext(Self); // FindString; Ctrl+G
72: begin // DelCol; Ctrl+H
MyDelCol(Self);
Key:= 13;
end
end;
end;
inherited;
end;
deleon (2002-03-27 08:50:00) [3]Опиши его событие OnKeyDown так:
case Key of
VK_DELETE: if( Shift = [ssCtrl])then Key := 0;
end;
| |
