Скачать: CL | DM;

Почему не срабатывает меню?   Найти похожие ветки 

← →
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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.005 c