Форум: "Основная";
Текущий архив: 2002.08.29;
Скачать: [xml.tar.bz2];
Вниз
непонятки с 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 вся ветка
Форум: "Основная";
Текущий архив: 2002.08.29;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c
