Sumário:
- Arquivos nescessários.
- Tutorial.
- Créditos.
- Agradecimentos.
~*~
- Arquivos nescessários:Delphi 7
- Tutorial:
Primeiramente abra o Delphi e redimensione a tela da **** até que fique mais ou menos desta maneira:
Click this bar to view the original image of 461x142px.
Em seguida, adicione um TButton ( localizado na parte Standart ), um TOpenDialog ( localizado na parte Dialogs ) e um TMediaPlayer ( localizado na parte System ):
Organize mais ou menos assim:
Agora renomeie o TButton para "Abir" pelo Caption:
Click this bar to view the original image of 644x306px. Dê um duplo clique no TButton, apague o código e adicione o seguinte código:Código:procedure TForm1.Button1Click(Sender: TObject); beginEntão, vá na propriedade "Filter" do objeto TOpenDialog e adicione os seguintes itens:Código:procedure TForm1.BitBtn1Click(Sender: TObject); begin MediaPlayer1.Close; if OpenDialog1.Execute then begin MediaPlayer1.FileName := OpenDialog1.FileName; MediaPlayer1.Open; end; end;Agora Salve e Compile o seu projeto.
0 comentários:
Postar um comentário