Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.007 c
7-95996
TOLTEC
2002-03-01 17:17
2002.08.29
TaskManeger


3-95729
Viacheslav
2002-08-09 12:58
2002.08.29
Хочу тоже стать мастером ......


1-95831
XPatriot
2002-08-16 17:21
2002.08.29
Работа со строками


1-95898
Punk4
2002-08-11 20:48
2002.08.29
try... finally в Delphi 5


8-95913
Николай.
2002-04-21 17:28
2002.08.29
Проигрывание MP3 файлов





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский