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

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

Здравствуйте, эксперты!
На форме лежит очень много label'ов, нужно на клик правой кновкой делать одну и туже процедуру. Возможно ли сделать это программно а не вручную? В том плане, если клик правой кнопкой по любому label'у, то выполняется процедура.

Вопрос задал: val86 (статус: Посетитель) Вопрос отправлен: 20 декабря 2010, 14:05 Состояние вопроса: решён, ответов: 1.

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

Пишешь один обработчик для всех Label'ов:

procedure TForm1.LabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight
    then begin
             // тыкнули правую кнопку
         end;
  // также можно различать, на какой Label юзер тыкнул мышой.
  // для этого можно им присвоить разные значения свойства Tag.
  case TComponent(Sender).Tag of
    0: {тыкнули по Label1} ;
    1: {тыкнули по Label2} ;
    2: {тыкнули по Label3} ;
    // и т.д.
  end;
end;

Ответ отправил: min@y™ (статус: Доктор наук) Время отправки: 20 декабря 2010, 14:16 Оценка за ответ: 5

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

val86 (статус: Посетитель), 20 декабря 2010, 14:19 [#1]: круть. спасибо.

min@y™ (статус: Доктор наук), 20 декабря 2010, 14:21 [#2]: Цитата (val86): круть. спасибо. А где "спасибо" (оценка)? Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

val86 (статус: Посетитель), 20 декабря 2010, 14:32 [#3]: чуток поторопился. компилятор не пропускает. Говорит, что после procedure Form1.LabelMouseUp должно быть "=", а не "(" Что делаю не так?

min@y™ (статус: Доктор наук), 20 декабря 2010, 14:39 [#4]: Цитата (val86): Что делаю не так? Щас пример напишу. Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

min@y™ (статус: Доктор наук), 20 декабря 2010, 14:46 [#5]: Качай пример вот отсюда. Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

val86 (статус: Посетитель), 20 декабря 2010, 14:53 [#6]: ясненько. ещё раз спасибо.

20 декабря 2010, 14:55: Статус вопроса изменён на решённый (изменил модератор Ерёмин А.А.)

min@y™ (статус: Доктор наук), 20 декабря 2010, 15:54 [#7]: Цитата (val86): ясненько. ещё раз спасибо. Обращайся, если чо... Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

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