김범석 wrote:

> 고수님들의 조언 많이 기다리겠습니다

>

> 스플레쉬 화면에서 한 5초정도 되는 MPEG 동영상으 풀화면으로 재생하려고

>

> 하는데 쉽지가 않아요 아시는 분 꼭 알려주세요



아무도 답변을 안하는 군요 쩝..



그냥 내가 하는 방식으로 설명하겠습니다.



begin

Application.Initialize;

formSplash:=TformSplash.Create(Application);

formSplash.Show;

formSplash.Refresh;

sleep(5000); // 여기에서 시간을 끌면 되것지요..

Application.CreateForm(TForm1, Form1);

formSplash.Free;

Application.Run;

end.





그리고, 시스템 팔레트에 있는 미디어플레이어 컴포넌트로 풀화면을 쓰는방법은

(미디어플레이어 컴포는 mpg지원합니다.)



우선 스플레쉬창을 전체화면 꽉차게 만드시면 되구요.

거기서 미디어플레어의 속성중 visible를 false로 display를 폼에 꽉차게한 panel에 설정합니다.



그리고.



폼 크리에이트 이벤트 부분에서...



var

Disrect : Trect;

begin

Disrect.top:=0;

Disrect.left:=0;

Disrect.right:=panel.width;

Disrect.bottom:=panel.heigh;



mediaplayer.Displayrect := Disrect;

end;



이러면 화면 꽉차게 할수 있것네여...

행복하셔요..~ 규춘올림.