Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];




Вниз

По поводу закрытия форм 


Beeper   (2002-03-02 00:18) [0]

Хочу сделать заставку (avi), чтоб проигрывалась при запуске.
Как сделать, чтобы при запуске неглавная форма появилась, а при завершении ролика (проигрываемого TMediaPlayer"ом размещенном на ней) сама закрылась?
Пытался так -не выходит

begin
mp1.Play;
while a < mp1.Length do
a:= mp1.Position;
form2.Close;
end;



Anar   (2002-03-02 00:25) [1]

Используй событие

procedure Form1.Create (Sender: TObject);
begin
form1.visible:=false;
mp1.play // сам разберёшься с файлом окрытием и т.д.
...
form1.visible:=true;
end;



lipskiy   (2002-03-02 00:27) [2]

В файле .dpr пишешь примерно следующее:

With TFormAvi.Create(Application) do // запуск формы-заставки
TRY
Show;
UpDate;
{ тут проигрываешь авишку }
Application.Initialize;
Application.CreateForm(TForm1, Form1); // запуск главной формы
FINALLY
Free;
END;
Application.Run;



Beeper   (2002-03-08 23:44) [3]

Не, народ, так не хочет! Не забывайте, доступа к этим пораметрам нет при инициализации! (Visible в смысле)
при использовании подобного - ошибка :(
With TFormAvi.Create(Application) do // запуск формы-заставки
TRY
Show;
UpDate;
{ тут проигрываешь авишку }
Application.Initialize;
Application.CreateForm(TForm1, Form1); // запуск главной формы
FINALLY
Free;
END;
Application.Run;

у кого идеи еще? Очень нужно!



Beeper   (2002-03-08 23:49) [4]

Забыл добавить - когда указываю на MediaPlayer в коде проекта (не формы)как посоветовал lipskiy - компилятор говорит что это неизвестный идентификатор



Dimk   (2002-03-09 00:52) [5]

да не связывайся ты с этой with
эта конструкция создает временный указатель на TFormAvi
( Ты лучше в доке про with прочитай - там все написано )
а лучше сделай попростому
в DPR

// а то Delphi не знает же ничего про плейер еще.
uses ......, МодульГдеУТебяMediaPlayerОбъявляется, МодульГдеУТебяTFormAvi;

var
avi: TFormAvi;
begin
try
avi := TFormAvi.Create(Application);
avi.Show;
avi.UpDate;
{ тут проигрываешь авишку }
Application.Initialize;
Application.CreateForm(TForm1, Form1); // запуск главной формы
finally
avi.Free;
end;
end.



Anatoly Podgoretsky   (2002-03-09 02:44) [6]

Не слушай, если кто то не любит или не умеет работать с with, то это не повод от отказа.



Johnmen   (2002-03-09 03:25) [7]

>Все те, кто не понимает сущности WITH , не понимает сущности программирования на PASCAL !!! (как минимум)




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.028 c
1-80472           Vovik                 2002-03-12 10:16  2002.03.25  
Мастера , подскажите


3-80449           IronHawk              2002-02-25 12:34  2002.03.25  
Приветствую Мастеров ! Как ПрАвИлЬнО отобразить содержимое DBGrid-a в DBLisBox-e ?


3-80429           new                   2002-02-26 10:35  2002.03.25  
Kak konetktirovat s MSSQL Server chtobi rabotal bistree?


1-80606           Well                  2002-03-11 14:07  2002.03.25  
Путь к файлу


1-80576           Nic                   2002-03-10 12:59  2002.03.25  
TStringGrid