Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Пример KeyDown компонента DBNavigator

Delphi , Компоненты и Классы , TDBNavigator

Пример KeyDown компонента DBNavigator

Автор: Dmitry

Шел доомер тихой темной ночью по темной улице вдоль темного, высоко забора. Вдруг услышал с другой улицы крики и выстрелы.... IDCLIP, - перекрестился он и на всякий случай перешел по другую сторону забора... Вдруг очередь просвистела над его головой. IDDQD, - сказал он и поспешил покинуть это место...

Есть некоторое решение для создания "горячих клавиш" в DBNavigator. Установите свойство TForm.KeyPreview в TRUE и напишите обработчик события onkeydown. Примерно так:


procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
const
  (* Классный участок кода от Graphical Gnome *)
  KeyBtn: array[TNavigateBtn] of record
    Key: Word;
    Btn: TNavigateBtn;
  end = (
    (Key: VK_F1; Btn: nbFirst),
    (Key: VK_F2; Btn: nbPrior),
    (Key: VK_F3; Btn: nbNext),
    (Key: VK_F4; Btn: nbLast),
    (Key: VK_F5; Btn: nbInsert),
    (Key: VK_F6; Btn: nbDelete),
    (Key: VK_F7; Btn: nbEdit),
    (Key: VK_F8; Btn: nbPost),
    (Key: VK_F9; Btn: nbCancel),
    (Key: VK_F10; Btn: nbRefresh)
    );
var
  i: TNavigateBtn;
begin
  for i := nbFirst to nbRefresh do
    if KeyBtn[i].Key = Key then
    begin
      DBNavigator1.BtnClick(KeyBtn[i].Btn);
      Exit;
    end;
end;

Статья Пример KeyDown компонента DBNavigator раздела Компоненты и Классы TDBNavigator может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: TDBNavigator ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
29.11.2022 08:11:06/0.017733097076416/0