procedure Form1.DBGrid1KeyDown (Sender: TObject; var Key: Word; Shift:TShiftState) ; begin if (Shift = [ssCtrl]) and (Key = VK_DELETE) then Key := 0; {ignore} end;
Devamını Oku »procedure Form1.DBGrid1KeyDown (Sender: TObject; var Key: Word; Shift:TShiftState) ; begin if (Shift = [ssCtrl]) and (Key = VK_DELETE) then Key := 0; {ignore} end;
Devamını Oku »