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




Вниз

Почему не срабатывает меню? 


Ig   (2002-02-24 02:33) [0]

procedure TForm1.Button1Click(Sender: TObject);
var m:hmenu;
begin
m:=getsystemmenu(handle,false);
TrackPopupMenu(m,TPM_LEFTALIGN,left+10,top+30,0,button1.handle,nil);
end;



Sasha9   (2002-02-24 12:29) [1]

У меня работает. Может у твоей формы в BorderIcons нет biSystemMenu



Ig   (2002-02-24 19:02) [2]

Я имею ввиду , что опции системного меню не работают. Оно показывается нормально, не работает.




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




Наверх





Память: 0.71 MB
Время: 0.016 c
4-32604           BorisM                2002-01-11 04:07  2002.03.11  
Размеры окна другого приложения...


3-32408           Paxer                 2002-02-12 14:40  2002.03.11  
Переиндексация с помощью TADOQuery


1-32490           Smooth                2002-02-24 17:24  2002.03.11  
Вопрос знатокам DELPHI


14-32566          copyr25               2002-01-23 19:56  2002.03.11  
Компьютер - первое творение человека, создав которое,


14-32565          Dimitry_I             2002-01-28 14:50  2002.03.11  
Помогите, очень прошу