Как привязать функцию к классу?

[Lesha]

ваш класс TSimple не совсем верный

давайте возмем то что уже есть например TLabel

и включим в него пользовательскую процедуру и поставим ее на событие OnClick

TLabel2 = class(TLabel);
  TLabel = class(TLabel2)
    constructor Create(own: TComponent); override;
    procedure f1(Sender: TObject);
  end;

 {...}
 
constructor TLabel.Create(own: TComponent);
begin
  inherited Create(own);
  OnClick:=f1;
end;

procedure TLabel.f1(Sender: TObject);
begin
  ShowMessage('нажатие процедура F1');
end;

помимо обычного конструктора который изменяет класс "автоматичеки" при создании,
также можно написать отдельный метод, в ходе вызова котрого будет изменение событий и свойств класса

пример

[minamoto]

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

Вы скриптовый язык с компилируемым не путайте. А то небо к земле притянете ещё чего доброго.

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

[minamoto]

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

ваш класс TSimple не совсем верный

давайте возмем то что уже есть например TLabel

и включим в него пользовательскую процедуру и поставим ее на событие OnClick

TLabel2 = class(TLabel);
  TLabel = class(TLabel2)
    constructor Create(own: TComponent); override;
    procedure f1(Sender: TObject);
  end;

 {...}
 
constructor TLabel.Create(own: TComponent);
begin
  inherited Create(own);
  OnClick:=f1;
end;

procedure TLabel.f1(Sender: TObject);
begin
  ShowMessage('нажатие процедура F1');
end;

помимо обычного конструктора который изменяет класс "автоматичеки" при создании,
также можно написать отдельный метод, в ходе вызова котрого будет изменение событий и свойств класса

пример

Если я рправильно понял, то функцию f1 обязательно надо вставлять в класс, что не есть хорошо. Я от эхтого наобонрот хочу уйти.

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

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

[minamoto]

Сообщение от Пепел Феникса

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

Это я знаю, а как увидеть поля вызвавшего в исполняемой функции, только аргументом?

[phomm]

У Вас даже в примере прописано

function f3(){trace(this.name)}

, т.е. Вы передаёте "This" вот и получается, что надо передавать параметром(аргументом, как Вы сказали), выше mss привёл, как надо сделать. Если хочется ещё заколбасить посильнее, то гуглите "делегирование в дельфи" - можно будет написать класс-носитель классовых методов и в другие классы для обработки разного действа подставлять этих делегатов.

[minamoto]

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

У Вас даже в примере прописано , т.е. Вы передаёте "This" вот и получается, что надо передавать параметром(аргументом, как Вы сказали), выше mss привёл, как надо сделать. Если хочется ещё заколбасить посильнее, то гуглите "делегирование в дельфи" - можно будет написать класс-носитель классовых методов и в другие классы для обработки разного действа подставлять этих делегатов.

Хорошо, изучу делегирование. Я уже сделал свой велосипед по вашим примерам. Почти так как я хотел. Спасибо вам огромное.

На счет примера, я никуда ничего не передаю. Trace(this.name) это вывод на экран сообщения. trace() - это зарезервированная функция вывода actionsript. this = self, когда создаешь объект. Только вот this в actionscript всегда присутствует в созданном объекте, а в дельфи self пропадает в других функциях текущего класса.

смысл функции f3 в том, что она видит свойства объекта. А в дельфи так сразу не получится сделать.

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

а в дельфи self пропадает в других функциях текущего класса.

повторяю еще раз, кликните двойным по форме, и в обработчике появившемсся введите Self.
надеюсь это не сюрприз для вас.
имеем:
Self->объект, который зарегистрироваллся на событие
Sender->объект, который вызвал событие.
в Делфи просто принято иначе.

[DenNik2006]

а не проще ли разобрать Борландовские исходники и посмотреть, как там реализуется присвоение обработчика, например событию кнопки OnMouseDown? Там же куча параметров передается!

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

Там же куча параметров передается!

какая куча?
function of object;
состоит из двух частей, указателя Self, и указателя Func.
и все.

тем более это поддерживается компилятором.