Форум: "Основная";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];
Вниз
Часы Найти похожие ветки
← →
mukha (2002-03-26 10:03) [4]Если хочешь чтобы ещё мигало и двоеточие между часами и минутами сделай так:
На форме помести Label1 и Timer1
Объяви переменную сразу за объявлением файлов ресурсов
implementation
{$R *.DFM}
var Colon:boolean; // переменная определяет наличие или отсутств. двоеточия
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Interval:=500; //Интервал мигания двоеточия
if Colon then // если есть двоеточие
//вывод времени без него
Label1.Caption:=FormatDateTime("hh nn", Time)
else // иначе
// вывод времени с двоеточием
Label1.Caption:=FormatDateTime("hh:nn", Time);
Colon:=NOT Colon;// изменение признака наличия двоеточия
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c
