Текущий архив: 2007.06.03;
Скачать: 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 вся ветка
Текущий архив: 2007.06.03;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.039 c
