| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
System form menu [D6, WinXP]
DJ X © (2002-02-08 16:15:00)Как показать системной меню формы по щелчку на каком-то элементе.
DJ X (2002-02-10 17:18:00) [1]Нужно, чтобы выводилось копиясистемного меню формы!
BlankAlex (2002-02-08 18:32:00) [2]Почему не срабатывает
SendMessage(Self.Handle ,WM_SYSCOMMAND,SC_KEYMENU,0);
Юрий Зотов (2002-02-08 18:29:00) [3]Этот код показывает системное меню формы в месте клика по ней. Но меню "нерабочее", код надо дополнить.
procedure TForm1.FormClick(Sender: TObject);
begin
with Mouse.CursorPos do
TrackPopupMenu(GetSystemMenu(Handle, False), 0, X, Y, 0, Handle, nil)
end;
Romkin (2002-02-08 18:12:00) [4]Нмчего лучше не придумал...
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;
DJ X (2002-02-08 16:49:00) [5]Что - нету вариантов?!
| |
