![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Форумчанин
Регистрация: 06.09.2007
Сообщений: 908
|
![]()
Здравствуйте , уважаемые программисты!
Помогите, пожалуста, разобраться. Как мне создать несколько вкладок? |
![]() |
![]() |
#2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
![]()
С помошью компонента TPageControl
I'm learning to live...
|
![]() |
![]() |
#3 |
Форумчанин
Регистрация: 22.05.2007
Сообщений: 511
|
![]()
В инспекторе объектов выбираешь Pages-Add и в Page name напиши имя твоей будущей вкладки (это для TabbedNotebook из вкладки Win 3.1.)
Если используешь PageControl то нажимаешь правую кнопку мыши и выбираешь NewPage Последний раз редактировалось Aleksandr; 06.09.2007 в 15:37. |
![]() |
![]() |
#4 |
Форумчанин
Регистрация: 06.09.2007
Сообщений: 908
|
![]()
Спасибо за совет, но я почему-то не найду в инспекторе объектов Pages-Add
|
![]() |
![]() |
#5 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
![]()
Ищи свойство Pages и кликай на кнопке возле него.
I'm learning to live...
|
![]() |
![]() |
#6 |
][@|{eR
Регистрация: 06.09.2007
Сообщений: 8
|
![]()
Попробуй это!это перестройка вкладки TPageControl с помощью Drag and Drop :
procedure TForm1.PageControl1MouseDown(Sender : TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin PageControl1.BeginDrag(False); end; procedure TForm1.PageControl1DragDrop(Sender, Source: TObject; X, Y: Integer); const TCM_GETITEMRECT = $130A; var i: Integer; r: TRect; begin if not (Sender is TPageControl) then Exit; with PageControl1 do begin for i := 0 to PageCount - 1 do begin Perform(TCM_GETITEMRECT, i, lParam(@r)); if PtInRect(r, Point(X, Y)) then begin if i <> ActivePage.PageIndex then ActivePage.PageIndex := i; Exit; end; end; end; end; procedure TForm1.PageControl1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); begin if Sender is TPageControl then Accept := True; end; Последний раз редактировалось pentiumForever; 07.09.2007 в 13:16. |
![]() |
![]() |
#7 |
Форумчанин
Регистрация: 06.09.2007
Сообщений: 908
|
![]()
Спасибо большое за совет, я разобрался.
|
![]() |
![]() |
#8 |
Грызун Гранита
Пользователь
Регистрация: 25.01.2008
Сообщений: 33
|
![]()
Доброго времени суток, Уважаемые коллеги.
Подскажите пожалуйста кто-нить, как программным путём, во время выполнения программы, создавать новые вкладки на PageControl, при этом, на каждой вкладке создавать по новому StringGrid, очень нужно, желательно с примерами для чайников. Зарание спасибо. |
![]() |
![]() |
#9 |
Участник клуба
Регистрация: 12.10.2007
Сообщений: 1,204
|
![]() Код:
|
![]() |
![]() |
#10 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
![]()
Один вопрос - одна тема
Закрыто!
I'm learning to live...
|
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
закрытие вкладки в TTabControl | Shade | Помощь студентам | 3 | 06.02.2009 13:10 |
Окна как вкладки | neo7777 | Общие вопросы Delphi | 8 | 07.04.2008 11:44 |
компонент GradientPanel из вкладки KOL | Terran | Компоненты Delphi | 3 | 04.01.2008 02:00 |
Вкладки в делфи7 | Никита1984 | Компоненты Delphi | 3 | 09.12.2007 17:33 |
Вкладки | Каштанка | Компоненты Delphi | 1 | 02.05.2007 11:01 |