Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Методы компонентов [D7]

Карлмаркс © (2005-05-20 03:25:00)
Привет!
Допустим, я создал в runtime компонент. как задать ему метод? процедуры ведь не катят, там надо procedure of object.. Но эти of object какие-то странные. где их взять?? Насколько я понял, их можно только копировать от уже созданных объектов? или можно как-то ещё?

Digitman (2005-05-20 09:09:00) [1]

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

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

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

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

..

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

Карлмаркс (2005-05-20 07:21:00) [2]
Да, действительно, с формой я как-то не догадался.. :)
спасибо, буду пробовать!

Defunct (2005-05-20 04:57:00) [3]
> как задать ему метод?
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 включить назначаемые методы?

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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »