Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2006.05.07;
Скачать: [xml.tar.bz2];

Вниз

Программно назначить объекту ShortCut   Найти похожие ветки 

 
kutuzov47 ©   (2006-03-27 23:35) [0]

Нужно назначить объекту типа TAction ShortCut F5. Как это сделать?


 
TUser ©   (2006-03-28 08:20) [1]

Action1.SecondaryShortCuts.Add("F5");


 
kutuzov47 ©   (2006-03-28 10:27) [2]

Спасибо


 
kutuzov47 ©   (2006-03-28 10:38) [3]

Вот еще что. Я назначил вручную объекту шорткат ф4, затем в форм_креате вызвал
ShowMessage(inttostr(ActShowFun.ShortCut));
Он выдал 115. Т.е. теперь можно просто написать
Action1.ShortCut:=115
чтобы программно изменить его на ф4, например.


 
MegaVolt ©   (2006-03-28 15:59) [4]

Посмотри функции
ShortCutToText
ShortCut


 
kutuzov47 ©   (2006-03-29 09:18) [5]

В том то и дело, что для F4 я не знаю, как использовать эти функции.
Action1.ShortCut := ShortCut(Word("A"), [ssCtrl]);
Здесь пример того, как назначить объекту Action1 shortcut ctrl+A. А вот как это сделать для ф4 не знаю. Поэтому и пришлось изловчиться и узнать код нужного мне шортката.
Чуть не забыл, всем спасибо за помощь!


 
vovnuke ©   (2006-03-29 09:47) [6]

uses
 Menus;
Action1.ShortCut := TextToShortCut("F4");
А вообще читайте хелп.



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2006.05.07;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.01 c
2-1145360339
Elen
2006-04-18 15:38
2006.05.07
Сообщения


2-1144911447
Sw
2006-04-13 10:57
2006.05.07
Подтверждение удаления


15-1145081797
Kolan
2006-04-15 10:16
2006.05.07
Как в Async Professional сделана работа с RS485


15-1144770420
Grom PE
2006-04-11 19:47
2006.05.07
Эффект воды на Delphi


4-1139505659
EarlVadim
2006-02-09 20:20
2006.05.07
Консоль (через CreateProcess) не может достучаться в Интернет





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский