|
Вопрос # 3 501/ вопрос открыт / |
|
Доброго времени суток, уважаемые эксперты!
Как в Delphi определить какая из нескольких TabSheet активна?
 |
Вопрос задал: Польшаков Дмитрий (статус: Посетитель)
Вопрос отправлен: 8 декабря 2009, 17:35
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: min@y™
Как насчёт свойств TPageControl.ActivePage и TPageControl.ActivePageIndex?
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 8 декабря 2009, 17:46
Оценка за ответ: 5
Комментарий к оценке: спасибо как-то сразу не дошло
|
Мини-форум вопроса
Всего сообщений: 8; последнее сообщение — 8 декабря 2009, 20:52; участников в обсуждении: 2.
8 декабря 2009, 17:41: Вопрос перемещён из тематического раздела Delphi » Оболочка Delphi, компилятор, версии среды и т.д. в раздел Delphi » Работа с компонентами и библиотеками модератором Ерёмин А.А.
|
|
Польшаков Дмитрий (статус: Посетитель), 8 декабря 2009, 18:25 [#1]:
теперь другая проблема  ((
вобщем делаю браузер со вкладками. но надо что когда в строке "Адрес" набираешь адрес он переходил на открытой вкладке. как я понимаю в
WebBrowser1.Navigate(ComboBox1.Text); нодо WebBrowser1 заменить на 'WebBrowser' + ActivePageindex но как?
|
|
|
min@y™ (статус: Доктор наук), 8 декабря 2009, 18:31 [#2]:
Цитата (Польшаков Дмитрий):
нодо WebBrowser1 заменить на WebBrowser + ActivePageindex но как?
Надо написать класс-потомок от TTabSheet с дочерним компонентом TBebBrowser и уже туда передавать URL.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Польшаков Дмитрий (статус: Посетитель), 8 декабря 2009, 19:48 [#3]:
где можно прочитать про классы потомки?
|
|
|
min@y™ (статус: Доктор наук), 8 декабря 2009, 19:56 [#4]:
Цитата (Польшаков Дмитрий):
где можно прочитать про классы потомки?
Ну, например, в Интернете. Но проще написать тебе пример. Корректно сформулируй и задай новый вопрос.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Польшаков Дмитрий (статус: Посетитель), 8 декабря 2009, 20:06 [#5]:
Ну нужен пример браузера со вкладками
|
|
|
min@y™ (статус: Доктор наук), 8 декабря 2009, 20:09 [#6]:
Цитата (Польшаков Дмитрий):
Ну нужен пример браузера со вкладками
Не кисло. Написать за тебя программу?
Может всё-таки начнёшь с создания класса-потомка TTabSheet с лежащим на нём TWebBrowser?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Польшаков Дмитрий (статус: Посетитель), 8 декабря 2009, 20:14 [#7]:
ну дайте пример этого класса
|
|
|
min@y™ (статус: Доктор наук), 8 декабря 2009, 20:52 [#8]:
Цитата (Польшаков Дмитрий):
ну дайте пример этого класса
Ну, на вскидку, так:
type
TWebTabSheet = class(TTabSheet)
private
FBrowser: TWebBrowser;
public
constructor Create(AOwner: TComponent); override;
property Browser: TWebBrowser read FWebBrowser;
end;
implementation
constructor TWebTabSheet.Create(AOwner: TComponent);
begin
inherited;
// Создаю дочерний компонент
FBrowser:= TWebBrowser.Create(Self);
with FBrowser do
begin
// Установка нужных свойств FBrowser
Parent:= Self;
Align:= alClient;
// ... <--- Здесь можно назначить компоненту FBrowser нужные обработчики событий
end;
end;
// пример создания вкладки с переходом на яндекс
procedure TMainForm.NewTabButtonClick(Sender: TObject);
begin
with TWebTabSheet.Create(PageControl1) do
begin
Parent:= PageControl1;
PageControl:= PageControl1;
Browser.Navigate('http://yandex.ru');
end;
end;
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
