Форум: "Базы";
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];
ВнизЗапрет удаления записи в DBGrid нажатием Ctrl-Del Найти похожие ветки
← →
Anics (2002-03-27 07:31) [0]Подскажите кто знает каким образом запретить удаление записи в DBGrid при нажатии Ctrl-Del
← →
deleon (2002-03-27 08:50) [1]Опиши его событие OnKeyDown так:
case Key of
VK_DELETE: if( Shift = [ssCtrl])then Key := 0;
end;
← →
sniknik (2002-03-27 09:03) [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;
← →
Zemal (2002-03-27 14:46) [3]Вполне достаточно примерно так сделать:
procedure TForm1.Table1BeforeDelete(DataSet: TDataSet);
begin
Abort;
end;
Записи удаляться небудут, вот только предупреждение об удалении будет выскакивать :))), но этим можно принебречь :))). Таким же образом можно отказаться от обработки любого события :).
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c