VPF::Связь с системным временем - Форум программистов

HighTemplar

Дата 4.5.2005, 13:56 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 17.3.2005

Репутация: нет
Всего: нет

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

Poseidon

Дата 4.5.2005, 14:12 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

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

Код

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

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

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

mvdr

Дата 4.5.2005, 14:15 (ссылка)

(нет голосов)

Загрузка ...

физик

Профиль
Группа: Участник
Сообщений: 1349
Регистрация: 31.12.2004
Где: Волгоград, Россия

Репутация: 1
Всего: 42

Код


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 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

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

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

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

HighTemplar

Дата 4.5.2005, 14:22 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 17.3.2005

Репутация: нет
Всего: нет

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

Rennigth

Дата 4.5.2005, 14:31 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

не понмню уже почему меня не устроил таймер я делал так:
просто как вариант 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;

--------------------

(* Honesta mors turpi vita potior *)

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »