|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
PageControl с нестандартным ярлыком
Здравствуйте. Подскажите пожалуйста как реализовать вот такую заморочку: При создание новой вкладки ,в компоненте 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; |
#2
|
||||
|
||||
Так что ли?
Код:
pag.Caption := DateToStr(Date); Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
Этот пользователь сказал Спасибо angvelem за это полезное сообщение: | ||
Evgen_Balbes (04.10.2012)
|
#3
|
||||
|
||||
Спасибо. То что надо. А по поводу случайных чисел не подскажите ?
|
#4
|
||||
|
||||
Такой вариант устроит?
Код:
pag.Caption := IntToStr(Random(90000) + 10000); Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
Этот пользователь сказал Спасибо angvelem за это полезное сообщение: | ||
Evgen_Balbes (04.10.2012)
|
#5
|
||||
|
||||
Класс, это то что нужно
|
#6
|
|||
|
|||
Для вывода времени: TimeToStr(Time). Возможно понадобиться
|
Этот пользователь сказал Спасибо Edit1 за это полезное сообщение: | ||
Evgen_Balbes (10.10.2012)
|