Скачать: CL | DM;
изменить Webbrowser или как выводить баннеры ?!? Найти похожие ветки
← →
MOtoroller (2006-11-17 12:40) [0]Помогите начальство дало наказ сделать систему вывода баннеров в программе, которую мы продаём.
Что сделано на сей момент
1) на php сделана функция показа случайных баннеров
2) в программ добавлен Webbrowser, который показывает эти баннеры.
Всё бы хорошо, но директор говорит, что ему не нравится что видно скроллинг у Webbrowser, скажите как от него избавиться ? (как я понимаю это невозможно).
Либо скажите как можно вывести баннеры в программе.
Спасибо !!!
← →
untermensch (2006-11-17 12:56) [1]Если баннер - анимированный gif или флеш, его можно просто скачивать и отображать как захочется, всё зависит от баннерной сети. Если баннер HTML со скриптом подтверждения просмотра, то его можно покопать и возможно смоделировать его работу, но это будет под конкретную сеть и не гибко.
Как отобжаать флеш где то в этом форуме обсуждалось, а под гиф скачать библиотечку с той же торри.
← →
untermensch (2006-11-17 12:57) [2]Да, можно отображать в webbrouser свой код фрейма с запрещёнными скролингами и источником содержимого из баннерной сети, тогда скроллинга не будет
← →
MOtoroller (2006-11-17 13:04) [3]
> Webbrowser
Скажи пожалуйста как же это сделтаь, если возможно то конкретный пример
← →
Anatoly Podgoretsky © (2006-11-17 13:18) [4]> MOtoroller (17.11.2006 12:40:00) [0]
> которую мы продаём.
Больше продавать не будете.
← →
untermensch (2006-11-17 13:20) [5]<html>
<frameset cols="*" BORDER="0" NORESIZE>
<frame src="http://www.delphimaster.ru/forums.shtml" NORESIZE FRAMEBORDER="0" SCROLLING="no" MARGINHEIGHT="0" MARGINWIDTH="0">
</frameset>
</html>
Это загрузить в броузер весто баннера (потом замените URL на Вышу банерную сеть)
← →
untermensch (2006-11-17 13:33) [6]Если не поможет и серые скроллинги остануться, но унаследовать клаcc с вебброузера и унаследовать свою CreateParams в ней вызвать inherited а затем из подготовленных флагов исключить флаги прокрутки:
TMyWEB = class(TWEBBrowser)
procedure CreateParams(var Params: TCreateParams); override;
end;
procedure TMyWEB.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.Style:=Params.Style and not (WS_VSCROLL or WS_HSCROLL);
end;
← →
MOtoroller (2006-11-17 14:12) [7]
> Если не поможет и серые скроллинги остануться, но унаследовать
> клаcc с вебброузера и унаследовать свою CreateParams в ней
> вызвать inherited а затем из подготовленных флагов исключить
> флаги прокрутки:
>
> TMyWEB = class(TWEBBrowser)
> procedure CreateParams(var Params: TCreateParams); override;
>
> end;
>
> procedure TMyWEB.CreateParams(var Params: TCreateParams);
>
> begin
> inherited CreateParams(Params);
> Params.Style:=Params.Style and not (WS_VSCROLL or WS_HSCROLL
Спасибо тебе всё помогло
Страницы: 1 вся ветка
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.037 c
vajo
2007-04-27 12:24
2007.05.27
Как распечатать pdf?
2-1178472336
Герасим
2007-05-06 21:25
2007.05.27
Работа со списком. Что к чему?
2-1178390834
Wind
2007-05-05 22:47
2007.05.27
мастер построения Сonnectionstring
2-1178524785
Konus
2007-05-07 11:59
2007.05.27
работа с TEdit, формат числа 1.11
15-1177436016
Kerk
2007-04-24 21:33
2007.05.27
Дайте чтоль похвалюсь :))