Здравствуйте. Подскажите пожалуйста как реализовать вот такую заморочку: При создание новой вкладки ,в компоненте PageСontrol,нужно чтобы в ярлыке формировалась текущая дата( год\месяц\дата) или случайное 5-ти значное число?
(Предпочтительнее дата.)
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
pag:ttabsheet;
begin
pag:=TTabSheet.Create(pagecontrol1);
pag.Caption := 'Страница'+inttostr(pagecontrol1.PageCount+1);
pag.Name:='tabsheet'+inttostr(pagecontrol1.PageCount+1);
pag.PageControl := pagecontrol1;
pag.Visible := True;
end;
Как понимаю нужно изменить строчку 6,
но как это сделать я не знаю!!??Спасибо.