Создание компонент: Свойства-объекты

[ardor]

Здрасте.
По заданию нужно создать компонент часы. в нем свойство Time - объект созданного класса.

TTime = class(TPersistent)
  private
    FHour:Integer;
    FMinute:Integer;
  public
       procedure SetHour(Value: Integer);
       procedure SetMinute(Value: Integer);
  published
    property Hour:Integer read FHour write SetHour;
    property Minute:Integer read FMinute write SetMinute;
  end;
  TClock3 = class(TCustomPanel)

Написать не проблема. Свойство появилось.
Но как заставить компонент реагировать на изменение этого свойства?

Вот это не срабатывает, при изменении поля FHour or FMinute...

property Time: TTime read FTime write SetTime;

procedure TClock3.SetTime(Value: TTime);
begin
  FTime := Value;
  ShowMessage('AAA');
  if(FHalf = AM) then Caption := IntToStr(FTime.FHour) + ':' + IntToStr(FTime.FMinute) + ' AM';
  if(FHalf = PM) then Caption := IntToStr(FTime.FHour) + ':' + IntToStr(FTime.FMinute) + ' PM';
end;

P.S. На всякий случай привожу весь код:

unit Clock3;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

type
  THalf = (AM, PM);
  TTime = class(TPersistent)
  private
    FHour:Integer;
    FMinute:Integer;
  public
       procedure SetHour(Value: Integer);
       procedure SetMinute(Value: Integer);
  published
    property Hour:Integer read FHour write SetHour;
    property Minute:Integer read FMinute write SetMinute;
  end;
  TClock3 = class(TCustomPanel)

  private
    { Private declarations }
    FTime: TTime;
    FHalf:THalf;
  protected
    { Protected declarations }
  public
    { Public declarations }

       procedure SetTime(Value: TTime);
       procedure SetHalf(Value: THalf);
  published
    { Published declarations }
    constructor Create(aowner:Tcomponent);override;
    property Height default 30;
    property Width default 45;
    property Half: THalf read FHalf write SetHalf;
    property Time: TTime read FTime write SetTime;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Standard', [TClock3]);
end;

constructor TClock3.Create(aowner:Tcomponent);
begin
  inherited create(Aowner);
  FTime:= TTime.Create;
  FTime.FHour := StrToInt(FormatDateTime('hh', SysUtils.Time));
  FTime.FMinute := StrToInt(FormatDateTime('nn', SysUtils.Time));
  Caption := IntToStr(FTime.FHour) + ':' + IntToStr(FTime.FMinute) + ' AM';
  Width := 75;
end;

procedure TClock3.SetHalf(Value: THalf);
begin
  FHalf := Value;
  if(FHalf = AM) then Caption := IntToStr(FTime.FHour) + ':' + IntToStr(FTime.FMinute) + ' AM';
  if(FHalf = PM) then Caption := IntToStr(FTime.FHour) + ':' + IntToStr(FTime.FMinute) + ' PM';
end;

procedure TTime.SetHour(Value: Integer);
begin
  FHour := Value;
end;

procedure TTime.SetMinute(Value: Integer);
begin
  FMinute := Value;
end;

procedure TClock3.SetTime(Value: TTime);
begin
  FTime := Value;
  ShowMessage('AAA');
  if(FHalf = AM) then Caption := IntToStr(FTime.FHour) + ':' + IntToStr(FTime.FMinute) + ' AM';
  if(FHalf = PM) then Caption := IntToStr(FTime.FHour) + ':' + IntToStr(FTime.FMinute) + ' PM';
end;

end.

[eval]

Тут ошибок больше чем букв. Как так умудрились?

[Streletz]

Но как заставить компонент реагировать на изменение этого свойства?

Вот это не срабатывает, при изменении поля FHour or FMinute...

Ничего удивительного. Потому, что в процедуре SetTime, которая в задаёт значение поля FTime, они не изменяются. Посмотрите внимательнее на её код. В ней Вы читаете поле, а не записываете.То есть, делаете всё наоборот.
Для изменения поля FTime, согласно представленному коду, необходимо использовать методы SetHour и SetMinute класса TTime.
Можно попробовать переименовать исходный вариант SetTime в ReadTime и заново написать метод SetTime уже как положено. Тогда свойство примет вид:

property Time: TTime read ReadTime write SetTime;

[Человек_Борща]

Я бы посоветовал использовать RTTI в связке с TVirtualStringTree.RTTI обеспечивает доступ ко всем свойствам класса/объекта, а VST легко даёт возможнсть разместить не стандартный редактор ячейки.

/* Пост не в тему */

[ardor]

Сообщение от eval

Тут ошибок больше чем букв. Как так умудрились?

Где вы тут ошибки нашли? Все компилируется и работает, за исключением отсутствия реакции на изменение свойства.

property Time: TTime read ReadTime write SetTime;

Тут как-раз таки правильно у меня. Дело в том, что это свойство вообще никак не срабатывает. Т.к. меняется значение в объекте класса, а не в самой ячейке...

Я бы посоветовал использовать RTTI в связке с TVirtualStringTree.RTTI обеспечивает доступ ко всем свойствам класса/объекта, а VST легко даёт возможнсть разместить не стандартный редактор ячейки.

Я бы с радостью, но тут нужно разобраться стандартными и наиболее простыми методами, т.к. это пример задачи для Гос.экзамена. И излишнее усложнение ни к чему хорошему не приведет. + не факт что на универских компах будут необходимые классы.

[Streletz]

Простите, но Вы не внимательно прочитали мой пост и , следовательно, не правильно его поняли.
Это

property Time: TTime read ReadTime write SetTime;

я посоветовал просто как вариант.

Дело в том, что это свойство вообще никак не срабатывает. Т.к. меняется значение в объекте класса, а не в самой ячейке...

Вы внимательно посмотрели Ваш код метода SetTime? Значение параметра в него вообще попадает? Вы гоняли метод SetTime по точкам останова? Что выдаёт отладчик Delphi?

[ardor]

Сообщение от Streletz

Вы внимательно посмотрели Ваш код метода SetTime? Значение параметра в него вообще попадает? Вы гоняли метод SetTime по точкам останова? Что выдаёт отладчик Delphi?

Извиняюсь за возможно глупый вопрос, но как отлаживать код компонента? Его же запустить невозможно...

[eval]

то что оно компилируеться еще не значит что правильно, кривое не может стать прямым

[doktor255]

Сообщение от eval

кривое не может стать прямым

А если попробовать выпрямить, сможет?

[Streletz]

Сообщение от ardor

Извиняюсь за возможно глупый вопрос, но как отлаживать код компонента? Его же запустить невозможно...

Простите за встречный вопрос, а программу с формой, на которой этот компонент, запустить возможно? Пишите тестовое приложение...