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

В ListBox хочу выделять Item правой кнопкой мыши.   Найти похожие ветки 

← →
LinOS ©   (2003-06-23 06:33) [0]

В общем надо перед тем как появиться на ListBox-е Popup-у необходимо выделить итем над которым щелкнули для вызова Popup. Вроде должно быть просто, но что-то застопорило.

---

← →
Спрашивающий_   (2003-06-23 07:41) [1]

Так устроит
procedure TForm1.ListBox1ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
var
Index:Word;
begin

Index:=ListBox1.ItemAtPos(MousePos,True);
SendMessage(ListBox1.Handle, LB_SETCARETINDEX ,Index,0 ) ;
Text:=ListBox1.Items[Index]; //Тест
end;

---

← →
LinOS ©   (2003-06-23 08:58) [2]

>> SendMessage(ListBox1.Handle, LB_SETCARETINDEX ,Index,0 ) ;

А без API?
Я пишу с CLX библиотеками.

---

Страницы: 1 вся ветка

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



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