Показать сообщение отдельно
Старый 06.11.2010, 16:38
Rox вне форума Посмотреть профиль Найти все сообщения от Rox
  № 8  
Ответить с цитированием
Rox
Banned

Регистрация: Oct 2010
Сообщений: 51
если не получится что-то - обращайтесь. сделаю приложение с загрузкой вашего свф. Учтите что нормально работает только TShockWaveFlash. Остальные компоненты не качайте. они все ужасно баганутые +)

вот пример использования компонента:
___________________________________________
Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
  try
    mv.Movie := ExtractFilePath(Application.ExeName) + 'skin.swf'; //ваш флешь ролик
    mv.Width:=1024; //ширина флешь ролика. этот же размер нужно будет присвоить и форме. можно переменными
    mv.Height:=768; //высота флешь ролика. этот же размер нужно будет присвоить и форме. можно переменными
  except
  //сообщения в случае ошибок
  end;
end;
___________________________________________
так должен выглядеть обработчик события создания формы.
mv - экземпляр TShockwaveFlash;
объявляется в разделе type для класса формы
mv: TShockwaveFlash;

пример:
_____________________________________
Код:
type
  TForm1 = class(TForm)
    Panel1: TPanel;
    mv: TShockwaveFlash;
...
_____________________________________


Последний раз редактировалось udaaff; 06.11.2010 в 17:44.