Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Связь с системным временем

Автор: HighTemplar 4.5.2005, 13:56

Как компонент DateTimePicker связать с системным временем? Чтобы он не показывал одну и ту же унылую кртинку smile

Автор: Poseidon 4.5.2005, 14:12

Кидай на форму еще таимер и пиши

Код

procedure TForm1.Timer1Timer(Sender: TObject);
begin
DateTimePicker1.Date:= Date;
DateTimePicker1.Time:= Time;
end;

У таймера установи интервал в 1 секунду.

Автор: mvdr 4.5.2005, 14:15

Код


procedure TForm1.Timer1Timer(Sender: TObject);
begin
DateTimePicker1.Time:=Time;
end;

и эту же стррочку в Form.Create, но это по желанию.
С датой соответственно

Код


procedure TForm1.Timer1Timer(Sender: TObject);
begin
DateTimePicker1.Date:=Date;
end;

Добавлено @ 14:15
блин, Poseidon, опередил. smile

Автор: Poseidon 4.5.2005, 14:21

Цитата(Femida @ 4.5.2005, 14:15)

блин, Poseidon, опередил.

Автор: HighTemplar 4.5.2005, 14:22

Спасибо большое, вопрос исчерпан.

Автор: Rennigth 4.5.2005, 14:31

не понмню уже почему меня не устроил таймер я делал так:
просто как вариант smile

Код


type
  TForm1 = class(TForm)
    DateTimePicker1: TDateTimePicker;
    procedure FormCreate(Sender: TObject);
  private
    FInterval: Integer;
    procedure IdleEventHandler(Sender: TObject; var Done: Boolean);
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.IdleEventHandler(Sender: TObject; var Done: Boolean);
begin
  if FInterval > 10000 then
  begin
    DateTimePicker1.DateTime := Time;
    FInterval := 0;
  end else
    Inc(FInterval);

  Done := False;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FInterval := 0;
  Application.OnIdle := IdleEventHandler;
end;