Наследник DateTimePicker'а.

[Oliveyra]

Ребята! Очень срочно нужна Ваша помощь! Последнее задание в курсовой. Нужно переделать компонент DateTimePicker путем добавления новых событий и методов. Я подумал что можно зделать обратный отсчет времени до какой-либо даты в календаре. Пытался реализовать но чтото неособо получается, вот что я смог накарякать. Камнями не бросайте в этой теме я не силен.

unit DateTimer;
 
interface
 
uses
  SysUtils, Classes, Controls, ComCtrls, Windows, Messages,  Graphics, Forms, Dialogs,
  StdCtrls, ExtCtrls;
var Timer: TTimer;
type
  TDateTimer = class(TDateTimePicker)
  private
    { Private declarations }
    Ticker: TTimer;
    OnTimer: TNotifyEvent;
    EndTime: boolean;
    BDateTime: TDateTime;
    EDateTime: TDateTime;
    FOnDateTimer: TNotifyEvent;
    procedure DataTimer(Sender:TObject);
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    { Published declarations }
    //property OnTimer: TNotifyEvent read FOnTimer write FOnTimer;
    property DateTime;
    property Visible;
    property width;
    property height;
    property popupmenu;
    property enabled;
    property font;
    property hint;
    property left;
    property top;
    property showhint;
    property datemode;
    property kind;
    property Time;
 
  end;
 
procedure Register;
 
implementation
 
procedure Register;
begin
  RegisterComponents('Standard', [TDateTimer]);
end;
 
{ TDateTimer }
 
constructor TDateTimer.Create(aowner: Tcomponent);
begin
  inherited Create(aowner);
  Width:=50;
  Height:=15;
  BDateTime:=0;
  EDateTime:=0;
  EndTime:=false;
  Timer:=TTimer.Create(self);
  Timer.Enabled:=true;
  Timer.OnTimer:=OnTimer;
  Timer.Interval:=1000;
 
 
 
end;
 
procedure TDateTimer.DataTimer(Sender: TObject);
begin
  timer.enabled:=true;
 BDateTime:=now;
 EDateTime:=DateTime;
 if BDateTime=EDateTime then
 Timer.Enabled:=false;
end;
 
destructor TDateTimer.Destroy;
begin
   Ticker.Free;
  inherited destroy;
end;
end.

Прошу пожалуйста помогите! В понедельник сдать нужно курсовую на проверку! Если есть какие-то другие идеи по переделке компонента поделитесь. Надеюсь на Ваше понимание.

[mihali4]

А правила прочесть слабо ???
Ну так я помогу...

СПЕЦИАЛЬНО ДЛЯ НОВИЧКОВ В ПРОГРАММИРОВАНИИ, СТУДЕНТОВ И УЧАЩИХСЯ!
Как бы вы ни назвали свою тему, как бы вы ни ухищрялись, если в теме будет ваша учебная задачка, которую вам ну позарез нужно решить - такие темы или вопросы будут моментально удаляться, а нарушитель получать нарушение №1.
Халявные темы будут моментально переправлены в раздел "Фриланс", так что готовьте денежку.
Ну, а в лучшем случае - будут перемещены в раздел "Помощь студентам", который для вас и создан.
Так что не стоит испытывать терпение модеров, а лучше сразу писать подобные темы в этот раздел.

Пока -закрываю. После 10 постов автоматом посыплются штрафы, которые неминуемо приведут к бану...
Как этого избежать ? Да очень просто - вдумчиво прочитать правила раздела.
И вам - понятие, и мне приятно. Аль вы полагаете, что раздавать штрафы - это мне удовольствие доставляет ?
Отнюдь... Мне гораздо приятнее общаться с адекватными людьми, которым хочется помочь. Пока - не хочется. Причину я "живописал" выше...
Я не собираюсь "точить об вас клюв"...
Посему надеюсь на взаимопонимание.