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




Вниз

System form menu 


DJ X   (2002-02-08 16:15) [0]

Как показать системной меню формы по щелчку на каком-то элементе.



DJ X   (2002-02-08 16:49) [1]

Что - нету вариантов?!



Romkin   (2002-02-08 18:12) [2]

Нмчего лучше не придумал...

procedure TForm1.Button1Click(Sender: TObject);
begin
keybd_event(VK_MENU,0,0,0);
keybd_event(VK_SPACE,0,0,0);
keybd_event(VK_SPACE,0,KEYEVENTF_KEYUP,0);
keybd_event(VK_MENU,0,KEYEVENTF_KEYUP,0);
end;



Юрий Зотов   (2002-02-08 18:29) [3]

Этот код показывает системное меню формы в месте клика по ней. Но меню "нерабочее", код надо дополнить.


procedure TForm1.FormClick(Sender: TObject);
begin
with Mouse.CursorPos do
TrackPopupMenu(GetSystemMenu(Handle, False), 0, X, Y, 0, Handle, nil)
end;



BlankAlex   (2002-02-08 18:32) [4]

Почему не срабатывает
SendMessage(Self.Handle ,WM_SYSCOMMAND,SC_KEYMENU,0);



DJ X   (2002-02-10 17:18) [5]

Нужно, чтобы выводилось копия системного меню формы!




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




Наверх





Память: 0.72 MB
Время: 0.054 c
1-90606           PlaZZma               2002-02-12 17:08  2002.02.28  
Как проверить, находится ли курсор над компонентом или нет?


1-90603           VID                   2002-02-12 17:53  2002.02.28  
Определение полного имени процесса


3-90475           Alex_C                2002-02-01 16:46  2002.02.28  
Как добавить FieldDefs к существующей базе данных?


14-90654          Mike_Goblin           2002-01-11 10:11  2002.02.28  
Москвичи - может кто сдает квартиру???


3-90492           Anvarchik             2002-02-04 12:28  2002.02.28  
Печать & DBGrid