Текущий архив: 2006.03.19;
Скачать: CL | DM;
Вниз
Как произвести левый клик мышью при возникновении контекста? Найти похожие ветки
← →
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;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.044 c
