[praeeo]

Здравствуйте!
Интересует вопрос, как назначить для правого щелчка мышью на каждой из кнопок не общую, а СВОЮ команду, как в случае со щелчком левой клавишей? Знаю, что можно на OnMouseDown и OnMouseOn свои команды повесить, но если кнопок много?
Спасибо!

[AleD]

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

Здравствуйте!
Интересует вопрос, как назначить для правого щелчка мышью на каждой из кнопок не общую, а СВОЮ команду, как в случае со щелчком левой клавишей? Знаю, что можно на OnMouseDown и OnMouseOn свои команды повесить, но если кнопок много?
Спасибо!

Всмысле? Одно действие для множество кнопок? Если так то просто в поле Event'а прописать имя той же функции, ну можно конечно ещё отдельный компонент сделать... но это уже совсем. Это нужно?

[praeeo]

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

Всмысле? Одно действие для множество кнопок? Если так то просто в поле Event'а прописать имя той же функции, ну можно конечно ещё отдельный компонент сделать... но это уже совсем. Это нужно?

Не одно действие для множества кнопок, а для КАЖДОЙ кнопки своя команда для левого щелчка по ней. Для компактности, чтобы похожие кнопки не дублировать. Например: по левому щелчку на одной и той же кнопке открывается Ворд, а по правому - Эксель.

[ryderx34]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;   Shift: TShiftState; X, Y: Integer); begin     if Button=mbLeft then     ShowMessage('левая кнопка');     if Button=mbRight then     ShowMessage('правая кнопка');     if Button=mbMiddle then     ShowMessage('средняя кнопка');   end;

[praeeo]

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

Код:

Ryderx34, большое спасибо! То, что было нужно!)))