» Вопросы по Delphi (до версии 2009) - часть 5

data man
как я полагаю данный вирус поражает исключительно только старые версии Delphi 4-7. Про новые там ничего не сказано.
П.С. Может у кого нибудь завалялся компонент генерации Captcha. Любой, хоть dcu.

У меня возник вопрос (для меня сложный, но решаемый на 50% мной) прошу ответить на мой вопрос.
Вот сам вопрос:
Вопрос по MID приложению, как сделать так, чтобы при создании новой формы появлялся компонент (можно простая кнопка), и при закрытии этой формы этот компонент исчезал. (Форм может быть n-ное количество, и закрывать их можно в любом порядке.) Яркий пример браузер Maxthon там также организованно, при создании нового окна появляется вкладка.

VandB
Типа такого: http://www.alphaskins.com/forum/index.php?s=&showtopic=2785&view=findpost&p=19961 ?

VandB
Либо Toolbar2000 + SpTBXLib (лучше из SVN) + это
Получаете тулбары, скины, плавающие панели и многое другое.

Frodo_Torbins
Да


Добавлено:
data man
Так не получится , у меня Delphi 2009, не ставится ни чего.

VandB
У меня тоже Delphi 2009 и всё прекрасно работает.
Можно попробовать взять Toolbar2000 из CVS

data man
Большое спасибо, установил и все понял. (Я Создал новый пакет и просто добавил унтилы от Toolbar2000 и SpTBXLib и установил).
-----------------------------------------------------------------------------------------------------
Вот еще 1 вопрос, ка изменять иконку нового миди окна на иконку сайта при каждом NavigateComplete?

VandB
Для иконок вкладок - присвоить Images и ImageIndex и задать Item.DisplayMode = nbdmImageAndText.
Для самой формы - загружать иконку в свойство Icon.
И советую подписаться на эти группы новостей
_news://news.jrsoftware.org/jrsoftware.toolbar2000
_news://news.jrsoftware.org/jrsoftware.toolbar2000.thirdparty

data man
У меня есть лин на иконку (тоесть прехожу на новую страницу и Edit1.text сохраняется путь к иконке), И как мне поменять иконку окна на ту котороя в интернете . Mainform.Icon.LoadFromStream(Edit1.text); не получается...

VandB
Линк на иконку в интернете ? Естественно LoadFromStream не сработает. Нужно использовать LoadFromFile, а файл скачивать.
А вообще какой компонент используется для просмотра страницы ?

data man
TwebBrowser

VandB
По-моему EmbeddedWB получше будет.

data man
Спасибо

VandB
Там все в исходниках, D2009 поддерживается.
Раз так много переделывать - то не стоит. Наверняка есть готовое решение получения иконок - torry и так далее.
Просто в EmbeddedWB уже готовый очень продвинутый браузер.

data man
Я розабрался, сначало надо скачать иконку, потом открыть.

VandB
Да. В EmbeddedWB в файле Source\IEAddress.pas есть функция TCustomIEAddress.GrabFavicon.
Можно взять за образец.

data man
БОЛЬШОЕ СПАСИБО! теперь мне можно сократить унтил так 10, потому что уже все готовое есть..... А я пыхтел писал....

Добавлено:
data man
Вот у меня небольшой вопрос, можно ли на мидивкладках поместить кнопку? И еще как при создании нового миди окна оно сразу было развернуто, а не когда создалось сразуже развернулось?

VandB
Кнопка для закрытия вкладки ?

data man
Ну да
(Я за Делфи сижу всего 3 месяца, так что извините если что то вам покажется тупо то что я спрашиваю)

А мне кто-нибудь поможет?

VandB
Тогда может не использовать MDI ?
Поместить на форму TSpTBXTabControl, в нем выставить TabCloseButton в нужное состояние и динамически добавлять TSpTabSheet и в него уже помещать контролы.
И проблема с раскрытием формы решится.

data man
Можно и без этой кнопки, нет нужно только использование mid приложения.
Чтобы новое mid окно создавалось сразу открытый надо в свойстве окна поставить WindowsState:=wsMaximized; Ну тут плохо то, что видно как из маленького окна создается большое, но очень быстро.

Добавлено:
Cryogen2003
А что случилось?

VandB
Примерно так подойдет ?

Код:
var
F: TForm;
begin
F := TForm.Create(Self); // - нужный Owner
F.Visible := False;
F.WindowState := wsMaximized;
F.Show;
end;

data man
Я про это и написал, что решил проблему.
Цитата:

Чтобы новое mid окно создавалось сразу открытый надо в свойстве окна поставить WindowsState:=wsMaximized;

Добавлено:
А больше нет способов создания вкладок?

VandB
Фишка в том, что невидимой форме присваивается wsMaximized, а потом она показывается.
И как я могу угадать, как создается MDI-форма ?
Можно привести кусочек кода ?

data man
Я Передумал использование МИД прилдожений. Склоняюсь в сторону простых вкладок.
Как во время выполнения программы добавлять вкладки в TSpTBXTabControl ?( На вкладке может быть содержимое например вебброузер или каколибо другой компанент, и он тоже должен копироватся вместе с вкладкой).
Я это реализовал на обычных вкладках
VAR
ts : TTabSheet;
wb : TWebBrowser;
begin
ts:= TTabSheet.Create(Self);
ts.PageControl:= PageControl1;
ts.Visible:= True;
ts.Caption:=IntToStr(PageControl1.PageCount); // Имя новой вкладки
wb:= TWebBrowser.Create(ts);
TWinControl(wb).Parent:= ts;
wb.Align:= alClient;
wb.Visible:= True;
PageControl1.ActivePageIndex:= PageControl1.PageCount-1;
end;

VandB

Код: var
Page: TSpTBXTabItem;
PageSheet: TSpTBXTabSheet;
begin
Page := sptbxtbcntrl1.Add(IntToStr(sptbxtbcntrl1.Items.Count+1));
PageSheet := sptbxtbcntrl1.GetPage(Page);
sptbxtbcntrl1.ActivePage := PageSheet;

добавляем контролы
end;

AlexMoor

Цитата:

Сегодня после долгого шаманства пришел к компромису - отключил Embedded Designer

В Delphi 2006 такая опция тоже есть, только я ей почему-то не пользовался. А вспомнил, мне важно чтобы текст нормально ложился в ширину странички когда в MDI. Если возникает желание чтобы ещё кому нибудь проще было читать твой текст, то волей-неволей стараешься что нибудь для этого предпринимать. Например видеть самую урезанную ширину страницы и вписываться в неё, как если бы ё читал тот кто никогда опции эти не трогал.

VandB

Код:
aSheet := TTabSheet.Create(WindowsPageControl);
with aSheet do
begin
Visible := True;
PageControl := WindowsPageControl;

WindowsPageControl.ActivePage:=aSheet;

Frm:=TFormD.Create(aSheet);
Frm.Visible:=False;
Frm.Parent:=aSheet;
Caption := 'test';
Frm.BorderStyle:=bsNone;
Frm.WindowState:=wsMaximized;
Frm.Align:=alClient;
Frm.Visible:=True;
end;

Все спасибо всем , разобрался.
У меня еще есть вопрос по EmbeddedWB и по WebBrowser.
Как использовать меню "Открыть в новой вкладке". Просмотрел все браузеры на основе Internet exprorer, не в одном это меню не доступно, его вобьще можно активировать как ни будь? И еще 1 вопрос Можно ли в Делфи организовать просмотр гаджетов от боковой панели windows vista?