Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.04.07;
Скачать: CL | DM;

Вниз

выбор эл-та ListBox правой кнопкой мыши   Найти похожие ветки 

 
bite   (2003-03-26 08:37) [0]

Следующая ситуация: Есть ListBox и прикрепленный к нему PopupMenu
Как сделать чтоб при щелчке правой кнопки мыши и соответственно появлении выпадающего меню, еще и выбирался элемент ListBox, как при щелчке левой кнопкой.Помогите,плз...


 
vlad40 ©   (2003-03-26 09:00) [1]

procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if ssRight in Shift then
ListBox1.ItemIndex:=ListBox1.ItemAtPos(point(X,Y),True)
end;


 
bite   (2003-03-26 09:18) [2]

Большое спасибо, все заработало!


 
vlad40 ©   (2003-03-26 09:22) [3]

А еще лучше вот так:


procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
ListBox1.ItemIndex:=ListBox1.ItemAtPos(ListBox1.ScreenToClient(Mouse.CursorPos),True);
end;



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

Текущий архив: 2003.04.07;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
14-19819
Deonis_L
2003-03-20 12:17
2003.04.07
Как включить скаченный компонент в Delphi?


7-19893
Alexandr3
2003-02-12 23:48
2003.04.07
Как распечатать...


1-19605
pavel_k
2003-03-28 19:11
2003.04.07
Цвет пикселя на состовляющие


1-19695
OxyGen
2003-03-26 13:51
2003.04.07
Цвет в ListBox е!!!!!


1-19531
dima78
2003-03-26 12:19
2003.04.07
Неиспользуемые модули