В 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;

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

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

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