Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

28th
Фев

Как поставить OnMouseDown для создаваемых Image

Posted by maloy under Delphi, Архив

Zeraim

В общем если выбрать компоненты в структуре и поставить какое-нибудь событие, то оно будет срабатывать для всех выбранных компонентов. А если я создаю компоненты по ходу работы программы, как это сделать ?

mutabor

Там ты событию формы назначаешь. Вообщем так нужно:

Код:

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

var
  Form1: TForm1;
  MyImage: TImage;

implementation

...
MyImage:=TImage.Create(Form1);
MyImage.Parent:=Form1;
MyImage.OnClick:=ImgClick;
...

procedure TForm1.ImgClick(Sender: TObject);
begin
  //тут код на событие
end;

тема на форуме от 2009 года