|
Вопрос # 4 641/ вопрос открыт / |
|
Как сделать так что бы в Браузере Дельфина отображлася урл и менялся в ходе перехода в ComboBox ?
 |
Вопрос задал: Hakera (статус: Посетитель)
Вопрос отправлен: 8 октября 2010, 20:19
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Тов. Женька
Здравствуйте, Hakera!
procedure TForm1.PageControl1Change(Sender: TObject);
begin
ComboBox1.ItemIndex := PageControl1.ActivePageIndex;
end;
 |
Ответ отправил: Тов. Женька (статус: 3-ий класс)
Время отправки: 8 октября 2010, 20:26
|
Мини-форум вопроса
Всего сообщений: 15; последнее сообщение — 15 октября 2010, 01:24; участников в обсуждении: 3.
|
|
Тов. Женька (статус: 3-ий класс), 8 октября 2010, 20:27 [#1]:
Хмм, что-то не то написал. Так-так-так...
|
|
|
Hakera (статус: Посетитель), 8 октября 2010, 20:39 [#2]:
угу не то...
|
|
|
Тов. Женька (статус: 3-ий класс), 8 октября 2010, 20:43 [#3]:
Вот так, например:
procedure TForm1.wb1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
if ComboBox1.Items.IndexOf(wb1.LocationURL) = -1 then
ComboBox1.Items.Add(wb1.LocationURL);
end;
Т.е., если такого адреса в комбобоксе нет, то добавляем.
|
|
|
Hakera (статус: Посетитель), 8 октября 2010, 20:48 [#4]:
А что бы просто был нельзя сделть что бы не добавлялось нечего?
Сделать так как в обычных браузерах Опера Мозилы ИЕ... просто что бы был урл на той страницы на которой нахожусь
|
|
|
Тов. Женька (статус: 3-ий класс), 8 октября 2010, 20:51 [#5]:
Еще раз, пожалуйста, а то не уловил сути.
|
|
|
Hakera (статус: Посетитель), 8 октября 2010, 20:52 [#6]:
Сделать так как в обычных браузерах Опера Мозилы ИЕ... просто что бы был урл на той страницы на которой нахожусь
|
|
|
Тов. Женька (статус: 3-ий класс), 8 октября 2010, 20:58 [#7]:
procedure TForm1.wb1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
ComboBox1.Text := wb1.LocationURL;
if ComboBox1.Items.IndexOf(wb1.LocationURL) = -1 then
ComboBox1.Items.Add(wb1.LocationURL);
end;
|
|
|
Hakera (статус: Посетитель), 8 октября 2010, 21:01 [#8]:
а как ты сделал эту процедуру, не могу не как понять...ее вродеб как в Events нету((
|
|
|
Тов. Женька (статус: 3-ий класс), 8 октября 2010, 21:15 [#9]:
У TWebBrowser есть событие OnBeforeNavigate2, например. По крайней мере в D7 точно.
|
8 октября 2010, 21:16: Вопрос перемещён из тематического раздела Delphi » Общие вопросы по программированию в раздел Delphi » Работа с компонентами и библиотеками модератором Ерёмин А.А.
|
|
Hakera (статус: Посетитель), 8 октября 2010, 21:18 [#10]:
при переходе по ссылке текущий адрес в combobox не меняется
кто знает как ипсравить плиз напишите
|
|
|
Hakera (статус: Посетитель), 8 октября 2010, 21:21 [#11]:
получилось... вот тока он записывает все эти сохранения в Item как сделать так что бы он этого не делал?
|
|
|
Hakera (статус: Посетитель), 8 октября 2010, 21:23 [#12]:
procedure TForm1.wb1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
ComboBox1.Text := wb1.LocationURL;
end;
вот нашел все спасибо тебе огромное!!!УРА
|
|
|
Hakera (статус: Посетитель), 8 октября 2010, 21:31 [#13]:
Как в браузере в Delphi сделать чтобы все в одном окне открывалось?
|
|
|
Hakera (статус: Посетитель), 8 октября 2010, 21:41 [#14]:
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
begin
WebBrowser2.RegisterAsBrowser := true;
ppDisp := WebBrowser2.Application;
end;
нашел ответ
|
|
Byte (статус: Посетитель), 15 октября 2010, 01:24 [#15]:
Хахаха Попросили повторить вопрос потому что сути не уловили, так он и "скопипастил" свой же вопрос в следующее сообщение. Я торчу 
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
