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

Вниз

Почему published свойство не появляется в инспекторе?   Найти похожие ветки 

 
Deus   (2003-05-11 16:07) [0]

Почему published свойство не появляется в инспекторе? Нужен перехват выхода мышки со спидбатона. Если в form.create прописать myspeedbutton.onmouseleave:=myprocedure, то всё работает. Хотелось бы таки в дизайнере это делать, бо батонов много, иногда количество/имена меняются, следить за всем тяжело - потенциальные ошибки. Код:

type
TMySpeedButton = class(tspeedButton)
private
FOnMouseLeave: TNotifyEvent;
procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
protected
public
published
property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents("Samples", [TMySpeedButton]);
end;

procedure TMySpeedButton.CMMouseLeave(var Message: TMessage);
begin
inherited;
if Assigned(FOnMouseLeave) then
FOnMouseLeave(Self);
end;

end.


 
Deus   (2003-05-12 14:26) [1]

Злравствуйте всем! Так таки кто-нибудь что-нибудь скажет, вопрос, вероятно, очень простой. Хоть чайником обзовите, да пошлите rtfm. Только, плиз, скажите к каким конретно f***ing manual.


 
MBo ©   (2003-05-12 15:44) [2]

могу предположить, что ты не перекомпилировал пакет, в котором установлен твой компонент (скорее всего, dclusr60 или как он там у тебя в D6 называется)



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

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

Наверх




Память: 0.47 MB
Время: 0.013 c
1-70209
Marina_S
2003-05-10 21:27
2003.05.22
Как сделать так, чтобы программа запускалась не с главной формы,


3-70151
Igor Mish
2003-05-01 20:44
2003.05.22
Что такое CalcOp1 в Rave ?


1-70351
Tatiana
2003-05-08 10:13
2003.05.22
Chto znachit: is not a valid floating point value .


1-70204
Sensor
2003-05-04 23:59
2003.05.22
Работа с реестром


1-70391
Seldon
2003-05-09 18:29
2003.05.22
Подсветка синтаксиса в RichEdit