|
Вопрос # 3 084/ вопрос открыт / |
|
Здравствуйте!
У меня к вам вопрос: как на PageControl программно (например, при нажатии кнопки) создать новую вкладку, и поместить на ней WebBrowser? Заранее спасибо!
 |
Вопрос задал: IlluminatI (статус: 2-ой класс)
Вопрос отправлен: 12 августа 2009, 18:56
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Вадим К
Здравствуйте, IlluminatI!
В принципе как обычно. Но с вебброузером есть некоторые проблемы, поэтому я обычно делал немножко хитро. Я создаю фрейм, на него ставлю вебброузер (туда можно ещё положить компонентов. В коде фрейма можно сделать обвязку для броузера - в результате можно упростить код).
а дальше код как обычно
создаем вкладку
tab:TTabSheet;
frm:TFrame1;
begin
tab := ttabsheet.create(pagecontrol1);
with tab do
begin
visible := true;
// Это необходимо, или форма не будет корректно перерисовываться
caption := 'Страница 1';
pagecontrol := pagecontrol1; // Назначаем tab в page control
end; // with
//теперь надо создать фрейм и положить на вкладку
frm:=TFrame1.Create(Form1);
frm.Parent := tab;
frm.Align := alClient;
остальное дело техники.
 |
Ответ отправил: Вадим К (статус: Академик)
Время отправки: 12 августа 2009, 19:28
Оценка за ответ: 5
Комментарий к оценке: спасибо, сейчас попробую
|
Мини-форум вопроса
Всего сообщений: 2; последнее сообщение — 12 августа 2009, 22:22; участников в обсуждении: 2.
|
|
IlluminatI (статус: 2-ой класс), 12 августа 2009, 20:08 [#1]:
Спасибо за помощь, если не трудно, подскажите еще как удалить созданную вкладку?))
|
|
|
Вадим К (статус: Академик), 12 августа 2009, 22:22 [#2]:
Первое, что надо запомнить - объекты удаляются в противоположном направлении из создания.
Это значит, что нам надо вначале удалить фрейм.
в примере я написал
frm:=TFrame1.Create(Form1);
лучше написать
frm:=TFrame1.Create(tab);
frm.Name := ''; // эта строка нада, а то не удастся создать больше одной вкладки...
в таком случае вкладка будет родителем для фрейма. А это имеет один полезный результат - объект удаляет всех своих дочерних объектов при собственном удалении. и так рекурсивно.
Поэтому надо будет только удалить вкладку. и всё.
то есть так
PageControl1.Pages[1].Free;
Галочка "подтверждения прочтения" - вселенское зло.
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
