Присвоение процедуры к 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.

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

@cotseec · 06.05.2015, 00:08

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

А обработчик события обязан быть методом формы.

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

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

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure ButtonClick (Self : TButton; Sender : TButton);
begin
  ShowMessageFmt ('Нажата кнопка %s', [Sender.Caption]);
  ShowMessageFmt ('Self = %s', [Self.Name]);
end;
 
procedure AssignButtonClick (const Button : TButton);
var Method : TMethod;
begin
  Method.Code := @ButtonClick;
  Method.Data := Button;
  Button.OnClick := TNotifyEvent (Method);
end;

...

@northener · 06.05.2015, 00:37

Не по теме:

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

не всегда, можно и

cotseec, только без обид. Я если хочу дать расширенный комментарий к кем-то высказанному утверждению, я цитирую эту фразу, но ручками удаляю из цитата ник её автора.
А то ведь получается что я объясняю что-то автору цитаты, а не автору задавшему вопрос. А зачем мне-то что-то объяснять? Я делал это утверждение основываясь на уровне знаний ТС и на изначальном дельфийском предназначении дельфийских шаблонов обработчиков событий.

@samantha · 06.05.2015, 22:35 **[ТС]**

сделал едиты на панельке enable:=false теперь он их не замечает и меняет цвет все панели, но вот у Image который тоже принадлежит панели, меняем значения этого свойства на false. При наведении курсора, панелька меняет цвет, как будто курсора нету на ней. Как быть?

Новые блоги и статьи Все статьи Все блоги /
[golang] Двоичная куча, min-heap alhaos 20.05.2026 Двоичная куча Двоичная куча — структура данных, которая всегда держит самый важный элемент наготове. Представьте очередь к хилеру в игре, и очередь из игроков в приоритете те у кого меньше. . .	[golang] Breadth-First Search alhaos 19.05.2026 BFS (Breadth-First Search) — это базовый алгоритм обхода графа в ширину, который поуровнево исследует все связанные вершины. Он начинает с выбранной точки и проверяет всех соседей, прежде чем. . .	[golang] Алгоритм «Хак Госпера» alhaos 17.05.2026 Алгоритм «Хак Госпера» Хак Госпера (Gosper's Hack) — алгоритм нахождения следующего по величине числа с тем же количеством установленных бит. Придуман Биллом Госпером в 1970-х, опубликован в. . .	Рисование бинарного древа до 6-го колена на js, svg. russiannick 17.05.2026 <svg width="335" height="240" viewBox="0 0 335 240" fill="#e5e1bb"> <style> <!]> </ style> <g id="bush"> </ g> </ svg> function fn(){ let rost;/ / высота древа let xx=165,yy=210,w=256;
FSharp: interface of module DevAlt 16.05.2026 Интерфейс модуля F# позволяет управлять доступностью членов, содержащихся в реализации модуля. По-умолчанию все члены модуля доступны: module Foo let x = 10 let boo () = printfn "boo" . . .	Хитросплетение родственных связей пантеона греческих богов. russiannick 14.05.2026 Однооконник, позволяющий узреть и изучить отдельных героев древней Греции. <!DOCTYPE html> <html lang="ru"> <head> <meta charset="UTF-8"> <meta http-equiv="X-UA-Compatible". . .	[golang] Угол между стрелками часов alhaos 12.05.2026 По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .	Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .

@samantha 0 / 0 / 3 Регистрация: 24.03.2014 Сообщений: 16
	06.05.2015, 22:35 [ТС]
	сделал едиты на панельке enable:=false теперь он их не замечает и меняет цвет все панели, но вот у Image который тоже принадлежит панели, меняем значения этого свойства на false. При наведении курсора, панелька меняет цвет, как будто курсора нету на ней. Как быть? 0