Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Hinc
2 / 2 / 2
Регистрация: 28.02.2016
Сообщений: 158
1

Зумирование кнопками в WebBrowser, Delphi 7

09.10.2016, 12:26. Просмотров 868. Ответов 2

Приветствую.
Думаю, все знают что на вкладке Internet есть такой компонент как WebBrowser1.
Так вот, если загрузить в него (с помощью него) документ, будь он локальный или в интернете, его можно зумировать. Для этого нужно нажать клавишу Ctrl и покрутить колесико мышки.
Вопрос: Как зумировать документ используя только кнопки, которые я запрограммирую на зумирование. Искал ответ, но не получается. Помогите пожалуйста.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.10.2016, 12:26
Ответы с готовыми решениями:

WebBrowser Delphi
Вобщем проблема в том что, когда WebBrowser прогружает сайт размеры сайта...

DELPHI (WebBrowser)
Как создать условие ? if WebBrowser1.Refresh:=True; then begin end;

Webbrowser в Delphi
Здраствуйте! Вот такая проблема, типа електроная книга (с помощью компонента...

Delphi и Webbrowser
Добрый день. Задачка простая, но я не понимаю почему не работает. 1 кнопка и 1...

Delphi + Webbrowser + фреймы
Помогите изменить внешний вид данной странички...

2
kwinto
55 / 83 / 24
Регистрация: 27.02.2010
Сообщений: 397
09.10.2016, 12:38 2
Лучший ответ Сообщение было отмечено Hinc как решение

Решение

Delphi
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
var
  Form1: TForm1;
  zoom: olevariant;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  WebBrowser.Navigate('www.yandex.ru');
  zoom:=100;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  zoom:=zoom + 1;
  WebBrowser.ExecWB(63, OLECMDEXECOPT_DONTPROMPTUSER, zoom);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  zoom:=zoom - 1;
  WebBrowser.ExecWB(63, OLECMDEXECOPT_DONTPROMPTUSER, zoom);
end;
1
Hinc
2 / 2 / 2
Регистрация: 28.02.2016
Сообщений: 158
09.10.2016, 12:41  [ТС] 3
Спасибо.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.10.2016, 12:41

Delphi webbrowser DOM
Нужно событие по построение DOM дерева у WebBrowser . Что можете посоветовать...

Delphi. WebBrowser + Javascript
Доброго времени суток! Мне нужен код который будет нажимать на кнопку...

Delphi + WebBrowser + запросы и пакеты
вот примерно есть такой вариант. Два приложения. В одном приложении (клиент)...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru