monthcalendar

[hunter03]

Здравствуйте, подскажите как в monthcalendar вывести текущие часы, минуты, секунды, и можно ли это вообще сделать???

[Stilet]

По-моему он на это не способен... Кинь рядом Label и в нее выводи:

Label.Caption:=DateTimeToStr(now);

[hunter03]

а если написать наследника для него...можно ли это как-то добавить в него?

[Stilet]

можно ли это как-то добавить в него?

Ну можно конечно. Только думаю что с наследником будет больше геммороя чем по отдельности...

[hunter03]

если можете подскажите как это реализовать....

[Stilet]

Ну в принципе способов есть несколько.
Например переопределить прямо в форме компонент, добавив в него нужные поля:

unit Unit1;

interface

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

type
  TMonthCalendar=class(ComCtrls.TMonthCalendar)
  Private
   LabelA:TLabel;
  Public
  Constructor Create(AO:TComponent); override;
  end;
  TForm1 = class(TForm)
    MonthCalendar1: TMonthCalendar;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

{ TMonthCalendar }

constructor TMonthCalendar.Create(AO: TComponent);
begin
 Inherited;
  LabelA:=TLabel.Create(self);
  LabelA.Parent:=self;
  LabelA.Top:=0;
  LabelA.Left:=0;
  LabelA.Width:=100;
  LabelA.Height:=50;
  LabelA.Caption:=TimeToStr(time);
  LabelA.Show;
end;

end.

Тут все зависит от задачи, возможно придется перерисовывать что-то для красоты, или делать это компонентом полноценным...

[hunter03]

спасибо большое за помощь=)))