fullscreen и несколько рабочих столов

[knaka]

Добрый день.

Ситуация такая - у компьютера несколько рабочих столов, каждому столу соответствует свой монитор. На каждом столе надо запустеть exe с флешкой. Берем первый стол, изапускаем exe. После запуска программа, как и должна, разварачивается на весь экран. Но она остается там до тех пор пока не потеряет фокус. Т е .если я после запуска щелкну мышкой на меню пуск, или просто на рабочий стол другого дисплея, нажму alt+tab и прочее. Программа выходит из полноэкранного режима.

Как связан фулскрин и фокус? Как мне запустить на каждом мониторе свой экземпляр во всеь экран? Что можете посоветовать?

[fljot]

AIRом можно такое сделать

[knaka]

Тоесть надо сделать паблишь проекта не в exe а в air? как клиент его запустит? я абсолютно не втеме что такое air, можно чуть поподробнее?

[Rox]

создаете делфи проект. ложите компонент TShockWaveFlash и делаете разрешение средствами делфи какое душе угодно)) и не связано никак с фокусом.

[knaka]

а средставами флеша у меня ничего неполучится? попробовал экспортировать программы в AIR но ничего неработает(( как я понял не загружаются данные из xml

[Rox]

а средставами флеша у меня ничего неполучится?

а зачем изобретать велосипед, когда уже все есть готовое. компоненты классы треи. для делфи уже все есть. Вам же .exe нужно? Не вижу способа более простого чем кинуть на делфи форму компоненты TPanel и TShockWaveFlash и поменять разрешение экрана стандартной функцией +)
Другое дело, если для веб, там все сложнее.

[knaka]

Спасибо) с названием компоненотов стало гораздо нонятнее) сейчас почитаю что такое делфи и попробую

[Rox]

если не получится что-то - обращайтесь. сделаю приложение с загрузкой вашего свф. Учтите что нормально работает только 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]

Для оформления своего кода надо использовать теги [code][/code]

[Rox]

весь проект будет выглядеть так:

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