|
Вопрос # 4 843/ вопрос решён / |
|
Здравствуйте, эксперты!
На форме лежит очень много 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
|
Мини-форум вопроса
Всего сообщений: 7; последнее сообщение — 20 декабря 2010, 15:54; участников в обсуждении: 2.
|
|
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. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
