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

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

Доброго времени суток, уважаемые эксперты!Имеется Image и PopupMenu, как при нажатии ( на Image заставить сработать PopupMenu?

Вопрос задал: Аксион (статус: 4-ый класс) Вопрос отправлен: 7 января 2008, 16:44 Состояние вопроса: открыт, ответов: 2.

Ответ #1. Отвечает эксперт: Вадим К

Здравствуйте, Блазер!
Предельно просто. Надеюсь, что TImage и TPopupMenu лежат на форме и TPopupMenu заполненно нужными элементами. Выделяем TImage, находим в инспекторе свойство PopupMenu и нажав на кнопку выпадающего списка, выбираем наше меню. Не правда ли просто?

Ответ отправил: Вадим К (статус: Академик) Время отправки: 7 января 2008, 20:24 Оценка за ответ: 2 Комментарий к оценке: я же сказал... при нажатии ЛЕВОЙ кнопкой мыши.

Ответ #2. Отвечает эксперт: Николай Рубан

Здравствуйте, Блазер!

Вам достаточно создать такой обработчик для нажатия на картинку (TImage):

procedure TForm1.Image1Click(Sender: TObject);
begin
  PopupMenu1.Popup(Mouse.CursorPos.X,Mouse.CursorPos.Y);
end;

Ответ отправил: Николай Рубан (статус: 10-ый класс) Время отправки: 7 января 2008, 21:10 Оценка за ответ: 5 Комментарий к оценке: спс

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

Drozdov D.V. (статус: 4-ый класс), 12 января 2008, 18:17 [#1]: В объект инспекторе Timage есть свойство popupmenu. Создайте на форме popupmenu заполните его а затем выберайте. Причём их (popupmenu) может быть несколько срабатывает при нажатии на кортинку правой клавишей мыши.

Аксион (статус: 4-ый класс), 13 января 2008, 17:18 [#2]: Может удосужитесь вопрос с примечанием ещё раз прочитать???!!!Там написано... при нажатии ЛЕВОЙ кнопкой мыши!

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