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

PopupMenu   Найти похожие ветки 

← →
Ламонов Олег   (2007-05-13 10:54) [0]

Уважаемые мастера.
Скажите, как сделать, чтобы появлялся такой же PopupMenu, что и
в верхем левом углу любого приложения с иконкой, когда щелкаешь
мышью 1 раз.
Например:

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowPopupMenu; //процедура с обработчиком
end;

Заранее спасибо.

---

← →
DVM ©   (2007-05-13 11:16) [1]

procedure TForm1.Button1Click(Sender: TObject);
var
 pt: TPoint;
begin
 GetCursorPos(pt);
 PostMessage(Handle, $313, 0, MakeLong(pt.X, pt.Y));
end;


---

← →
Ламонов Олег   (2007-05-13 12:41) [2]

А если использовать проект MDI, то такое не произойдет.
Как можно обойти?

---

← →
Cobalt ©   (2007-05-13 14:41) [3]

2 Ламонов Олег   (13.05.07 12:41) [2]
mainform.handle?

---

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

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



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