Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];




Вниз

www браузер 


nastya_   (2002-04-03 19:13) [0]

вопрос такой немного кривой
надо срочно написать свой браузер его написала, есть форма ComboBox в ней вводится адрес, как сделать, что бы при запуске формы сразу стал лезть на забитый адрес? в свойствах ComboBox адрес проставила, то есть насколько я понимаю нужно при запуске формы в свойствах Show обработать события нажатия entera примерно так форма открылась автоматом нажимается ентер
пишу Form1.ComboBox1.OnEnter; дает ошибку
[Error] unit1.pas(81): Not enough actual parameters
как правильно сделать?



nastya_   (2002-04-03 19:18) [1]

да сразу добавлю это браузер не для инета он постоянно обращается к одному адресу в интранет сети просто в делфях я новенькая, а мне надо срочно доделать проект



nastya_   (2002-04-03 20:23) [2]

подскажите плиз надо срочно доделать



Andrus   (2002-04-03 20:34) [3]

Ну как минимум
Form1.ComboBox1.OnEnter(nil);

если только в обработчике OnEnter параметр Sender не исползуется



ASM   (2002-04-03 21:51) [4]

Здесь что-то не то, событие OnEnter происходит вовремя получения компонентой (в данном случае ComboBox1) фокуса ввода а не нажатием клавиши Ентер. Здесь нужно вызывать тот обработчик который описан в ComboBox1 при нажатии клавиши Ентер что-то типа


procedure TForm1.ComboBox1KeyPress(var Key:Char;....);
begin
if Key=#13 then //код клавиши Ентер
then OpenURL;
end;

procedure TFormShow(Sender: TObject);
begin
OpenURL;
end;

procedure TForm1.OpenURL;
begin
//Собственно код открытия адреса
end;



Miwa   (2002-04-03 22:04) [5]

Я, конечно, в глаза не видел этого самого компонента web-browser, но разве у него нету свойства Open, OpenURL или чего-то в этом роде? Просто я использую лицензионную фришную Delphi6:Personal Edition, но все же по логике вещей что-то такое там должно "иметь место быть"?..



qwaszx   (2002-04-04 03:28) [6]


procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
begin
if ComboBox1.Text<>"" then
WebBrowser1.Navigate(ComboBox1.Text);
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate(ComboBox1.Text);
end;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.021 c
7-46527           Fellomena             2002-01-18 14:06  2002.04.15  
API, System resources and ******* (inside)


1-46372           Biorobot              2002-04-01 18:29  2002.04.15  
Как програмно отключить монитор?


7-46524           SAlex                 2002-01-23 05:13  2002.04.15  
Как определить возможные размеры шрифтов в системе


1-46334           Mikel Fryg            2002-04-02 22:25  2002.04.15  
Как сделать форму активной?


3-46260           Бур                   2002-03-21 11:54  2002.04.15  
Как восстановить соединение с базой ...