procedure TForm1.FormCreate(Sender: TObject);
begin
if(not FileExists('help.htm')) then
begin
Form1.WebBrowser1.Hide;
ShowMessage('Файл "help.htm" відсутній');
exit;
end;
Form1.WebBrowser1.Navigate(ExtractFilePath(ParamStr(0))+'help.htm');
end;
Открытие веб-страниц
Как в Делфи из колонки Грида открыть веб-страницу?
Использовал дополнительную форму с браузером....не открывается страница
фрагмент кода:
procedure Tfm.result.DBGridResCellClick(Column: TColumnEh);
Begin
if ((column.Field.Name = 'web') then
fmbrowser.Webbrowser1.Navigate(column.Field.Value);
End;
column.Field.Value - там адрес страницы
Посоветуйте чем лечить
----------------------------------
Все...вылечил сам
Использовал дополнительную форму с браузером....не открывается страница
фрагмент кода:
procedure Tfm.result.DBGridResCellClick(Column: TColumnEh);
Begin
if ((column.Field.Name = 'web') then
fmbrowser.Webbrowser1.Navigate(column.Field.Value);
End;
column.Field.Value - там адрес страницы
Посоветуйте чем лечить
----------------------------------
Все...вылечил сам
Расскажу как я это делал просто на форме:
Пихнул на форму WebBrowser
последняя строка это берётся нулевой параметр (полный путь файла),ExtractFilePath удаляет имя исполняемого файла, и добавляю имя хтмл.
я так делал потому что мне надо было чтобы док лежал вмести с ехе (тобиш относительный путь)
ну а с гридом там вроде проще)
Пихнул на форму WebBrowser
Код:
последняя строка это берётся нулевой параметр (полный путь файла),ExtractFilePath удаляет имя исполняемого файла, и добавляю имя хтмл.
я так делал потому что мне надо было чтобы док лежал вмести с ехе (тобиш относительный путь)
ну а с гридом там вроде проще)