Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.11.26;
Скачать: CL | DM;

Вниз

Событие   Найти похожие ветки 

 
Term ©   (2006-11-07 16:24) [0]

пытаюсь создать событие

TOnSaveToFile=procedure(Sender:TObject;var FileName:string) of object;

TRtfReport=class(TAbstractReport)
 private
  fOnSaveToFile:TOnSaveToFile;
  ..................
 public
 property OnSaveToFile:TOnSaveToFile read fOnSaveToFile write fOnSaveToFile;
 procedure Print(const PrinterName:string=""); override;
 ...
 end;
далее в процедуре

procedure Print(const PrinterName:string="");есть вызов

if Assigned(fOnSaveToFile) then fOnSaveToFile(Self,FileName);

добавляю процедуру
procedure OnSavToFile(Sender:TObject;var FileName:string);

потом когда пытаюсь присвоить событию обработчик

 TRtfReport(rpt).OnSaveToFile:=OnSavToFile;
получаю матюки при попытке компиляции
[Pascal Error] prn_func.pas(105): E2009 Incompatible types: "method pointer and regular procedure"


 
Плохиш ©   (2006-11-07 16:27) [1]


> добавляю процедуру
> procedure OnSavToFile(Sender:TObject;var FileName:string);

Куда добавляешь? Она должна быть методом класса.


 
Сергей М. ©   (2006-11-07 16:27) [2]

Попытайся понять, что значит эта "матюкальная" фраза


 
MetalFan ©   (2006-11-07 17:04) [3]


> TOnSaveToFile=procedure(Sender:TObject;var FileName:string)
> of object;


напиши как

TOnSaveToFile=procedure(Sender:TObject;var FileName:string);

))


 
Term ©   (2006-11-07 17:18) [4]

тогда наверное надо объявить так
TOnSaveToFile=procedure(var FileName:string);


 
Плохиш ©   (2006-11-07 17:26) [5]


> Term ©   (07.11.06 17:18) [4]
> тогда наверное надо объявить так

Вообще-то тебе, как создателю программы, должно быть виднее.



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

Текущий архив: 2006.11.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.076 c
2-1162971553
312kbps
2006-11-08 10:39
2006.11.26
Уменьшить размер картинки !


2-1162884249
312kbps
2006-11-07 10:24
2006.11.26
Image SQL2000


3-1159097963
Antoxa2005
2006-09-24 15:39
2006.11.26
Подскажите, а как "добраться" до примечаний полей и таблиц в FB.


2-1161856009
Khabibulin
2006-10-26 13:46
2006.11.26
TCalendar


2-1163097167
kassel
2006-11-09 21:32
2006.11.26
ПЛИЗ HELP!!!