Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.11;
Скачать: [xml.tar.bz2];




Вниз

Windows+PopupMenu 


Schummmi   (2002-02-09 08:06) [0]

Уважаемые Мастера! Тут задача! Есть на форме FileListBox. Как прправом клике на его файл вызвать Windows-PopupMenu, т.е. то контекстное системное меню, которое появляется, когда в проводнике на любом из файлов вы кликаете правой кнопкой мыши? Спасибо!



Schummi   (2002-02-09 13:31) [1]

Ну не молчите, please!



Sasha9   (2002-02-21 14:08) [2]

По-моему основная часть этой менюшки содкржится где-то в ресурсах системных dll-ок(там, где сидят api функции), а остальная - в реестре



Артемий   (2002-02-22 07:21) [3]

Пишем обработчик onMousDown

Var Point : TPoint;
I : Integer;
begin
if Button = mbRight Then // Если нажата правая кнопка мыши
Begin
Point.X:=x;
Point.Y:=y;
I:=FileListbox.ItemAtPos(Point , True);
If Not(i = -1) Then
Begin // курсор попал на элемент номер i, делаем его отмеченым
FileListbox.ItemIndex:=I;
TCheckListBox(Sender).PopUpMenu.AutoPopup:=True;
End
Else // курсор промахнулся
TCheckListBox(Sender).PopUpMenu.AutoPopup:=False;
End;
end;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.11;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.023 c
1-32516           ev                    2002-02-25 14:04  2002.03.11  
как обращаться к элемантам формы с цикле


7-32581           Denst                 2001-11-28 21:20  2002.03.11  
Как запретить удаление и изменение конкретного файла?


4-32609           ЛамерОК               2002-01-10 23:29  2002.03.11  
Раскладка клавиатуры!


7-32598           Ant_bofh              2001-12-04 15:35  2002.03.11  
Help !! У меня большой трабл !


1-32470           Bura                  2002-02-22 22:07  2002.03.11  
Button