Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.02.2008, 15:52   #1
xbIm
 
Регистрация: 15.02.2008
Сообщений: 4
Сообщение delphi дейтсвия над label при нажатии правой кнопки

вот создал l:Tlabel;
procedure TForm1.FormDblClick(Sender: TObject);


Код:
begin
    //
 i:=i+1;

 l := tlabel.Create(self);
 with l do begin
   if i=1  then  Caption := 'first';
   if i=2 then Caption:='second';
    Left := a;
    Top := b;
    parent:= self;
          end;
      if i=3 then i:=2;

end;
как сделать чтобы при нажатии правой кнопки на этот label совершался какой либо алгоритм
xbIm вне форума Ответить с цитированием
Старый 15.02.2008, 16:21   #2
alexBlack
Участник клуба
 
Регистрация: 12.10.2007
Сообщений: 1,204
По умолчанию

OnMouseDown такое же свойство, как и остальные:

Создай свой обработчик и используй его. Самое простое - создай OnMouseDown для TForm1 и подключи его к TLabel:

l.OnMouseDown := Self.OnMouseDown
alexBlack вне форума Ответить с цитированием
Старый 15.02.2008, 16:35   #3
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Вы должны заранее создать обработчик.
Самый простой метод я уже приводил в другой теме, повторю:
1. Кидаете на форму Label1;
2. Создаете обработчик:
procedure TForm1.Label1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
.... тут ваш "алгоритм"
end;
3. Удаляете с формы Label1;
4. В процедуру динамического создания TLabel, приведенную вами выше, добавляете строку:
l.OnMouseUp:=Label1MouseUp;

Последний раз редактировалось mihali4; 15.02.2008 в 18:07.
mihali4 вне форума Ответить с цитированием
Старый 15.02.2008, 17:14   #4
xbIm
 
Регистрация: 15.02.2008
Сообщений: 4
По умолчанию

спасибо, буду пробывать

Последний раз редактировалось xbIm; 15.02.2008 в 17:16.
xbIm вне форума Ответить с цитированием
Старый 15.02.2008, 18:08   #5
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Да, и не забудьте первой строкой в обработчике сделать:
if Button=mbRight then
...
чтобы именно на правую кнопку реагировал ваш обработчик.
mihali4 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Открытие нового окна, при нажатии на кнопку(Delphi). sergey31 Помощь студентам 2 24.05.2008 14:48
PopupMenu должно появляться только при нажатии на значок в трее правой кнопкой AidarBik Win Api 14 08.03.2008 23:51
триггерные кнопки и кнопки переключатели в DELPHI MARGO Помощь студентам 3 12.11.2007 17:35
Рисование на Canvas при нажатии левой кнопки мыши. Ветас Помощь студентам 3 11.11.2007 22:02
что нужно сделать, чтобы при нажатии кнопки запускалась процедура mager Общие вопросы Delphi 15 19.11.2006 15:02