| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как произвести левый клик мышью при возникновении контекста? [D6, WinXP]

Volf_555 ©   (2006-02-15 20:36:00) 

На форму добавил TPopupMenu + TDirectoryListBox.
Необходимо чтобы при нажатии правой кнопки мыши выделялась директория под курсором.
Как это сделать?

---

Volf_555   (2006-02-15 21:13:00) [1]

Спасибо!
У меня немного другой вариант получился:
procedure TForm1.DirectoryListBox1ContextPopup(Sender: TObject;
 MousePos: TPoint; var Handled: Boolean);
begin
DirectoryListBox1.ItemIndex:=DirectoryListBox1.ItemAtPos(MousePos,true);
end;

---

Жуков Олег   (2006-02-15 20:56:00) [2]

В OnMouseDown
if Button = mbRight then
 ListBox.ItemIndex := ListBox.ItemAtPos

---

Наверх