Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.06.15;
Скачать: CL | DM;

Вниз

Помогите с пунктами   Найти похожие ветки 

 
StiTch ©   (2008-05-22 20:22) [0]

Удалено модератором
Примечание: восстановление закрытой ветки


 
zensan ©   (2008-05-22 20:28) [1]

ComboBox.ItemIndex не пойдёт...?


 
StiTch ©   (2008-05-22 20:30) [2]

а как это будет выглядеть?


 
ZENsan ©   (2008-05-22 20:33) [3]

var
 FileIndex: Integer;

...

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
 if ComboBox.ItemIndex <> FileIndex then
   begin
     FileIndex := ComboBox.ItemIndex;
     Webbrowser1.Stop;
     Webbrowser1.Navigate(Format("F:\%d.html", [FileIndex]));
   end;
end;


 
StiTch ©   (2008-05-22 20:37) [4]

всё равно не понятно...объясни плиз...


 
TIF ©   (2008-05-22 20:39) [5]

Я уже дал ответ в прошлой ветке! Повторить?!


 
StiTch ©   (2008-05-22 20:40) [6]

какой бы пункт не выбирал открываеца тока 1.html


 
TIF ©   (2008-05-22 20:43) [7]

Я посоветовал БЕСПЛАТНЫЙ КОМПОНЕНТ

В котором всё это реализовано. Всё готовое, на блюдечке, даже мучаться не надо


 
Терапевт   (2008-05-22 20:45) [8]


> StiTch ©   (22.05.08 20:22)  
> Слишком быстро закрывают темы...

Ладно хоть не удаляют...

http://www.delphimaster.ru/forums.shtml
Рекомендуется:
....................
Корректно оформляйте заголовок ветки, который должен кратко отражать суть вопроса. Ветки, озаглавленные «Нужна помощь», «Срочно, горю», «Help», «Памогите, кто знаете» и т.п. будут удаляться в обязательном порядке.


 
StiTch ©   (2008-05-22 20:46) [9]


> Я посоветовал БЕСПЛАТНЫЙ КОМПОНЕНТВ котором всё это реализовано.
>  Всё готовое, на блюдечке, даже мучаться не надо

низя...нада именно самому...без компонентов дополнительных


 
TIF ©   (2008-05-22 20:48) [10]

> низя...нада именно самому...без компонентов дополнительных

Это где такие условия жёсткие? Опять какая-нить курсовая горит и надо срочно завтра сдать?

Ладно, сейчас специально в делфи попробую смоделировать :)


 
StiTch ©   (2008-05-22 20:52) [11]

да не..не срочно...но хочу поскорее сделать...
я думаю,что это не сложно...просто не пойму принцип...
смотри...есть ComboBox...в нём
Пункт1
Пункт2
Пункт3

нада чтобы при выборе пункт1 открывался файл 1.html
при выборе пункт2 открывался файл 2.html
при выборе пункт3 открывался файл 3.html

можно ли сделать через If Then???
или как?


 
TIF ©   (2008-05-22 20:58) [12]

Сделал за полминуты :)))

procedure TForm1.ComboBox1Change(Sender: TObject);
begin

 Memo1.Lines.LoadFromFile("C:\Users\Public\555\"+IntToStr(ComboBox1.ItemIndex+1)+".txt");

end;

Думаю, не проблема, вместо .txt написать .htm, вместо Memo использовать WebBrowser

У ComboBox свойство Style я выставил как csDropDownList

Разобраться с кодом думаю будет просто ;)

PS:
>     FileIndex := ComboBox.ItemIndex;
>     Webbrowser1.Stop;
>     Webbrowser1.Navigate(Format("F:\%d.html", [FileIndex])
> );

А не является ли тут переменая FileIndex лишней? Навигацию можно было сделать и без неё...

Но всё равно, этот код не прокатит. Смотри мой и удачи :^)


 
TIF ©   (2008-05-22 20:58) [13]

> переменая
Sorry великому-могучему: переменная


 
StiTch ©   (2008-05-22 20:59) [14]

ща попробую...не расходитесь плиз)))


 
TIF ©   (2008-05-22 21:04) [15]

Я практически весь день на связи %) Так что не разойдусь ;)


 
StiTch ©   (2008-05-22 21:04) [16]

пишет
[Error] Unit1.pas(246): Undeclared identifier: "LoadFromFile"
[Error] Unit1.pas(248): "." expected but ";" found
[Warning] Unit1.pas(254): Text after final "END." - ignored by compiler
[Fatal Error] Project1.dpr(5): Could not compile used unit "Unit1.pas"

чё делать???


 
TIF ©   (2008-05-22 21:07) [17]

У браузера нет загрузки из файлов :) Не надо так буквально понимать "заменить мемо на веббраузер" %)

Я имел ввиду заменить

Memo1.Lines.LoadFromFile("C:\Users\Public\555\"+IntToStr(ComboBox1.ItemIndex+1)+".txt");
на
Webbrowser1.Navigate("C:\Users\Public\555\"+IntToStr(ComboBox1.ItemIndex+1)+".htm");



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

Текущий архив: 2008.06.15;
Скачать: CL | DM;

Наверх




Память: 0.5 MB
Время: 0.019 c
2-1211275674
fenixgold
2008-05-20 13:27
2008.06.15
Как правильно создать динамически ComboBox и удалить


10-1146336314
&amp;rey
2006-04-29 22:45
2008.06.15
Вызов Поиска решения Excel из Delphi


2-1211225363
Чайник
2008-05-19 23:29
2008.06.15
Оператор цикла For - порядок выполнения


2-1211222703
AeRo
2008-05-19 22:45
2008.06.15
работа с ListBox


15-1209957450
Lerok
2008-05-05 07:17
2008.06.15
несовместимость с Vista