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

Вниз

Как произвести левый клик мышью при возникновении контекста?   Найти похожие ветки 

← →
Volf_555   (2006-02-15 20:36) [0]

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

---

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

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

---

← →
Volf_555   (2006-02-15 21:13) [2]

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

---

Страницы: 1 вся ветка

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

Наверх

Память: 0.44 MB
Время: 0.011 c