Текущий архив: 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.014 c
