WebBrowser: переход между веббраузерами по нажатию кнопки

@willgelm · Регистрация: 15.03.2017

Студворк — интернет-сервис помощи студентам

Добрый день, у меня такой вопрос: допустим в одну форму я добавил несколько элементов WebBrowser и к каждому из них подсоединил отдельный документ (текст) по определенному порядку. Можно ли добавить 2 кнопки ("Предыдущий" и "Следующий"), чтобы по нажатию например на "Следующий" он переходил именно на тот WebBrowser, который добавлен после активного (который открыт на данный момент)?

@willgelm · 04.05.2017, 17:15 **[ТС]**

YuryK, volvo, спасибо огромное! Особенно Вам, YuryK, очень круто помогли!

@willgelm · 03.06.2017, 22:16 **[ТС]**

YuryK, а можно вашим способом сделать так же по нажатию на строки DBGrid? Какой-нибудь общий обработчик

@YuryK · 04.06.2017, 00:04

естественно. В гриде только одна запись реальная - текущая, остальные - нарисованные, поэтому в обработчике просто выбираем значение поля текущей записи набора данных, который и будет параметром для дальнейших действий

@willgelm · 04.06.2017, 11:43 **[ТС]**

YuryK, в DBGrid1DblClick надо же выбирать текущую запись?

@YuryK · 04.06.2017, 13:37

зачем? в нем она всегда выбрана. Если нужна другая, в гриде же и перейдите.
в DBGrid1DblClick надо работать с текущей записью набора данных, в нем отображаемого

@willgelm · 04.06.2017, 20:01 **[ТС]**

YuryK, а куда тогда обработчик писать? Какое событие?

@YuryK · 04.06.2017, 23:51

Delphi
1
2
3
4
5
procedure TForm3.DBGrid1DblClick(Sender: TObject);
begin
   dbGrid1.DataSource.DataSet.FieldByName('Id').AsInteger
  // это Id текущей записи грида
end;

@willgelm · 05.06.2017, 15:00 **[ТС]**

YuryK, Спасибо! И еще вопрос: можно ли в Delphi сделать так: н-р на форме 2 кнопки, нажимаешь на одну кнопку - выходит диалоговое окошко, где просит выбрать pdf документ, выбираешь, и если нажать на другую кнопку - этот pdf-документ сохраняется под необходимым порядковым числом в определенной папке?

@YuryK · 05.06.2017, 15:10

естественно можно. настроить OpenDialog так, чтобы он показывал файлы с расширением pdf.
и кнопки достаточно одной

Delphi
1
2
3
4
5
6
7
8
procedure TForm3.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then begin
    //копируем файл OpenDialog1.FileName в определеннкю папку
    //одним из понравившихся способов способов
 
  end;
end;

@willgelm · 06.06.2017, 12:26 **[ТС]**

YuryK, так же должно быть? для показа pdf файлов

Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm8.NavigatePage(APage: string);
var
   fn: string;
begin
  fn := ExtractFilePath(Application.Exename)+'uchebniki\' + APage +  '.pdf';
  if FileExists(fn) then begin
    Form7.CurrentPage := StrToInt(APage);
    Form7.Show;
    form7.AcroPDF1.LoadFile(fn);
  end;
end;

Добавлено через 19 часов 47 минут
YuryK,
и в событии написал так:

Delphi
1
2
3
4
5
6
7
procedure TForm8.DBGrid1DblClick(Sender: TObject);
var n:integer;
begin
  form8.close;
  n:=DBGrid1.DataSource.DataSet.FieldByName('Id').AsInteger;
  NavigatePage((Copy(n,6,10));
end;

но думаю, я вообще не туда пошел. Помогите разобраться, пожалуйста!

Добавлено через 5 минут

Сообщение от willgelm

NavigatePage((Copy(n,6,10));

Что нужно вот здесь прописать?

@willgelm · 08.06.2017, 16:20 **[ТС]**

YuryK,

Сообщение от willgelm

NavigatePage(Copy(Sender.Name, 6, 10));

можете объяснить вот эту строку, пожалуйста?

@YuryK · 08.06.2017, 23:48

помнится параметром NavigatePage была строка вида '1', '2' и т.д.
т.к. этот код висел на обработчике меток с именами 'Label1', 'Label2', то этот оператор и вырезал из имени компонента нужный "номер".

Соответственно, в #30 должно быть просто

Delphi
1
NavigatePage(DBGrid1.DataSource.DataSet.FieldByName('Id').AsString);

Новые блоги и статьи Все статьи Все блоги /
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .
Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .

@willgelm 0 / 0 / 0 Регистрация: 15.03.2017 Сообщений: 50

	WebBrowser: переход между веббраузерами по нажатию кнопки 01.05.2017, 15:07. Показов 3139. Ответов 31 Метки нет (Все метки) Добрый день, у меня такой вопрос: допустим в одну форму я добавил несколько элементов WebBrowser и к каждому из них подсоединил отдельный документ (текст) по определенному порядку. Можно ли добавить 2 кнопки ("Предыдущий" и "Следующий"), чтобы по нажатию например на "Следующий" он переходил именно на тот WebBrowser, который добавлен после активного (который открыт на данный момент)? 0

@willgelm 0 / 0 / 0 Регистрация: 15.03.2017 Сообщений: 50
	04.05.2017, 17:15 [ТС]
	YuryK, volvo, спасибо огромное! Особенно Вам, YuryK, очень круто помогли! 0

@willgelm 0 / 0 / 0 Регистрация: 15.03.2017 Сообщений: 50
	03.06.2017, 22:16 [ТС]
	YuryK, а можно вашим способом сделать так же по нажатию на строки DBGrid? Какой-нибудь общий обработчик 0

@YuryK 1040 / 856 / 335 Регистрация: 08.12.2016 Сообщений: 3,283
	04.06.2017, 00:04
	естественно. В гриде только одна запись реальная - текущая, остальные - нарисованные, поэтому в обработчике просто выбираем значение поля текущей записи набора данных, который и будет параметром для дальнейших действий 0

@willgelm 0 / 0 / 0 Регистрация: 15.03.2017 Сообщений: 50
	04.06.2017, 11:43 [ТС]
	YuryK, в DBGrid1DblClick надо же выбирать текущую запись? 0

@YuryK 1040 / 856 / 335 Регистрация: 08.12.2016 Сообщений: 3,283
	04.06.2017, 13:37
	зачем? в нем она всегда выбрана. Если нужна другая, в гриде же и перейдите. в DBGrid1DblClick надо работать с текущей записью набора данных, в нем отображаемого 0

@willgelm 0 / 0 / 0 Регистрация: 15.03.2017 Сообщений: 50
	04.06.2017, 20:01 [ТС]
	YuryK, а куда тогда обработчик писать? Какое событие? 0

@willgelm 0 / 0 / 0 Регистрация: 15.03.2017 Сообщений: 50
	05.06.2017, 15:00 [ТС]
	YuryK, Спасибо! И еще вопрос: можно ли в Delphi сделать так: н-р на форме 2 кнопки, нажимаешь на одну кнопку - выходит диалоговое окошко, где просит выбрать pdf документ, выбираешь, и если нажать на другую кнопку - этот pdf-документ сохраняется под необходимым порядковым числом в определенной папке? 0