Компонент Alpha Skins. Путь к файлу скина.

[demiancz]

Здравствуйте. Такая проблема. Использую компонент Alpha Skins. Там указывается путь к папке где лежат скины. Естественно при переносе программы на другой компьютер путь этот изменяется и скины не работают.
Попытался прописать вот такой код:

sSkinManager1.SkinDirectory:=PChar( ExtractFilePath(Application.ExeName )); // путь где находятся скины (скины в папке с самой программой!!!)
sSkinManager1.SkinName:='NextAlpha' ; // Прописываю какой именно скин нужно использовать.

Но этот код почему то не работает. Помогите кто чем может.

[HyperZen]

Сообщение от demiancz

Но этот код почему то не работает. Помогите кто чем может.

Станно, только что попробовал твой код, все работает:

procedure TForm1.Button1Click(Sender: TObject);
begin
  sSkinManager1.SkinDirectory := ExtractFilePath(Application.ExeName);
  sSkinManager1.SkinName := 'NextAlpha';
end;

Компонент sSkinProvider лежит на форме?

[demiancz]

Все. Проблема решена. В чем проблема была - не знаю. Но когда удалил с формы sSkinManager1, а потом его опять бросил на форму и скомпилировал прогу - все заработало.