Форум: "Основная";
Текущий архив: 2002.03.11;
Скачать: [xml.tar.bz2];
ВнизWindows+PopupMenu Найти похожие ветки
← →
Артемий (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;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.03.11;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.003 c