Код: Выделить всё
procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
APoint: TPoint;
Index: integer;
begin
{Первый вопрос}
{как и в ответе № 2, только вместо mbRight, указываете mbLeft}
{Второй вопрос}
if Button = mbRight then
begin
APoint.X := X;
APoint.Y := Y;
Index := ListBox1.ItemAtPos(APoint, True);
//index- номер пункта
if index=-1 then
begin
//код,если клик не в пункт, а непонятно куда
end
else
Begin
//Е! Наконец то чайник смог тыкнуть в пункт
// Выделяем пункт
ListBox1.ItemIndex:=index;
// Отображаем для каждого своё меню - ответ на Третий вопрос
if ListBox1.ItemIndex=0 then PopupMenu1.Popup(ListBox1.Left+x+left,ListBox1.Top+y+top); //открыть Popup menu
if ListBox1.ItemIndex=1 then PopupMenu2.Popup(ListBox1.Left+x+left,ListBox1.Top+y+top);
if ListBox1.ItemIndex=2 then PopupMenu3.Popup(ListBox1.Left+x+left,ListBox1.Top+y+top);
{P.S. Стоит поиграться с координатами вывода меню для удобства интерфейса}
end;
end;
end;Код: Выделить всё
procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
i: Integer;
const
left_tab = 6;
top_tab = 26;
begin
// Выделяем пункт
ListBox1.ItemIndex := ListBox1.ItemAtPos(Point(x, y), true);
// Выводим меню (коли надо)
if Button = mbRight then
for i := 0 to Length(a) - 1 do
if a[ i ] = ListBox1.ItemIndex then begin
PopupMenu1.Popup(x + ListBox1.Left + Form1.Left + left_tab, y + ListBox1.Top + Form1.Top + top_tab);
Break;
end;
end;
procedure TForm1.N1Click(Sender: TObject);
begin
if ListBox1.ItemIndex > -1 then
MessageBox(0, PChar(ListBox1.Items[ListBox1.ItemIndex]), nil, 0)
// вообще-то это только заглушка, здесь надо реализовать что-то типо этого:
// case ListBox1.ItemIndex of
// 0: реакция на первый пункт
// ...
// ListBox1.Items.Count-1: реакция на последний пункт списка (что-то может объединить и т.п.)
// else /error, impossible value/ ;
// end;
end;
Свой первый пост - каюсь - я проверил на 5-й версии, что и привело к ошибкам 
Код: Выделить всё
var
a: array of Integer;
....
SetLength(a, 2);
a[0] := 2;
a[1] := 4;