непонятки с TNotifyEvent

← →
Yaro (2002-08-16 17:00) [0]

Люди! Что за фигня тут? пишу следующее:

procedure OnTemp(Sender: TObject);
begin
...
end;

...

var temp: TNotifyEvent;

...

temp := OnTemp; //пишет ОШИБКА - Incompatible types:
//method pointer and regular procedure

помогите найти ошибку - хоть убей - не вижу :(

← →
Skier (2002-08-16 17:06) [1]

>Yaro
procedure OnTemp(Sender: TObject); должна быть объявлена
в классе.

← →
Yaro (2002-08-16 17:19) [2]

тоесть... побробнее и с примером, пожалуйста...

Дело, собственной вот в чем -
пишу невизуальный компонент, в него передается MaskEdit, а от с ним выполняет всякие махинации. Короче передавать-то передает, описываю в секции private _MaskEdit: TMaskEdit;
Все, вроде как, хорошо, но мне надо поставить обработчик события на этот MaskEdit. как это сделать?

← →
Skier (2002-08-16 17:26) [3]

>Yaro

Ежели я всё правильно понял, то
примерно так :

TYaroComponent = class(TComponent) private FMaskEdit : TMaskEdit; procedure MaskEditChange(Sender : TObject); procedure SetMaskEdit(const Value: TMaskEdit); public constructor Create(AOwner : TComponent); override; property MaskEdit : TMaskEdit read FMaskEdit write SetMaskEdit; end; //TYaroComponent { TYaroComponent } constructor TYaroComponent.Create(AOwner : TComponent); begin inherited Create(AOwner); FMaskEdit := nil; end; procedure TYaroComponent.MaskEditChange(Sender: TObject); begin //your code goes here... end; procedure TYaroComponent.SetMaskEdit(const Value: TMaskEdit); begin FMaskEdit := Value; if FMaskEdit <> nil then FMaskEdit.OnChange := MaskEditChange; end;

← →
Yaro (2002-08-16 18:32) [4]

Большое спасибо! Вы очень помогли мне!

непонятки с TNotifyEvent Найти похожие ветки