Главная страница
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
3-47933
NDR
2002-07-25 07:09
2002.08.15
Как отсортировать таблицу по двум полям ?


14-48312
savva
2002-07-19 13:50
2002.08.15
И так, в ряду холостяков вновь появилась игр с интересным...


4-48371
Igit
2002-06-06 22:05
2002.08.15
фон под текстом у иконак на рбочем столе


1-48189
[ch!p]
2002-08-02 14:08
2002.08.15
Просмотр Word документов из проги


14-48283
Doom2
2002-07-21 15:54
2002.08.15
Как вывести изображение на время загрузки программы ?