Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Доброго времени суток, уважаемые эксперты!
У меня либо сложные вопросы, либо совсем детские. В этот раз вопрос о ListBox. Можно-ли реализовать выделение строки нажатием правой кнопки (например при вызове контекстного меню, чтобы выделялась и запись на которой оно вызвано)?
И еще, чтобы при клике на пустом месте listbox'а выделение снималось.

Вопрос задал: Ozz (статус: Посетитель) Вопрос отправлен: 10 мая 2009, 10:37 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: min@y™

Предложу один из самых простых способов — с использованием VCL.
Поставь свойство ListBox.PopupMenu:= nil, а затем напиши для ListBox два вот таких обработчика:

procedure TMainForm.ListBoxMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight
    then PopupMenu.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
end;
 
procedure TMainForm.ListBoxMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight
   then ListBox.ItemIndex:= ListBox.ItemAtPos(Point(X, Y), True);
end;

Ответ отправил: min@y™ (статус: Доктор наук) Время отправки: 10 мая 2009, 11:07 Оценка за ответ: 5 Комментарий к оценке: Супер, все так как и надо было, легко и просто. Премного благодарен.

Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.