Текущий архив: 2003.08.07;
Скачать: CL | DM;
Вниз
Системное меню приложения. Найти похожие ветки
← →
Yanis © (2003-06-03 12:36) [0]Подскажите пожалуйста, как вызвать системное меню приложения.
Спасибо.
← →
DVM © (2003-06-03 13:45) [1]Здесь Handle - хендл того окна от которого системное меню.
Handle2 - твоя программа. По крайней мере у иеня так работает.
procedure TForm1.Button1Click(Sender: TObject);
var
LItem : LongWord;
LMenu : HMENU;
begin
LMenu := GetSystemMenu(Handle,false);
LItem := LongWord(Windows.TrackPopupMenu(LMenu, TPM_LEFTBUTTON or
TPM_RIGHTBUTTON or TPM_RETURNCMD,
100, 100, 0 , Handle2, nil));
if LItem>0 then SendMessage(Handle,WM_SYSCOMMAND,LItem,0);
end;
Коотрдинаты появления ставишь сам.
← →
Yanis © (2003-06-03 14:09) [2]Спасибо!
← →
jonni © (2003-06-04 03:33) [3]rabotaqet krivo!!!!!!!
i ne vsegda vidaet pravil"noe menu tochnee skazat" pochti vsegda ne pravil"noe po krayney mere v 98 i 2000 (poprobuyte naprimer WinAmp)
est" bolee chestniy i pravil"niy sposob kotoriy v 100% sluchayah vidat prvil"noe menyu i v nuznom meste
cherez nedokumentirovanniy message WM_0X313
proverneo i oprobovano.....
privedenniy vami vishe metod neverne dlya 100% ispol"zovaniya
Страницы: 1 вся ветка
Текущий архив: 2003.08.07;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.013 c
