Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (до версии 2009) - часть 5

Модерирует : ShIvADeSt

ShIvADeSt (19-05-2010 05:14): Продолжаем тут http://forum.ru-board.com/topic.cgi?forum=33&topic=11215  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101

   

ShIvADeSt



Moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Продолжение темы Вопросы по Delphi (до версии 2009) - часть 4

Познаем сами, помогаем другим...
Обсуждаем вопросы, не связанные с юникоидными версиями Delphi - для этого есть соответствующая тема (см. ссылки ниже).

Правила топика:
    Прежде чем спрашивать:
  1. Желательно изучить вопрос, попытаться найти ответ в прилагаемых мануалах, хелпах и анализируя исходники.
  2. Выполнить поиск по топику (открыть "Версия для печати" и поискать ответ там).
  3. Применить фильтр по разделу "Прикладное программирование". Ответы на многие старые вопросы могли быть даны в отдельных темах.
  4. Продумайте вопрос. На поверхностные вопросы вы получите поверхностные ответы, или вообще ответов не получите.
  5. Желательно указывать версии используемого компилятора и операционной системы.
    Прежде чем отвечать:
  1. Если не можете помочь, не мешайте.
  2. Если уж вы отвечаете на вопрос, давайте ответ по сути.
  3. Если вы не уверены, так и говорите! Ошибочный, но авторитетно звучащий ответ хуже, чем отсутствие ответа.
  4. Задавайте дополнительные вопросы, чтобы получить больше информации.
  • Отсутствие ответа не равносильно игнорированию - иногда участники форума просто не знают ответ. Повторная посылка вопроса не приветствуется. Посты типа "неужели никто не знает ответа..." или "может мне все-таки кто-нибудь ответит" недопустимы.  
  • Все большие куски кода (более 5 строк) оформляем в тег [morе] дабы уменьшить размер поста. FAQ по тегу [morе].

  • Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 02:09 28-06-2009 | Исправлено: psa1974, 12:00 02-02-2010
    VandB



    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    data man
    TwebBrowser

    Всего записей: 164 | Зарегистр. 05-05-2009 | Отправлено: 17:50 15-08-2009 | Исправлено: VandB, 17:52 15-08-2009
    data man



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    VandB
    По-моему EmbeddedWB получше будет.

    Всего записей: 1696 | Зарегистр. 13-10-2005 | Отправлено: 18:06 15-08-2009
    VandB



    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    data man
    Спасибо

    Всего записей: 164 | Зарегистр. 05-05-2009 | Отправлено: 18:18 15-08-2009 | Исправлено: VandB, 18:23 15-08-2009
    data man



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

    Всего записей: 1696 | Зарегистр. 13-10-2005 | Отправлено: 18:24 15-08-2009
    VandB



    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    data man
    Я розабрался, сначало надо скачать иконку, потом открыть.

    Всего записей: 164 | Зарегистр. 05-05-2009 | Отправлено: 18:56 15-08-2009
    data man



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    VandB
    Да. В EmbeddedWB в файле Source\IEAddress.pas есть функция TCustomIEAddress.GrabFavicon.
    Можно взять за образец.

    Всего записей: 1696 | Зарегистр. 13-10-2005 | Отправлено: 18:59 15-08-2009 | Исправлено: data man, 19:00 15-08-2009
    VandB



    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    data man
    БОЛЬШОЕ СПАСИБО! теперь мне можно сократить унтил так 10, потому что уже все готовое есть..... А я пыхтел писал....
     
    Добавлено:
    data man
    Вот у меня небольшой вопрос, можно ли на мидивкладках поместить кнопку? И еще как при создании нового миди окна оно сразу было развернуто, а не когда создалось сразуже развернулось?  

    Всего записей: 164 | Зарегистр. 05-05-2009 | Отправлено: 19:09 15-08-2009
    data man



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    VandB
    Кнопка для закрытия вкладки ?

    Всего записей: 1696 | Зарегистр. 13-10-2005 | Отправлено: 19:57 15-08-2009 | Исправлено: data man, 20:02 15-08-2009
    VandB



    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    data man
    Ну да
    (Я за Делфи сижу всего 3 месяца, так что извините если что то вам покажется тупо то что я спрашиваю)

    Всего записей: 164 | Зарегистр. 05-05-2009 | Отправлено: 20:18 15-08-2009 | Исправлено: VandB, 20:21 15-08-2009
    Cryogen2003



    Advanced Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    А мне кто-нибудь поможет?

    ----------
    Холодильники мы

    Всего записей: 745 | Зарегистр. 08-12-2004 | Отправлено: 20:18 15-08-2009
    data man



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

    Всего записей: 1696 | Зарегистр. 13-10-2005 | Отправлено: 20:31 15-08-2009
    VandB



    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    data man
    Можно и без этой кнопки, нет нужно только использование mid приложения.
    Чтобы новое mid окно  создавалось сразу открытый надо в свойстве окна поставить WindowsState:=wsMaximized; Ну тут плохо то, что видно как из маленького окна создается большое, но очень быстро.
     
    Добавлено:
    Cryogen2003
    А что случилось?

    Всего записей: 164 | Зарегистр. 05-05-2009 | Отправлено: 20:46 15-08-2009
    data man



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    VandB
    Примерно так подойдет ?

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

    Всего записей: 1696 | Зарегистр. 13-10-2005 | Отправлено: 21:16 15-08-2009
    VandB



    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    data man
    Я про это и написал, что решил проблему.
    Цитата:
    Чтобы новое mid окно  создавалось сразу открытый надо в свойстве окна поставить WindowsState:=wsMaximized;

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

    Всего записей: 164 | Зарегистр. 05-05-2009 | Отправлено: 21:25 15-08-2009
    data man



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    VandB
    Фишка в том, что невидимой форме присваивается wsMaximized, а потом она показывается.
    И как я могу угадать, как создается MDI-форма ?
    Можно привести кусочек кода ?

    Всего записей: 1696 | Зарегистр. 13-10-2005 | Отправлено: 00:20 16-08-2009
    VandB



    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    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;  
     
     

    Всего записей: 164 | Зарегистр. 05-05-2009 | Отправлено: 01:28 16-08-2009
    data man



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    VandB

    Код:
    var
      Page: TSpTBXTabItem;
      PageSheet: TSpTBXTabSheet;
    begin
      Page := sptbxtbcntrl1.Add(IntToStr(sptbxtbcntrl1.Items.Count+1));
      PageSheet := sptbxtbcntrl1.GetPage(Page);
      sptbxtbcntrl1.ActivePage := PageSheet;
     
      добавляем контролы
    end;

    Всего записей: 1696 | Зарегистр. 13-10-2005 | Отправлено: 10:39 16-08-2009
    delover

    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    AlexMoor

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

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

    Всего записей: 1395 | Зарегистр. 25-06-2007 | Отправлено: 13:49 16-08-2009
    spasius



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    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;
     

    у меня катит и ничего не дергается

    Всего записей: 695 | Зарегистр. 16-03-2009 | Отправлено: 15:01 16-08-2009
    VandB



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

    Всего записей: 164 | Зарегистр. 05-05-2009 | Отправлено: 21:46 16-08-2009 | Исправлено: VandB, 21:47 16-08-2009
       

    Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101

    Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (до версии 2009) - часть 5
    ShIvADeSt (19-05-2010 05:14): Продолжаем тут http://forum.ru-board.com/topic.cgi?forum=33&topic=11215


    Реклама на форуме Ru.Board.

    Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
    Modified by Ru.B0ard
    © Ru.B0ard 2000-2024

    BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

    Рейтинг.ru