Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

По поводу закрытия форм [D6, WinXP]

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

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

Johnmen (2002-03-09 03:25:00) [1]
>Все те, кто не понимает сущности WITH , не понимает сущности программирования на PASCAL !!! (как минимум)

Anatoly Podgoretsky (2002-03-09 02:44:00) [2]
Не слушай, если кто то не любит или не умеет работать с with, то это не повод от отказа.

Dimk (2002-03-09 00:52:00) [3]
да не связывайся ты с этой 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.

Beeper (2002-03-08 23:49:00) [4]
Забыл добавить - когда указываю на MediaPlayer в коде проекта (не формы)как посоветовал lipskiy - компилятор говорит что это неизвестный идентификатор

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

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

lipskiy (2002-03-02 00:27:00) [6]
В файле .dpr пишешь примерно следующее:

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

Anar (2002-03-02 00:25:00) [7]
Используй событие

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »