всем спасибо, заработала как надо. многое оказывается проще чем я думал. ( только знать надо
).
а вот событие
property OnPaint;
так просто не прописать. пишет: "property OnPaint does not exist in base class". Это значит что у предка нет этого события? как тогда решить проблему что после например popupmenu которое было открыто поверх моего компонента, после закрытия меню на компоненте остается след, пятно. Вроде бы этом можно решить через OnPaint. Но как его прописать?
Код:
protected
{ Protected declarations }
procedure WMOnPaint(var Msg : TMessage); message WM_paint;
property
property OnPaint: TNotifyEvent read FOnPaint write FOnPaint;
procedure TTexXEditor.WMOnPaint(var Msg : TMessage);// message WM_paint;
begin
//вызываю свою процедуру перерисовки
end;
Но вы скажете что я опять гланды через одно место делаю.
Кроме того, в этом случае, когда открываеш в Дельфи форму с моим компонентом, то он мерцает, ощущение что он перерисовывается постоянно. Откомпилировать в этот мемент не получается и через минуту Дельфи вылетает с ошибкой.