Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Господа, подскажите как запретить Ctrl + Del в DBGrid е ? [D6, IB6.x]


Vodochnik ©   (2002-09-21 16:27:00) 

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


Zz_   (2002-09-21 16:58:00) [1]

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


KDS   (2002-09-21 16:40:00) [2]

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


KDS   (2002-09-21 16:34:00) [3]

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


Zz_   (2002-09-21 16:33:00) [4]

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;


Наверх

Титульная страница Поиск, карта сайта Написать письмо