Форум: "Базы";
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];
ВнизCtrl-Delete -> DbGrid Найти похожие ветки
← →
serg (2002-02-27 10:14) [2]procedure DBGrid.OnKeyDown(Sender:TObject);
begin
if (ssCtrl in Shift) and (Key=VK_DELETE) then begin
Key:=0;
//Дальше делай все что надо
if mrYes=MessageDlg("Удалить запись?",mtConfirmation,[mbYes,mbNo],0) then
(Sender as TDBGrid).DataSource.DataSet.Delete;
end;
end;
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c