Всплывающее меню в 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]

Соотвественно,если хочешь привязать к нескольким строчка, измени условие проверки

Всплывающее меню в ListBox Найти похожие ветки