Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.09.2010, 08:54   #1
aha
Пользователь
 
Регистрация: 17.04.2010
Сообщений: 29
По умолчанию хочу сделать обзор своей программы

, сделав некую анимацию, то есть мышь устанавливается программно на нужную позицию Mainmenu, программно кликает и появляется либо хинт.
Вопрос 1 . как установить программно мышку на нужную позицию Mainmenu ?
Вопрос 2 связан с первым вопросом , как заставить программно выпасть mainmenu ?

я хотел вот такое получить , методом тыка получилось
но может быть надо по другому делать ?
Код:

Код:
procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
Application.ProcessMessages;
{Alt Key Down}
keybd_Event(VK_MENU, 0, 0, 0);
{F Key Down - Drops the menu down}
keybd_Event(ord('2'), 0, 0, 0); //меню к примеру имеет caption=2
{F Key Up}
keybd_Event(ord('2'), 0, KEYEVENTF_KEYUP, 0);

   keybd_event(BYTE(40), 0, 0, 0);
   keybd_event(BYTE(40), 0, KEYEVENTF_KEYUP, 0);

   keybd_event(BYTE(40), 0, 0, 0);
   keybd_event(BYTE(40), 0, KEYEVENTF_KEYUP, 0);//lдважды нажимаю на курсор вниз , чтобы выделить нужный пункт меню 

{Alt Key Up}
keybd_Event(VK_MENU, 0, KEYEVENTF_KEYUP, 0);
{F Key Down}
end;


И еще заметил данный метод не подходит в случае если меню написано кириллицей, как у меня - с File прокатит , а с Файл не работает .. (((
aha вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Запуск приложений из своей программы Vladya Помощь студентам 2 14.04.2010 10:59
Отключить\Включить автозапуск своей программы через риестр Vol666 Общие вопросы Delphi 2 24.09.2009 19:32
Как отправить иконку своей программы в автозапуск Vol666 Общие вопросы Delphi 2 19.08.2009 10:09
Как открыть другие программы из своей Михаил Юрьевич Общие вопросы Delphi 4 16.03.2009 18:21
Как сделать для своей проги скин? C++ Builder 6. Dunhil Помощь студентам 1 30.12.2007 13:37