Стр. 318 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
318
Result:='';
//если количество часов меньше десяти
if h<10 then
//перед цифрой добавляется ноль
Result:=Result+'0'+IntToStr(h)+':'
else
//ноль не добавляется
Result:=Result+IntToStr(h)+':';
//если количество минут меньше десяти
if m<10 then
//перед цифрой добавляется ноль
Result:=Result+'0'+IntToStr(m)+':'
else
//ноль не добавляется
Result:=Result+IntToStr(m)+':';
//если количество секунд меньше десяти
if s<10 then
//перед цифрой добавляется ноль
Result:=Result+'0'+IntToStr(s)
else
//ноль не добавляется
Result:=Result+IntToStr(s);
end;
8. В инспекторе объектов для формы Form1 создайте процедуру
FormCreate для обработки события OnCreate.
//выполняется при создании формы
procedure TForm1.FormCreate(Sender: TObject);
begin
//текущий каталог
dir:=GetCurrentDir+'\';
//запрет работы таймера
Timer1.Enabled:=false;
//стиль границ формы
Form1.BorderStyle:=bsSingle;
//разрешенные иконки формы
Form1.BorderIcons:=[biMinimize,biSystemMenu];
//заголовок формы
Form1.Caption:='Видеоплеер';
//цвет формы
Form1.Color:=clWhite;
//компонент невидим
MediaPlayer1.Visible:=false;
//компонент, на котором будет