| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
PopupMenu [D6]
Ламонов Олег © (2007-05-13 10:54:00)Уважаемые мастера.
Скажите, как сделать, чтобы появлялся такой же PopupMenu, что и
в верхем левом углу любого приложения с иконкой, когда щелкаешь
мышью 1 раз.
Например:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowPopupMenu; //процедура с обработчиком
end;
Заранее спасибо.
Cobalt (2007-05-13 14:41:00) [1]2 Ламонов Олег (13.05.07 12:41) [2]
mainform.handle?
Ламонов Олег (2007-05-13 12:41:00) [2]А если использовать проект MDI, то такое не произойдет.
Как можно обойти?
DVM (2007-05-13 11:16:00) [3]
procedure TForm1.Button1Click(Sender: TObject);
var
pt: TPoint;
begin
GetCursorPos(pt);
PostMessage(Handle, $313, 0, MakeLong(pt.X, pt.Y));
end;
| |
