системное меню

← →
Mistic © (2003-10-29 22:10) [0]

Подскажите,как вызвать системное меню проги программно?

← →
Song © (2003-10-29 22:13) [1]

Что значит "вызвать" ?

← →
Mistic © (2003-10-29 22:16) [2]

вызвать, значит показать (меню на экране)

← →
Song © (2003-10-29 22:25) [3]

А оно не видно? Может тебе развенуть сабменю?

← →
Mistic © (2003-10-29 22:36) [4]

Ты издеваешься?!? Нажми Alt+Space и увидишь системное меню. Его то я и хочу вызвать программно.

← →
Anatoly Podgoretsky © (2003-10-29 23:07) [5]

Mistic © (29.10.03 22:36) [4]
Нет про системное меню мы знаем, а вот что означет вызвать?

← →
Mistic © (2003-10-29 23:17) [6]

Вызвать значит отобразить. Что то типа Popup1.Show:=True. Только вместо Popup - системное меню

← →
Anatoly Podgoretsky © (2003-10-29 23:21) [7]

ТО есть то, что Song спрашивал, так почему же ты так агресивно себя повел, думвешь теперь будут помогать? Ну разве из жалости, Song иногда добрый "сегодня"

← →
Mistic © (2003-10-29 23:25) [8]

Я не вел себя агрессивно, просто думал что Song шутит "А оно не видно? Может тебе развенуть сабменю?". Т.е. естественно оно не видно пока его не вызвать. Или я не прав?

← →
PKT (2003-10-30 09:09) [9]

http://www.delphikingdom.ru/treasury/freemenu.htm

← →
Song © (2003-10-30 09:31) [10]

← →
alena.svt (2003-10-30 10:34) [11]

Song © (30.10.03 09:31) [10]
Зачем TrackPopupMenu
Как сам Mistic сказал нажать Alt + Space

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

Послать окну сообщение с кодом кажется $313, хотя насчет номера могу ошибаться, все время его забываю.

Всем большое спасибо!

системное меню Найти похожие ветки