Контекстное меню

[mar4elo]

Люди выложите исходник plz. У меня просто исходник дохера весит
там чат на несколько тысяч строк...

[goblinyara]

вот исходник, с кодом от Jeni
forum.zip

[Kotofff]

А что именно должно быть в контекстном меню при его выпадении ?
Или оно просто должно выпадать только на строках листбокса , а не на остальном поле компонента ?

[mar4elo]

Сообщение от goblinyara

вот исходник, с кодом от Jeni
Вложение 7860

Неподходит!!! т.к. я использую DynamicSkin, а там в ListBox'e нету OnContextPopup
И всё же эффект не тот как хотелось бы... А ещё как сделать чтоб при нажатии правой кнопки мыши сначало выделился элемент в ListBos'е
а потом появилось контекстное меню. Перед этим проверив выделен ли элемент под курсором, если да то покозать меню.

[Kotofff]

Сообщение от mar4elo

А ещё как сделать чтоб при нажатии правой кнопки мыши сначало выделился элемент в ListBos'е
а потом появилось контекстное меню. Перед этим проверив выделен ли элемент под курсором, если да то покозать меню.

Одна просьба перекрывает другую ....

Если так :

Сообщение от mar4elo

А ещё как сделать чтоб при нажатии правой кнопки мыши сначало выделился элемент в ListBos'е а потом появилось контекстное меню.

То можно так:

procedure TForm2.ListBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ListBox1.ItemIndex := ListBox1.ItemAtPos(Point(x,y), true);
  if Button = mbRight then ....  {что-то сделать}
   
end;

[Deight]

Уже 2 страницы, а толку 0.
Попробуй так (возможно грубо, но работает):
1.Popup вообще не конекти к листбоксу а просто скинь на форму.
2.В событии MouseDown или MouseUp (как удобнее) листбокса напиши:

If Button<>mbRight then exit;
spSkinListBox1.ItemIndex:=spSkinListBox1.ItemAtPos(Point(X,Y),true);
If spSkinListBox1.ItemIndex<>-1 then
spSkinPopupMenu1.Popup(spSkinListBox1.Left+Left+X+Width-ClientWidth,spSkinListBox1.Top+Top+Y+Height-ClientHeight);

можно чуть иначе

var P:TPoint;
begin
If Button<>mbRight then exit;
GetCursorPos(P);
spSkinListBox1.ItemIndex:=spSkinListBox1.ItemAtPos(Point(X,Y),true);
If spSkinListBox1.ItemIndex<>-1 then
spSkinPopupMenu1.Popup(P.X,P.Y);

Извиняюсь.

[mar4elo]

Сообщение от Deight

Уже 2 страницы, а толку 0.
Попробуй так (возможно грубо, но работает):
1.Popup вообще не конекти к листбоксу а просто скинь на форму.
2.В событии MouseDown или MouseUp (как удобнее) листбокса напиши:

If Button<>mbRight then exit;
spSkinListBox1.ItemIndex:=spSkinListBox1.ItemAtPos(Point(X,Y),true);
If spSkinListBox1.ItemIndex<>-1 then
spSkinPopupMenu1.Popup(spSkinListBox1.Left+Left+X+Width-ClientWidth,spSkinListBox1.Top+Top+Y+Height-ClientHeight);

можно чуть иначе

var P:TPoint;
begin
If Button<>mbRight then exit;
GetCursorPos(P);
spSkinListBox1.ItemIndex:=spSkinListBox1.ItemAtPos(Point(X,Y),true);
If spSkinListBox1.ItemIndex<>-1 then
spSkinPopupMenu1.Popup(P.X,P.Y);

Спасибо!!!
ХОТЬ один толковый ответ

[cemen13]

Всем подскажите как вызвать виндовское контекстное меню правой кнопки мыши в ListBox [IMG][/IMG]

[SuperVisor]

Новый вопрос - новая тема!!!

[Stilet]

Закрыто. (Ключи в горшке на второй полке)

Но на всякий случай скажу Семену 13 рыть в теме:http://www.programmersforum.ru/showt...okeContextMenu
Там ответ.