Скачать: CL | DM;

непонятки с 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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c