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

Регистрация: Oct 2010
Сообщений: 51
весь проект будет выглядеть так:
Код:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, ShockwaveFlashObjects_TLB, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    mv: TShockwaveFlash;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  form1.Width:=1024;
  form1.Height:=768;
  panel1.Align:=alClient;
  mv.Movie := ExtractFilePath(Application.ExeName) + 'DelphiToFlash.swf';
end;

end.
дальше ищете VCL компонент для работы с разрешением экрана. меняете на нужное.
ну посути еще 4 строчки добавится.
скачать и потестить софтину можете тут. только пока без смены разрешения. лень компонент искать. =) смените пока вручную на 1024x768: http://www.dart35.ru/worked.rar


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