Обработка клавиш-акселераторов для станиц TPageControlDelphi , Компоненты и Классы , Вкладки и СтраницыОбработка клавиш-акселераторов для станиц TPageControl
Оформил: DeeCo { With menus (and labels), If you use the '&' character in the caption of a menu, you can access that menu item with the short cut key. With this code you can do the same thing with TTabSheet objects that are used with TPageControl objects. Zugriffstasten ermoglichen die Ausfuhrung eines Menubefehls mit Hilfe der Tastatur. Der Benutzer braucht nur die Taste Alt und den mit dem Zeichen & kombinierten Buchstaben zu drucken. Dieser code erlaubt dieselebe Funktionalitat fur ein TTabSheet eines TPageControls. } // in form declaration private procedure CMDialogChar(var Msg: TWMCHAR); message CM_DIALOGCHAR; end; type TPageControlCracker = class(TPageControl); {...} implementation procedure TForm1.CMDialogChar(var Msg: TWMCHAR); var i: Integer; begin if (Msg.keydata and $20000000) <> 0 then begin { Alt key is down } with TPageControlCracker(PageControl1) do for i := 0 to PageCount - 1 do begin if IsAccel(Msg.charcode, Pages[i].Caption) then begin if CanChange then begin ActivePage := Pages[i]; Msg.Result := 1; Change; Exit; end; { If } end; { If } end; {For} end; {If} inherited; end; Статья Обработка клавиш-акселераторов для станиц TPageControl раздела Компоненты и Классы Вкладки и Страницы может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Вкладки и Страницы ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |