Переопределение события OnClick в динамическом объекте-компоненте

[CyberJohn]

У меня есть свой класс TMyImage = class(TImage),
В событии FormCreate главной формы создаю в цикле несколько объектов своего класса и отображаю их на форме. КАК переопределить событие OnClick в моем классе,чтобы делать определенные действия при нажатии на каждый TMyImage ??

[_Engine_]

В OnClick проверять от какого компонента поступило сообщение и в зависимости от этого выполнять действия. Это?
Или тебе надо это:

with TMyImage.Create(self) do
begin
  ...
  OnClick := MyClick;
end;

[mihali4]

Я бы сделал примерно так:

procedure TForm1.FormCreate(Sender: TObject);
begin
  MyImage1:=TMyImage.Create(self);
  MyImage1.Top:=100;
  MyImage1.Left:=100;
  MyImage1.Width:=121;
  MyImage1.Parent:=self;
  MyImage1.OnClick:= //а тут пишем имя процедуры-обработчика
end;

[CyberJohn]

Зачет вам кодеры!!!!!!! все пашет норм!!!!!!!!!! только помогите разобраться! мне нужна своя процедура обработчег в моем классе! там какой то свой тип должен идти для OnClick чтобы так лихо присваивать свойство! а пока сделал следующим образом:
- поместил на форму TImage из палитры
- Определил для нее обработчег нажатия мыши
- И присвоил динамически своим объектам этот обработчег
- при нажатии на него showmessage(IntToStr(TMyImage(sende r).num));

[mihali4]

мне нужна своя процедура-обработчик в моем классе

Вы все сделали верно - это самый простой путь.
Кто вам теперь мешает переименовать ее в

procedure TForm1.MyImage1Click(Sender: TObject);
begin
...
end;

У вас же не компонент, а класс - придется прописывать вручную каждый обработчик.

[Qweety]

делаю,вроде, всё так как здесь описано, но не получается, выводится ошибка при компилировании. Может чтото упустил из виду.
Надо создать динамически кнопки с одинаковым обработчиком события. Код написан в такой последовательности:

var
  btns : TButton;
..........
procedure TForm1.FormCreate(Sender: TObject);
begin
 btns:=TButton.Create(Form1);
 btns.Parent:=Form1;
 //-----------------
 btns.OnClick:=newonclick;//ошибка 
end;
........
procedure TForm1.newonclick(Sender: TObject);//ошибка
var s:string;
begin
  s:=inttostr(btns.tag);
  //-------------
end;

Собственно ошибка (одинаковая в обоих случаях): undeclared identifier 'newonclick'.

[Пепел Феникса]

а вы в разделе interface описали её?
то есть надо еще это!

type
  TForm1 = class(TForm)
    procedure newonclick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

[Qweety]

вопрос как рукой сняло))
спасибо.
Внимательней надо быть...


Возник еще вопрос.
Почему когда одна переменная типа Кнопка, создается динамически много раз в цикле
и её свойствам Caption и Tag присваивается номер итерации,
то в итоге Caption для всех кнопок разный, а вот Tag один и тот же и равен последней итерации?

[heart]

раз уж на то пошло, у самого возникла такая проблема и выше приведенный код не работал:

procedure TForm1.FormCreate(Sender: TObject);
begin
 btns:=TButton.Create(Form1);
 btns.Parent:=Form1;
 //-----------------
 btns.OnClick:=Form1.newonclick;//ошибка 
end;

Вот так правильнее.