[Painbot]

ишу кнужку на диплом) в общем есть много организациооных вопросов)...
Помогите кто чем сможет - ибо я не особо силен в delphi итак
есть архив book , в нем множество .html и 1 .css еще есть две папки с img, для примера код такой =

Код:

procedure TForm1.Button3Click(Sender: TObject);
begin 
WebBrowser1.Navigate('С://book/index.html');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
WebBrowser1.GoBack;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.GoForward;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
AnimateWindow(form2.handle, 6000, aw_blend);
form2.show;
end;


end.

Admin: Пользуемся тегами!

Итак вопросы)

1 - каким образом возможно сделать так чтобы при нажатии Button2 и Button3 не писало ошибку)) какое условие нужно)(ошибка только если книга только открыта и не знает куда переходить в перед и откуда если назад))
2 - как зделать так чтобы книга открывалась не с абсолютного пути тоесть('С://book/index.html') , а с относительного тоесть ('book/index.html')
3- может лучше создать .res файл и впихнуть его в .exe ? но тут вопрос как тогда прописывать кнопки и как они будут работать....

Заранее спасибо, и извините если, что за такие ламерские вопросы)))

[Painbot]

Да еще вопрос как сделать так чтобы когда открывалась .exe сразуже и открывался доапустим index.html? тоесть чтобы обойтись без button3?

[Страдалецъ]

Простейший способ обойти ошибку это поместить все в секцию try except end. Но в этом случае любая ошибка, даже несвязанная с отсутствием странички будет гасится.

Код:

procedure TForm1.Button3Click(Sender: TObject);
begin 
 try WebBrowser1.Navigate('С://book/index.html'); except end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 try WebBrowser1.GoBack; except end;
end;

[Painbot]

Большое СПС)) один вопрос решен)) сегодня попробую ..