Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС
выпущен 4 ноября!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Как использовать клавишу-акселератор в TTabSheets

Press any key to continue or any other key to exit

Можно перехватить сообщение CM_DIALOGCHAR


 type
   TForm1 = class(TForm)
     PageControl1: TPageControl;
     TabSheet1: TTabSheet;
     TabSheet2: TTabSheet;
     TabSheet3: TTabSheet;
   private
     {Private declarations}
     procedure CMDialogChar(var Msg:TCMDialogChar);
     message CM_DIALOGCHAR;
   public
     {Public declarations}
   end;
 
 var
   Form1: TForm1;
 
 implementation
 {$R *.DFM}
 
 procedure TForm1.CMDialogChar(var Msg:TCMDialogChar);
 var
   i: integer;
 begin
   with PageControl1 do
   begin
     if Enabled then
       for i := 0 to PageControl1.PageCount - 1 do
         if ((IsAccel(Msg.CharCode, Pages[i].Caption)) and
         (Pages[i].TabVisible)) then
         begin
           Msg.Result:=1;
           ActivePage := Pages[i];
           exit;
         end;
   end;
   inherited;
 end;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS