Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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;

Записи удаляться небудут, вот только предупреждение об удалении будет выскакивать :))), но этим можно принебречь :))). Таким же образом можно отказаться от обработки любого события :).




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.038 c
1-57738           ymin                  2002-04-05 11:56  2002.04.18  
Как в 1-й форме ввести строку, потом нажать на кнопку и во второй


1-57735           Дмитрий Д.            2002-04-04 10:39  2002.04.18  
Дерево каталогов с возможностью выборки


7-57899           Nikolay               2002-01-24 08:37  2002.04.18  
DRV


4-57922           Ogu                   2002-02-12 20:33  2002.04.18  
Размер папки


3-57586           TriNeT                2002-03-25 06:36  2002.04.18  
Вопрос по ADO+ODBC+Paradox