Господа, подскажите как запретить Ctrl + Del в DBGrid е ?

← →
Vodochnik (2002-09-21 16:27) [0]

Ваще убрать энту комбинацию клавиш..
Заранее благодарен..

← →
Zz_ (2002-09-21 16:33) [1]

procedure TfPrix.DBGrid2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if((Key=VK_Delete)and(Shift=[ssCtrl]))then Key := 0;
if((Key=VK_Delete)and(Shift=[ssCtrl,ssShift]))then Key := 0;
if((Key=VK_Insert)and(Shift=[ssCtrl]))then Key := 0;
if((Key=VK_Insert)and(Shift=[ssCtrl,ssShift]))then Key := 0;

← →
KDS © (2002-09-21 16:34) [2]

Если набор данных только для просмотра, где править и удалять записи не зя, то установи свойство DBGrid.ReadOnly:=True

← →
KDS © (2002-09-21 16:40) [3]

>Zz_
А что делать с отпусканием клавиш?
TfPrix.DBGrid2 KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
Delphi точно по нажатию вызывает удаление?

← →
Zz_ (2002-09-21 16:58) [4]

Угу. Сто лет уже работает

Господа, подскажите как запретить Ctrl + Del в DBGrid е ? Найти похожие ветки