Методы компонентов

← →
Карлмаркс (2005-05-20 03:25) [0]

Привет!
Допустим, я создал в runtime компонент. как задать ему метод? процедуры ведь не катят, там надо procedure of object.. Но эти of object какие-то странные. где их взять?? Насколько я понял, их можно только копировать от уже созданных объектов? или можно как-то ещё?

← →
Defunct © (2005-05-20 04:57) [1]

> как задать ему метод?
with TSomeComponent.Create(...) do
OnSomething := DoSomething;

> Но эти of object какие-то странные. где их взять??
Описать например в шапке формы.

TForm1 = class(TForm)
...
...
private
procedure MyClick( Sender: TObject); // <<-- Вот и требуемый метод
...
end;

Если компонент твой тогда ты волен написать:

TMyProc = procedure;

TMyComponent = class(TComponent)
..
property OnSomething: TMyProc ....
end;

> или можно как-то ещё?
можно, но не нужно.

Тебе лень в описании TForm1 включить назначаемые методы?

> Насколько я понял, их можно только копировать от уже созданных объектов?

А ты хотел чтобы программа также динамически создавала за тебя все обработчики? Конечно, назначаемые методы должны быть где-то заранее описаны.

← →
Карлмаркс (2005-05-20 07:21) [2]

Да, действительно, с формой я как-то не догадался.. :)
спасибо, буду пробовать!

> процедуры ведь не катят

и процедуры "катят"

procedure MyEventHandler(..);
begin
..//здесь можно все, но нельзя обращаться к Self, если Data:nil (см.ниже) !
end;

var //const
Method: TMethod = (Code: @MyEventHandler; Data:nil);

..

with TSomeComponent.Create(...) do
OnSomething := TSomeComponentEvent(Method);

Методы компонентов Найти похожие ветки