Скачать: 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 вся ветка

Скачать: CL | DM;



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