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

Вниз

Как сообщить компоненту из свойства-объекта - надо перерисов   Найти похожие ветки 

 
Poirot ©   (2002-08-03 06:50) [0]

ПРоблема в следующем...
Я создаю класс с в котором есть свойства описывающие какойто-обект... И этот класс служит свойством другого класса...

TMyPropClass = class (TPersistent)
////
published
property MyColor:TColor///и и.д
end;

TMyClass = class(TCustomObject)
published
property Prop:TMyPropClass read FProp write SetProp;
end;

Так вот проблема.... Я в изменяю свойство MyColor и соответственно ему надо перерисовать Канву...

Была иделя посылать WM_PAINT, но почему-то размеры компонента меняются на (0,0);
Буду благодарен любой помощи...


 
Poirot ©   (2002-08-03 06:54) [1]

TCustomObject - вмысле TCustom Object где Object - Label, ComboBox, Edit и т.п.


 
Старый паскалист   (2002-08-03 15:05) [2]

Обычно это делается введением св-ва OnChange в объект-свойство.
Примерно так:

TMyPropClass = class (TPersistent)
private
FOnChange: TNtifyEvent;
procedure Changed;
published
property OnChange: TNotifyEvent read FOnChange write FOnChange;
property MyColor:TColor read ... write SetMyColor;
end;

procedure TMyPropClass.Changed;
begin
if Assigned(FOnChange) then FOnChange(Self);
end;

procedure TMyPropClass.SetMyColor(Value: TColor);
begin
if FMyColor <> Value then
begin
FMyColor := Value;
Changed; // При изменении св-в будет обновлён объект-хозяин.
end;
end;

constructor TMyPropClass.Create;
begin
FOnChange := Owner.ChangeStyle; // Метод обновления объекта-хозяина
end;

(Посмотри в исходниках VCL, как это сделано для TFont и т.д.)


 
Poirot ©   (2002-08-04 01:15) [3]


> Старый паскалист

Огромное спасибо
> constructor TMyPropClass.Create;
> begin
> FOnChange := Owner.ChangeStyle; // Метод обновления объекта-хозяина
> end;

Тока так не работает, а работает... если в предке сделать метод и событию дитя его присвоить... т.к. Owner не обладает такими и докучи неуниверсально... надо все классы ск оторыми работаемс...

А Вообщем огромное спасибо... работает как часы...



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

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

Наверх




Память: 0.47 MB
Время: 0.01 c
1-48095
c0pYc@t
2002-08-05 09:39
2002.08.15
TLIST


3-47960
Vikuksa
2002-07-24 16:23
2002.08.15
ADO


1-48015
777
2002-07-31 16:50
2002.08.15
hex


1-48080
evgeg
2002-08-04 11:05
2002.08.15
Проблема с Notification


1-48041
Are you want a tea?
2002-08-03 20:23
2002.08.15
TStrings и ему подобные