Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.01.08;
Скачать: [xml.tar.bz2];

Вниз

Прога   Найти похожие ветки 

 
Scripl   (2005-12-17 21:08) [0]

Такая тема...Нужно сделать прогу,в которой при нажатии на кнопочку в Labelе появляеться текст с картинками и при этом на форме открывалась HTML страничка...


 
Zeqfreed ©   (2005-12-17 21:11) [1]

Scripl   (17.12.05 21:08)
Да, отличная тема. А какие вопросы, касающиеся данной темы, Вас более всего мучат?


 
Scripl   (2005-12-17 21:13) [2]

Как сделать такую кнопочку???


 
Scripl   (2005-12-17 21:19) [3]

Ну так вот...как сделать такую кнопочку?и что за компонент нужен для отображения HTML страничек на форме?


 
Zeqfreed ©   (2005-12-17 21:28) [4]

Scripl   (17.12.05 21:19) [3]

> как сделать такую кнопочку?

Как и любую другую - перенести её из палитры компонент на форму.

> что за компонент нужен для отображения HTML страничек
> на форме?

Например, можно использовать TWebBrowser.


 
Scripl   (2005-12-17 21:30) [5]

А можно рассказать об этом поподробнее?
Что сделать чтобы при нажатии на кнопочку в TWebBrowser открылась страничка и одновременно в Labele появилась надпись???
подскажите плиз..


 
Плохиш ©   (2005-12-17 21:45) [6]


> Scripl   (17.12.05 21:30) [5]
> А можно рассказать об этом поподробнее?

А что в справке и книжках не достаточно подробно написано?


 
Zeqfreed ©   (2005-12-17 21:47) [7]

Scripl   (17.12.05 21:30) [5]
А что Вы уже сделали? В чем возникли трудности? Что конкретно не понятно?


 
Scripl   (2005-12-17 22:03) [8]

Я не понял всё,что сказал выше...


 
Scripl   (2005-12-17 22:07) [9]

на форме есть кнопка,label и TWebBrowser ...Я хочу чтобы при нажатии на кнопку в Label появлялся текст а в TWebBrowser открывался определённый HTML файл.


 
kami ©   (2005-12-17 22:12) [10]

Scripl   (17.12.05 22:07) [9]
Вам помогут:
событие кнопки OnClick
свойство Label Caption
метод браузера Navigate
Именно в такой последовательности. Ну и не забывать про справку


 
Zeqfreed ©   (2005-12-17 22:18) [11]

Scripl   (17.12.05 22:03) [8]
Предлагаю Вам воспользоваться книжками/поисковиками и справкой. На форуме Вам могут помочь с конкретными вопросами.


 
Scripl   (2005-12-17 22:26) [12]

У меня конкретный вопрос.
Как открыть файл в TWebBrowser?


 
Zeqfreed ©   (2005-12-17 22:35) [13]

Scripl   (17.12.05 22:26) [12]
Используя метод Navigate экземпляра класса TWebBrowser, в простейшем случае. Для загрузки локального файла легче всего использовать псевдо-протокол file:\\. Пример использования:

procedure TForm1.Button1Click(Sender: TObject);
var
 OD : TOpenDialog;
begin
 OD := TOpenDialog.Create(self);
 try
  OD.Filter := "HTML Files|*.html;*.htm";
  OD.Options := OD.Options + [ofFileMustExist];

  if OD.Execute then
   WebBrowser1.Navigate("file:\\" + OD.FileName);
 finally
  OD.Free;
 end;
end;


 
Scripl   (2005-12-17 22:57) [14]

Вот и всё...Большое СПАСИБО!!!!!!!!!


 
Scripl   (2005-12-17 23:17) [15]

Ещё один вопрос...как сделать чтобы браузер открывал файл в новом окне?


 
Zeqfreed ©   (2005-12-17 23:20) [16]

Scripl   (17.12.05 23:17) [15]
Какой браузер?


 
Scripl   (2005-12-17 23:25) [17]

Я хочу чтобы кнопка была на одной форме и когда на неё нажимаешь TWebBrowser открывал файл в новом окне


 
Zeqfreed ©   (2005-12-17 23:32) [18]

Scripl   (17.12.05 23:25) [17]
Нужно создать дополнительный экземпляр формы во время выполнения программы и вызвать метод Navigate того WebBrowser"а, который будет находиться на только что созданной форме.


 
kami ©   (2005-12-17 23:32) [19]

Что мешает сделать File>New>New Form и положить туда WebBrowser, заменив всего лишь одну строчку на
Form2.WebBrowser1.Navigate... ?


 
kami ©   (2005-12-17 23:33) [20]

А, ну и конечно, потом - Form2.Show


 
Scripl   (2005-12-17 23:33) [21]

Спасиба!!!


 
kami ©   (2005-12-17 23:43) [22]

Так, глядишь, дистанционно, общими усилиями форума и наклепаем очередную супер-пупер надстройку над IE ^)


 
Плохиш ©   (2005-12-18 00:40) [23]

Помогая халявщикам, вы лишаете армию "пушечного мяса".


 
kami ©   (2005-12-18 00:53) [24]

Плохиш ©   (18.12.05 0:40) [23]
Не надо так о армии, мне например в подразделении нужно не пушечное мясо, а люди с мозгами.
Так что вместо армии пусть идет дворником, на нормальную работу его не возьмут.


 
alex-drob ©   (2005-12-18 01:07) [25]


> Помогая халявщикам, вы лишаете армию "пушечного мяса".

По мимо того чтобы программу написать, в большенстве случаев нужно объяснить преподавателю как она работает. Я думаю что это сложно не выучив. Даже если заучить наизусть что делает каждая строчка программы.


 
Scripl   (2005-12-18 17:39) [26]

procedure TForm1.Button1Click(Sender: TObject);var OD : TOpenDialog;begin OD := TOpenDialog.Create(self); try  OD.Filter := "HTML Files|*.html;*.htm";  OD.Options := OD.Options + [ofFileMustExist];
 if OD.Execute then   WebBrowser1.Navigate("file:\\" + OD.FileName); finally  OD.Free; end;end;
всё ок..всё работает...
Только ещё один вопросик...Как сделать чтобы открывался определённый файл?а то открываеться диалоговое окно...


 
mfender ©   (2005-12-18 17:45) [27]


> всё ок..всё работает...
> Только ещё один вопросик...Как сделать чтобы открывался
> определённый файл?а то открываеться диалоговое окно...

А не заметно?
WebBrowser1.Navigate("http:\\www.site\page.htm");  ^))



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.01.08;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.5 MB
Время: 0.008 c
2-1135240151
Вт
2005-12-22 11:29
2006.01.08
Виртуальный диск в памяти


4-1130938577
Piter
2005-11-02 16:36
2006.01.08
Shutdown компьютера.


14-1134222044
Free0n
2005-12-10 16:40
2006.01.08
Дано такое задание:


5-1120567784
Priest
2005-07-05 16:49
2006.01.08
Как программно открыть редактор коллекции свойства


2-1134842934
Scripl
2005-12-17 21:08
2006.01.08
Прога





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский