Форум: "Основная";
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];
ВнизАктивация программы Найти похожие ветки
← →
Хлор (2002-01-08 06:42) [3]Вот шматок смотри может пригодиться:
procedure TForm1.IconTray (var Msg: TMessage);
var
Pt: TPoint;
begin
if Msg.lParam = wm_rbuttondown then
begin
GetCursorPos (Pt);
PopupMenu1.Popup (Pt.x, Pt.y);
end;
if Msg.lParam = WM_lBUTTONDBLCLK then
begin
ShowWindow(Application.Handle, SW_RESTORE);
end;
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.012 c