Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 4.60/25: Рейтинг темы: голосов - 25, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 03.04.2011
Сообщений: 49

Общий OnClick

27.01.2014, 22:54. Показов 5004. Ответов 31
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте, друзья. Я никак не могу понять, как можно сделать общий Onclick? Куда написать код, если и получится?
В Java создается просто Listener и приписывается к кнопкам. А тут по отдельности надо каждой кнопке приписывать код?
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
27.01.2014, 22:54
Ответы с готовыми решениями:

Общий обработчик события OnClick для некоторых CheckBox-ов
Есть у меня значит 33 чекбокса, есть попап-меню. Есть 2 обработчика: N5Click(клик по итему с попап-меню) и chk1Click. procedure...

Написать для трех кнопок общий обработчик OnClick для вывода, скрытия/отображения и изменения цвета текста
На форме Form_Lb расположена пустая метка Lb_txt с текстом и три кнопки класса TButton с надписями:<Delphi>, <Цвет> и...

Onclick
Добрый день! Говоря в кратце - есть форма. На ней TImage. Надо считывать клики по форме(соответственно по TImage). Прописывал в Onclick...

31
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33462 / 21561 / 8249
Регистрация: 22.10.2011
Сообщений: 37,017
Записей в блоге: 12
28.01.2014, 19:18
Студворк — интернет-сервис помощи студентам
Ты покажи, что за твой TPngButton (лучше - в другой теме), откуда ж я знаю, что он умеет, а что - нет.
0
 Аватар для NT SERVICE
122 / 120 / 41
Регистрация: 27.01.2013
Сообщений: 546
28.01.2014, 19:24
Цитата Сообщение от UI Посмотреть сообщение
Ты покажи, что за твой TPngButton
А у его закрытый код(хотя бесплатный), но если посмотреть на инспектор объектов - это
тот - же TImage слегка доработанный под кнопку.
Цитата Сообщение от UI Посмотреть сообщение
что он умеет, а что - нет.
Как, загрузить?
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33462 / 21561 / 8249
Регистрация: 22.10.2011
Сообщений: 37,017
Записей в блоге: 12
28.01.2014, 19:27
Хотя бы само описание класса выдери из исходника и покажи, должно стать понятно, что к чему...

(тему потом разделю)
0
 Аватар для NT SERVICE
122 / 120 / 41
Регистрация: 27.01.2013
Сообщений: 546
28.01.2014, 19:31
Цитата Сообщение от UI Посмотреть сообщение
описание класса выдери из исходника и покажи
Как, pas- файлов нет?
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33462 / 21561 / 8249
Регистрация: 22.10.2011
Сообщений: 37,017
Записей в блоге: 12
28.01.2014, 19:34
Ну, тогда как ты хочешь, чтобы я тебе сказал, что можно, а чего нельзя сделать? DCU есть? Можешь выложить? или скажи, откуда качал...
0
 Аватар для NT SERVICE
122 / 120 / 41
Регистрация: 27.01.2013
Сообщений: 546
28.01.2014, 19:45
Вот весь компонент:
Вложения
Тип файла: rar PNGBTN.rar (956.7 Кб, 17 просмотров)
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33462 / 21561 / 8249
Регистрация: 22.10.2011
Сообщений: 37,017
Записей в блоге: 12
28.01.2014, 20:29
На мою версию Дельфи он не ставится. Но это не столь важно. Просто попробуй написать:
Delphi
1
2
3
4
type
  TPngButton = class(PNGButton.TPngButton)
    // <--- Вот сюда поставь курсор, и нажми Ctrl+пробел
  end;
, и посмотри, есть ли среди методов что-то типа Click, чтобы был перегружаемый? Если есть - значит, можно сделать "перехват", нет - так нет...
1
Житель Земли
 Аватар для DenNik
3004 / 3026 / 390
Регистрация: 26.07.2011
Сообщений: 11,465
Записей в блоге: 1
28.01.2014, 20:40
Цитата Сообщение от UI Посмотреть сообщение
есть ли среди методов что-то типа Click, чтобы был перегружаемый?
есть
DjTurxan, делаешь так
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
type
 
  ...
 
  TPngButton = class(PNGButton.TPNGButton)
  protected
    procedure Click; override;
  end;
 
implementation
 
...
 
{ TPngButton }
 
procedure TPngButton.Click;
begin
  inherited;
  // необходимые тебе действия
end;
1
Житель Земли
 Аватар для DenNik
3004 / 3026 / 390
Регистрация: 26.07.2011
Сообщений: 11,465
Записей в блоге: 1
28.01.2014, 20:47
Цитата Сообщение от UI Посмотреть сообщение
На мою версию Дельфи он не ставится
кстати, а почему? на Делфи 7 поставился, а на 2010 не хочет. или новые версии не понимают DCU?
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33462 / 21561 / 8249
Регистрация: 22.10.2011
Сообщений: 37,017
Записей в блоге: 12
28.01.2014, 20:47
DenNik, это не DjTurxan-у, а NT SERVICE-у надо было... А как это сделать - я написал еще в 19 посте, весь вопрос - в том, действительно ли там этот метод ЕСТЬ?
0
Житель Земли
 Аватар для DenNik
3004 / 3026 / 390
Регистрация: 26.07.2011
Сообщений: 11,465
Записей в блоге: 1
28.01.2014, 20:49
возможно, компонент старый и компилировался ранними версиями?
0
 Аватар для NT SERVICE
122 / 120 / 41
Регистрация: 27.01.2013
Сообщений: 546
28.01.2014, 21:07
Цитата Сообщение от DenNik Посмотреть сообщение
возможно, компонент
Oн для D7

DenNik, Спасибо работает.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
28.01.2014, 21:07

onClick onDoubleClick
Есть форма, на которой при использовании TForm2.Image2DblClick(Sender: TObject) выводится одно сообщение, а при использовании...

Caption и OnClick
Делаю програму шутку суть в том, что есть форма, на которой label. Форма растянута по экрану, лейбл по форме нужно сделать так, что...

WebBrowser и onClick
Здравствуйте. Есть форма, а на форме есть Webbrowser. Как сделать что бы после нажатия на Webbrowser в любом месте, форма закрывалась? ...

StringGrid Onclick
Можно ли вызвать событие StringGrid.OnClick ? Я пытался procedure TForm1.SGMouseUp(Sender: TObject; Button: TMouseButton; ...

OnClick кнопки
Всем привет. В наличии 10 кнопок, у каждой тэг 1..10, написал в событии OnClick действия, соответственно кнопку определяю по тэгу,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
32
Ответ Создать тему
Новые блоги и статьи
Термопринтер QR701
Argus19 03.08.2026
Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .
Создание формы заимствованного документа
Maks 03.08.2026
Задача: Необходимо создать собственную форму заимствованного документа. На форме должен быть реквизит "Покупатель", а также табличная часть со следующими реквизитами: - Расчетный счет покупателя. . .
Задача предоставления скидок покупателям
Maks 03.08.2026
Задача: В документе "Продажи" необходимо реализовать функционал предоставления скидок покупателям. Скидка должна автоматически рассчитываться и подставляться в соответствующее поле при выборе. . .
Почему SEO не начинается с ключевых слов: что проверить до написания текстов
Neotwalker 01.08.2026
Когда владельцу сайта предлагают заняться SEO, первым шагом часто становится сбор запросов и написание текстов. Логика кажется понятной: 1. Находим ключевые слова. 2. Добавляем их на. . .
Знание — сила: Доктрина интенциональности знаний, углубление в формулу
Hrethgir 01.08.2026
https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11957&stc=1&d=1785567302 Знаменитый афоризм Фрэнсиса Бэкона «Знание — сила» (Scientia potentia est) в массовой культуре принято понимать. . .
SUNO Ai - Река Без Дна
zorxor 31.07.2026
Автор стихотворения - астрофизик Марина Катыс Ссылка на сгенерированную музыкальную композицию: https:/ / suno. com/ song/ 6f6e5464-b290-4650-be6c-44c85f8d8013 Я говорю, что Время- как вода течет. . .
Из невошедшего на форум (диалог с ИИ-гугла)
zorxor 29.07.2026
А вот, что интересно, сказал мне ИИ-гугла: Этот текст — эмоциональный пост пользователя под ником zorxor на интернет-форуме (вероятно, посвященном мистике, непознанному или альтернативной науке). . . .
Был праздник вчера, а я и не знал.
kumehtar 28.07.2026
27. 07. 2026г. Intel Core 2 Duo исполнилось 20 лет Салют, шампанское, овации! :drink:
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru