Как да се създаде програмно процедурата за събитието?

Учителю, кажете ми как да програмно (!) Задаване на процедурата, която ще се нарича за конкретно събитие? Аз го обясня просто: в раздела Събития в инспектора на обекта, всеки случай правото на избор и да изберете това, което трябва да се обработи, и как да се направи един и същ софтуер?

Т.е. нещо като:
Control.OnMouseClick: = procedure_name (но не съвсем, защото Delphi не е запис хавала)

> Procedure_name (но не съвсем, тъй като Делфи
> Запис не е хавала)

Не само процедури и методи на обекти.

процедура кликване на мишката (Sender: TObject);
.
Control.OnMouseClick: = кликване на мишката;

Мога да напиша пост за пример? Разбирам bіstree

Свободна практика - не работи, вече съм написал.

процедура TForm1. Кликване на мишката (Sender: TObject);

.
Control.OnMouseClick: = Form1.MouseClick;
// или просто: = кликване на мишката вътре методи Form1

> Елка (05.12.02 12:08)
> Свободна практика - не работи, вече съм написал.

Какво искаш да кажеш, не работи?

процедура TForm1.FormCreate (Sender: TObject);
започвам
BTN: = TButton.Create (Form1);
btn.Parent: = Form1;
btn.Left: = 0;
btn.Top:=0;
btn.OnClick: = Button1Click;
приключи;

процедура TForm1.Button1Click (Sender: TObject);
започвам
Form1.Grid.Cells [0,0]: = "000000";
приключи;

Работата е там, че моят предшественик компонент няма такова събитие, което имам нужда да се определят

> Елка (05.12.02 12:17)
> Работата е там, че моят предшественик, няма такова компонент
> Събитие, че трябва да се определи

Може би след това събитие е първо да се идентифицират? :-)

Е, това е ясно. И че "не работи" :-)

тип
TForm1 = клас (TForm)
процедура FormCreate (Sender: TObject);
частен

обществен
процедура ControlClick (Sender: TObject); // Това ще бъде вашият метод
приключи;

Var
Form1: TForm1;

процедура TForm1.ControlClick (Sender: TObject);
започвам
// Какво ще правиш в метода
приключи;

процедура TForm1.FormCreate (Sender: TObject);
започвам
MyControl: = TMyContol.Create (самостоятелно);
MyControl.Click:= Form1.ControlClick
приключи;