[C4eLoveK]

Написал справочник на Delphi EX2,с использованием sTreeView и WebBrowser(думаю знаете данную технологию), изначально работал, но когда подключил alphacontrols на WebBrowser перестали выводиться .htm файлы..
Помогите пожалуйста определить ошибку...программа запускается..
Вот исходник: http://depositfiles.com/files/xy4o8hzte

Вот код:

Код:

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, sSkinManager, Vcl.ExtCtrls, sPanel,
  Vcl.Menus, Vcl.StdCtrls, sGroupBox, Vcl.ComCtrls, sTreeView, Vcl.OleCtrls,
  SHDocVw;
 
type
  TForm1 = class(TForm)
    sSkinManager1: TsSkinManager;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    sGroupBox1: TsGroupBox;
    sGroupBox2: TsGroupBox;
    sTreeView1: TsTreeView;
    WebBrowser1: TWebBrowser;
    procedure sTreeView1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.sTreeView1Click(Sender: TObject);
begin
if (sTreeView1.Selected.Text = 'Главная')then
begin
WebBrowser1.Navigate(GetCurrentDir+'/data/index1.htm');
end;
 
if (sTreeView1.Selected.Text = 'Основные понятия')then
begin
WebBrowser1.Navigate(GetCurrentDir+'/data/index2.htm');
end;
 
if (sTreeView1.Selected.Text = 'Тест')then
begin
WebBrowser1.Navigate(GetCurrentDir+'/data/index3.htm');
end;
end;
 
end.

[C4eLoveK]

не ужеди все так глупы и не знают???

[YVitaliy]

Ну, видимо так и есть. Зачем мне подключать сторонние компоненты, лишь чтобы проверить какую-то ошибку? Тут вывод прост: не подключай AlphaControls. И точка.

[nixel]

как вариант - вместо альфаконтролс для Vcl можно использовать родные Vcl.Styles, ну а для FireMonkey вообще все проще. Уж если сели за delphi XE2