Создание динамического TNotifyEvent.

[alextrof94]

Что написать? Где написать? (Когда написать?)

Есть тип кнопки с прозрачностью, для рисования таких на канве, как ей устроить подмену процедуры, которую обычно делают при динамическом объявлении кнопок? (типа D_Button.OnClick:=MyProcedureForBut tons; )

type tmybutton = record
public
  name, texture, caption:string; //имя, текстура, метка
  pngN, pngM, pngP, pngO:tpngimage; //фон (Нормальный, наведенный, нажатый, выкл)
  left, top, width, height, n:integer;
  {click:tnotifyevent; думал как обычный объект объявлять, но И-нете пишут, что то с указателями и прочей лабудой, в которой почти не разбираюсь.}
  procedure create(aname, atexture: string; awidth, aheight:integer); //создание (имя кнопки, текстура, ширина, высота)
  procedure resize(width, height:integer); //изменение размера
  procedure free;
end;

[eval]

ну и зачем тут рекорд?

[alextrof94]

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

ну и зачем тут рекорд?

А хз. Есть толк от того чтобы объявлять как класс? Собственно я никак не могу найти разницу между =class() и =record, помимо того, что класс может унаследовать свойства предка.

[alextrof94]

Даже спрошу иначе... Как будет правильней, а не по быдлокодерски, как у меня?)

[evg_m]

как ей устроить подмену процедуры, которую обычно делают при динамическом объявлении кнопок? (типа D_Button.OnClick:=MyProcedureForBut tons; )

Это не подмена процедуры. А такое же точно задание значения свойству(или переменной) как и в случае D_button.Width:=20; только лишь с той разницей что тип свойства специфический (процедура-метод с ЗАДАННЫМ набором параметров).

var 
  MyEvent: TNotifyEvent;  // процедура-метод должна иметь заданный набор параметров TNotifyEvent =procedure(sender: TObject) of object;

MyEvent:=D_button.OnClick;

Значит в record (или класс) имеет место быть соответствующая переменная (поле) которую можно задать.

MyEvent:=.....;

и после этого использовать для вызова соответствующей процедуры

MyEvent(....);// если процедура не задана получим AV
if assigned(MyEvent) then MyEvent(.....); // с проверкой того что такая процедура задана

[alextrof94]

А как допустим не tobject в него передавать, а просто tpoint? Т.е. как поменять набор параметров?

[eval]

Собственно я никак не могу найти разницу между =class() и =record

а где искали?

[alextrof94]

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

а где искали?

в голове. Имеется ввиду не прямой смысл слова, а косвенный, когда мы размышляем - мы ищем ответ, вот его я не смог найти.

[evg_m]

А как допустим не tobject в него передавать, а просто tpoint? Т.е. как поменять набор параметров?

как обычно задать тип c НУЖНЫМИ параметрами и использовать

type TNotifyEventRecord =procedure(sender: TPoint);

[evg_m]

type 
  TMyclass =class
  private
  protected
    procedure SetData(r: integer);
  public
    property width: integer;
  end;

  TMyRecord =record
    procedure SetData(r: integer);
  public
    property width: integer;
  end;

c record классами никогда не работал, т.ч. могу и ошибаться.
Но информации к размышлению думаю достаточно.