Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Закрытая темаСоздание новой темы Создание опроса
> Добавление, изменение, удаление вкладок 
:(
    Опции темы
harakteristika
Дата 14.12.2009, 18:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Ученик
*


Профиль
Группа: Участник
Сообщений: 138
Регистрация: 23.7.2008
Где: Кореновск

Репутация: нет
Всего: нет



Добрый вечер.
Помогите. Я хочу поместить на форму кнопку Добавить, Изменить, Удалить и PageControl.
При нажатии кнопки Добавить Выводилось окно Добавить, а в этом окне находится Edit и кнопка Добавить. В Edit мы вводим слово которое в дальнейшем будет отображаться во вкладке.
Изменить и Удалить я думаю объяснять не надо.
Пишу на Delphi 7 или 2010
PM   Вверх
amsoft
Дата 14.12.2009, 19:19 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 201
Регистрация: 17.10.2009
Где: KZ, Astana

Репутация: 1
Всего: 4



создаем вкладку:

Код

with TTabSheet.Create(PageControl1) do
     begin
     PageControl := PageControl1;
     Caption := Edit1.Text;
     end;


Добавлено через 2 минуты и 56 секунд
Удаляем активную вкладку:

Код

PageControl1.Pages[PageControl1.ActivePageIndex].Destroy;

--------------------
"Кто бы ты ни был - не думай о себе слишком"Дельфин
PM   Вверх
harakteristika
Дата 23.12.2009, 19:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Ученик
*


Профиль
Группа: Участник
Сообщений: 138
Регистрация: 23.7.2008
Где: Кореновск

Репутация: нет
Всего: нет



Цитата(amsoft @ 14.12.2009,  19:19)
создаем вкладку:

Код

with TTabSheet.Create(PageControl1) do
     begin
     PageControl := PageControl1;
     Caption := Edit1.Text;
     end;


Добавлено @ 19:22
Удаляем активную вкладку:

Код

PageControl1.Pages[PageControl1.ActivePageIndex].Destroy;

Добрый вечер!!!!
А можите рассказать по подробнее?
PM   Вверх
Frees
Дата 23.12.2009, 20:19 (ссылка) |  (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 16
Всего: 54



Цитата(harakteristika @  23.12.2009,  22:47 Найти цитируемый пост)
А можите рассказать по подробнее?

а что конкретно тебе не понятно?



--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
Teleport
Дата 23.12.2009, 20:27 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 557
Регистрация: 5.7.2008
Где: Прибалтика

Репутация: 1
Всего: 6



2 harakteristika  - кидаешь на форму PageControl, Edit и две Button

Код

//создание вкладок
procedure TForm1.Button1Click(Sender: TObject);
begin
 with TTabSheet.Create(PageControl1) do begin
   PageControl := PageControl1;
   Caption := Edit1.Text;
 end;
end;


//удаление активной вкладки
procedure TForm1.Button2Click(Sender: TObject);
begin
 PageControl1.Pages[PageControl1.ActivePageIndex].Destroy;
end;



А теперь кидаешь третью кнопку:
Код


//изменить заголовок активной вкладки
procedure TForm1.Button3Click(Sender: TObject);
begin
 PageControl1.Pages[PageControl1.ActivePageIndex].Caption:= Edit1.Text;
end;


Это сообщение отредактировал(а) Teleport - 23.12.2009, 20:42


--------------------
user posted image
user posted image 
PM MAIL   Вверх
harakteristika
Дата 23.12.2009, 21:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Ученик
*


Профиль
Группа: Участник
Сообщений: 138
Регистрация: 23.7.2008
Где: Кореновск

Репутация: нет
Всего: нет



Teleport, 
Скажи а как сделать чтоб активную вкладку можно было редактировать (название вкладки) и удалять.
У меня просто на форме нет кнопок они только в меню.
PM   Вверх
Teleport
Дата 23.12.2009, 22:38 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 557
Регистрация: 5.7.2008
Где: Прибалтика

Репутация: 1
Всего: 6



2 harakteristika  - ну создавай событие OnClick для кнопок меню - и пиши такой же обработчик как для кнопки на форме. Понятно? 

Это сообщение отредактировал(а) Teleport - 23.12.2009, 22:39


--------------------
user posted image
user posted image 
PM MAIL   Вверх
amsoft
Дата 24.12.2009, 09:28 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 201
Регистрация: 17.10.2009
Где: KZ, Astana

Репутация: 1
Всего: 4



harakteristika, 
Судя по всему ты только начинаешь знакомиться с "Делфями".
Если ты решил заняться программированием, то это только приветствуется. Однако среду программирования нельзя изучить, пользуясь форумом. Для начала советую приобрести хорошую книгу для начинающих (в инете тоже достаточно подобной литературы). А когда поймешь основы работы в среде программирования, ознакомишься с элементарными визуальными компонентами и их свойствами/методами и принципами работы с ними, тогда форум будет реальным подспорьем в твоем творчестве.

PS Ни в коем случае не хочу сказать, что здесь не рады новичкам (здесь всегда помогут и подскажут), но без понимания азов программирования это будет малоэффективным.
PPS Прошу прощения если чем обидел
PPPS Если что не понятно - пиши, поможем smile
--------------------
"Кто бы ты ни был - не думай о себе слишком"Дельфин
PM   Вверх
harakteristika
Дата 24.12.2009, 18:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Ученик
*


Профиль
Группа: Участник
Сообщений: 138
Регистрация: 23.7.2008
Где: Кореновск

Репутация: нет
Всего: нет



Teleport, 
Огромное Вам/тебе спасибо!!!!! Все понятно и доступно!!!!!!!!


amsoft, 
Спасибо за понимание и помощь!!!!!!!!
П.С.: Всегда буду рад Вашей помощи!!!!
PM   Вверх
harakteristika
Дата 30.12.2009, 23:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Ученик
*


Профиль
Группа: Участник
Сообщений: 138
Регистрация: 23.7.2008
Где: Кореновск

Репутация: нет
Всего: нет



Teleport, 
ответь еще на пару вопросов.
1 - Как можно сделать чтоб после нажатия на кнопку ввода менялась вкладка и окно ввода автоматически закрывалось?
2 - Как можно сделать чтоб при закрытии проги выводилось окно с сообщением "Вы действительно хотите выйти? Сохранить изменения?" и стояли 2 кнопки Да, Нет.       П.С.: Это предупреждение должно выводиться ТОЛЬКО при каких либо изменениях.

PM   Вверх
Teleport
Дата 31.12.2009, 03:26 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 557
Регистрация: 5.7.2008
Где: Прибалтика

Репутация: 1
Всего: 6



2 harakteristika - Ну менять вкладки так:
ориентируемся на имя вкладки
Код

PageControl1.ActivePage:= NameMyPage; 


или ориентируемся на индекс вкладки
Код

PageControl1.ActivePageIndex:= 4;


Чтобы закрыть окно:
Код

Form1.Close;


Чтобы работать с базовыми компонентами  - очень рекомендую обращаться к книге А. Я. Архангельского
"100 компонентов общего назначения библиотеки Delphi 5" 

Насчет окошка с сообщением - смотри работу с  MessageDlg. В интернете в статьях, в учебниках, в самоучителях - куча информации по работе с  MessageDlg - потому тут выкладывать все это -  не вижу смысла. Почитай, разберись что к чему, попробуй применить - а вот если возникнут трудности с использованием MessageDlg - создавай новую тему, правильно ее называй и задавай вопрос  smile  В этой теме только про вкладки PageControl  smile 

Это сообщение отредактировал(а) Teleport - 31.12.2009, 03:27


--------------------
user posted image
user posted image 
PM MAIL   Вверх
amsoft
Дата 31.12.2009, 07:23 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 201
Регистрация: 17.10.2009
Где: KZ, Astana

Репутация: 1
Всего: 4



harakteristika, если ставить вопрос так:
Цитата(harakteristika @  31.12.2009,  02:11 Найти цитируемый пост)
"Вы действительно хотите выйти?"

то можно обрабатывать событие формы OnClose:
Код

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := (MessageDlg('Закрыть программу?',mtConfirmation,[mbOk,mbNo],0) = mrOk);
end;

Форма будет закрыта, если пользователь нажмет Ok

Это сообщение отредактировал(а) amsoft - 31.12.2009, 07:24
--------------------
"Кто бы ты ни был - не думай о себе слишком"Дельфин
PM   Вверх
bems
Дата 31.12.2009, 15:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88




M
bems
Один топик — один вопрос!

Пожалуйста, ознакомьтесь с правилами форума.




Тема закрыта. Создайте по одной теме для каждого интересующего вас вопроса.


Это сообщение отредактировал(а) bems - 31.12.2009, 15:24


--------------------
Обижено школьников: 8
PM MAIL   Вверх
  
Закрытая темаСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »


 




[ Время генерации скрипта: 0.0549 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.