Главная страница
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.015 c
1-70248
CAMOBAP
2003-05-12 10:24
2003.05.22
Как узнать что курсор мыши находится над компонентом?


9-70077
Pavel_s
2002-12-11 14:46
2003.05.22
Лучшая книга по OpenGL


14-70456
Fable
2003-05-02 20:44
2003.05.22
Замена Quick Report в Delphi 7


3-70166
Viktor
2003-05-02 15:07
2003.05.22
Слишком мало параметров, требуется 1


4-70570
ol
2003-03-24 16:58
2003.05.22
как программно закрыть сообщение