Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c