[praeeo]

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

[AleD]

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

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

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

[praeeo]

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

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

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

[ryderx34]

Код:

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

Код:

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;

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