Присвоение процедуры к event динамически созданному объекту

@samantha · Регистрация: 24.03.2014

Студворк — интернет-сервис помощи студентам

Вопрос в следующем
Имеется динамически создаваемая Panel'ка. Нужно присвоить(Events:Onmousemove) этой панельке в момент создания процедурку которая будет изменять размер этой панели. Панелек много!
Собственно вот момент создания:

Delphi
1
2
3
4
5
6
7
 Panel:=TPanel.Create(MainForm);
      Panel.Parent:=MainForm.Box;
      Panel.Height:=86;
      Panel.Width:=278;
      Panel.Top:=PanelTopBox;
      Panel.Left:=PanelLeftBox;
      Panel.OnMouseMove:=MouseMove;

Вот тут я уже не уверен в правильности кода

Delphi
1
2
3
4
5
6
procedure MouseMove(Sender: TObject);
var
Panel:TPanel;
begin
  Panel.Color:=clred;
end;

Тестить пробовал выдаёт ошибку: method pointer and regular procedure.

Мне бы просто понять как к евенту динамического объекта присвоить процедуру. Зарание спасибо!

@FIL · 01.05.2015, 20:03

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

Мне бы просто понять как к евенту динамического объекта присвоить процедуру.

Присвоена она правильно. Сама процедура должна иметь правильный формат.
Создай аналогичную процедуру в дизайнере и посмотри, как это должно выглядеть.

@samantha · 01.05.2015, 22:23 **[ТС]**

Та же самая ошибка

Delphi
1
2
3
4
5
6
7
procedure Mousemove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
Panel:TPanel;
begin
  Panel.Color:=clred;
end;

@northener · 01.05.2015, 22:52

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

Та же самая ошибка

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

Создай аналогичную процедуру в дизайнере и посмотри, как это должно выглядеть.

Плохо посмотрел. Одно отличие так и не заметил.

@samantha · 01.05.2015, 22:58 **[ТС]**

Это процендурка лежит в отдельном юните, вместе с процедурой создание панелек. Но все обьекты создаются в MainForm. Вот так тоже ошибка, и переименование процедуры OnMouseMove не дало эффекта.

Данный код выдаёт такую же ошибку.

Delphi
1
2
3
4
5
6
7
procedure MainForm.MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
Panel:TPanel;
begin
  Panel.Color:=clred;
end;

@northener · 01.05.2015, 23:04

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

Это процендурка лежит в отдельном юните

Метод формы не может быть описан вне описания класса формы. А обработчик события обязан быть методом формы. Так что идея с процедуркой в другом юните явно дурацкая.

@samantha · 01.05.2015, 23:20 **[ТС]**

Объявил её в MainForm, процедура создания плитки находиться в отдельном юните(они отлично создаются, всё прекрасно работает). Теперь значит всё создаётся правильно но при наведении вылезает ошибка

Delphi
1
2
3
4
5
6
7
procedure TMainForm.MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
Panel:TPanel;
begin
  Panel.Color:=clred;
end;

@northener · 01.05.2015, 23:29

Delphi
1
2
3
4
5
procedure TMainForm.MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  (Sender as TPanel).Color:=clred;
end;

@FIL · 01.05.2015, 23:36

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

Это процендурка лежит в отдельном юните, вместе с процедурой создание панелек.

Эту процедуру можно сделать методом класса Панелей. Тогда ее можно будет разместить в том же юните.

@samantha · 01.05.2015, 23:54 **[ТС]**

Всё работает, но почему то не меняет цвет, заменил параметр на ширину она изменятся.

Verevkin · 02.05.2015, 00:54

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

Та же самая ошибка

обработчик должен быть методом класса. например, формы твоей.

Delphi
1
2
3
4
5
6
7
procedure TMainForm.Mousemove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
Panel:TPanel;
begin
  Panel.Color:=clred;
end;

Добавлено через 2 минуты

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

Всё работает, но почему то не меняет цвет

Delphi
1
2
3
4
5
6
7
8
      Panel:=TPanel.Create(MainForm);
      Panel.Parent:=MainForm.Box;
      Panel.Height:=86;
      Panel.Width:=278;
      Panel.Top:=PanelTopBox;
      Panel.Left:=PanelLeftBox;
      Panel.ParentBackground:= false; // <-----------
      Panel.OnMouseMove:=MouseMove;

@northener · 02.05.2015, 01:54

Не по теме:

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

Эту процедуру можно сделать методом класса Панелей. Тогда ее можно будет разместить в том же юните.

Скорее всего пока "не взлетит". :)

@samantha · 02.05.2015, 13:10 **[ТС]**

И ещё один вопрос, на этой панельке находятся едиты и имайдж. Если мы ровно на панельку наводим, то она изменяется, но вот если навести на Edit на этой панели с ней ничего не происходит. Можно ли сделать компонент прозрачным для наведения мыши. Или как сделать чтобы при наведении на едит повесить евент, при наведении изметь размер панельки.

Verevkin · 02.05.2015, 13:25

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

Или как сделать чтобы при наведении на едит

у меня тут в хэлпе:

@samantha · 02.05.2015, 13:28 **[ТС]**

Прости, я не много не понял что ты имеешь ввиду

Verevkin · 02.05.2015, 13:36

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

я не много не понял что ты имеешь ввиду

в таком случае, больше ничем помочь не могу.
как поймёшь – заходи, продолжим.

@samantha · 05.05.2015, 22:32 **[ТС]**

Можно ли рассматривать панель как целостную структуру в независимости что в ней лежит. А то допустим если и едитам и панельки одинаковые обработчики, то на границе едита панель будет менять цвет в исходное сосотояние

Добавлено через 6 минут
Разобрался если едиту присвоить и move и enter всё будет работать

Добавлено через 4 минуты
Но как сделать тоже самое для динамических обьектов я понять не могу

@FIL · 05.05.2015, 23:11

Для решения твоей задачи надо отслеживать события CM_MOUSEENTER и CM_MOUSELEAVE панелей.
И при возникновении события CM_MOUSELEAVE проверять, находится ли мышь внутри области панели или нет, и исходя из этого устанавливать нужный цвет.

@samantha · 05.05.2015, 23:43 **[ТС]**

Verevkin, FIL, а есть литературка по этой теме, а то как то покопался и нечего толкового не нашёл.

Verevkin · 05.05.2015, 23:55

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

есть литературка по этой теме, а то как то покопался и нечего толкового не нашёл.

странное сообщение.
я не знаю, как на него реагировать.

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@samantha 0 / 0 / 3 Регистрация: 24.03.2014 Сообщений: 16
	01.05.2015, 23:54 [ТС]
	Всё работает, но почему то не меняет цвет, заменил параметр на ширину она изменятся. 0

@samantha 0 / 0 / 3 Регистрация: 24.03.2014 Сообщений: 16
	02.05.2015, 13:10 [ТС]
	И ещё один вопрос, на этой панельке находятся едиты и имайдж. Если мы ровно на панельку наводим, то она изменяется, но вот если навести на Edit на этой панели с ней ничего не происходит. Можно ли сделать компонент прозрачным для наведения мыши. Или как сделать чтобы при наведении на едит повесить евент, при наведении изметь размер панельки. 0

@samantha 0 / 0 / 3 Регистрация: 24.03.2014 Сообщений: 16
	02.05.2015, 13:28 [ТС]
	Прости, я не много не понял что ты имеешь ввиду 0

@samantha 0 / 0 / 3 Регистрация: 24.03.2014 Сообщений: 16
	05.05.2015, 22:32 [ТС]
	Можно ли рассматривать панель как целостную структуру в независимости что в ней лежит. А то допустим если и едитам и панельки одинаковые обработчики, то на границе едита панель будет менять цвет в исходное сосотояние Добавлено через 6 минут Разобрался если едиту присвоить и move и enter всё будет работать Добавлено через 4 минуты Но как сделать тоже самое для динамических обьектов я понять не могу 0

@FIL Модератор 3492 / 2614 / 742 Регистрация: 19.09.2012 Сообщений: 7,977
	05.05.2015, 23:11
	Для решения твоей задачи надо отслеживать события CM_MOUSEENTER и CM_MOUSELEAVE панелей. И при возникновении события CM_MOUSELEAVE проверять, находится ли мышь внутри области панели или нет, и исходя из этого устанавливать нужный цвет. 0

@samantha 0 / 0 / 3 Регистрация: 24.03.2014 Сообщений: 16
	05.05.2015, 23:43 [ТС]
	Verevkin, FIL, а есть литературка по этой теме, а то как то покопался и нечего толкового не нашёл. 0