Форум по Delphi программированию



Вернуться   Форум по Delphi программированию > Все о Delphi > Программа и интерфейс
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 16.06.2006, 21:53
Foccer Foccer вне форума
Прохожий
 
Регистрация: 10.06.2006
Сообщения: 5
Репутация: 10
По умолчанию Контекстное меню

Хотел б узнать, как можно вызвать при нажатии правой кнопкой мыши по кнопке вызвать системное меню, которое выходит при нажатии по заголовку активного окна правой(левой) кнопкой мыши. Пробовал через GetSystemMenu(прописывал в OnPopup), но не получается.
Ответить с цитированием
  #2  
Старый 19.06.2006, 20:54
AlexZL AlexZL вне форума
Новичок
 
Регистрация: 06.01.2006
Сообщения: 87
Репутация: 20
По умолчанию

Цитата:
Хотел б узнать, как можно вызвать при нажатии правой кнопкой мыши по кнопке вызвать системное меню, которое выходит при нажатии по заголовку активного окна правой(левой) кнопкой мыши. Пробовал через GetSystemMenu(прописывал в OnPopup), но не получается.

Странно.... а у меня именно таким образом все работает (в OnPopup)
вот пример работающего у меня кода:

Код:
procedure TForm1.Button1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
var Mmenu: HMenu;
begin
  Mmenu:= GetSystemMenu(Form1.Handle,false);
  TrackPopupMenu(Mmenu,TPM_CENTERALIGN	and TPM_RIGHTBUTTON,100,100,0,Form1.Handle,Nil);
end;
Ответить с цитированием
  #3  
Старый 19.06.2006, 23:14
Foccer Foccer вне форума
Прохожий
 
Регистрация: 10.06.2006
Сообщения: 5
Репутация: 10
По умолчанию

Спасибо за совет!!!!
Ответить с цитированием
Ответ



Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 01:07.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2021

ВКонтакте   Facebook   Twitter   Ссылка на Telegram