Текущий архив: 2002.06.24;
Скачать: CL | DM;
Вниз
Всплывающее меню в ListBox Найти похожие ветки
← →
VJar (2002-06-10 10:20) [0]Как привязать всплывающее меню не ко всему ListBox,
а только к строкам, которые присутствуют???
(т.е. при клике на непустые строки)
← →
Kaban (2002-06-10 10:21) [1]Вручную обрабатывать правый клик и показывать всплывающее меню
← →
VJar (2002-06-10 18:59) [2]А можно поконкретней
← →
Guerrillero Che © (2002-06-10 20:48) [3]Обрабатывай событие листбокса OnMouseDown
Вот тебе небольшой примерчик:
procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var i:integer; p:tpoint;
begin
if Button=mbRight then
begin
i:=ListBox1.ItemAtPos(Point(x,y),true);
if i<>3 then exit;
p:=ClientToScreen(Point(x+ListBox1.Left,y+ListBox1.Top));
PopupMenu1.Popup(p.X,p.y);
end;
end;
Здесь показывается popupmenu1 при клике на четвертой строчке.
← →
Guerrillero Che © (2002-06-10 20:51) [4]Соотвественно,если хочешь привязать к нескольким строчка, измени условие проверки
Страницы: 1 вся ветка
Текущий архив: 2002.06.24;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.012 c
