Bem Vindo Ao Nosso Fórum TutoriaisBrazil, Onde Cada Um é Repeitado,Regras Existesntes,Categorias Super Bacana E Muinto Mais Venha Visitar + nosso Fórum,Aqui Tem Sistema De Hank e Você Pode Ate Ser ADM,Mod E Etc.Obrigado!

Criando um Player Báscio

Ir em baixo

Criando um Player Báscio

Mensagem por GabrielxD em Qua Out 19, 2011 8:26 am

Primeiramente abra o Delphi e redimensione a tela da Form até que fique mais ou menos desta maneira:
[Você precisa estar registrado e conectado para ver esta imagem.]

Em seguida, adicione um TButton ( localizado na parte Standart ), um TOpenDialog ( localizado na parte Dialogs ) e um TMediaPlayer ( localizado na parte System ).

[Você precisa estar registrado e conectado para ver esta imagem.]

Organize mais ou menos assim:

[Você precisa estar registrado e conectado para ver esta imagem.]

Agora renomeie o TButton para "Abir" pelo Caption:

[Você precisa estar registrado e conectado para ver esta imagem.]

Dê um duplo clique no TButton, apague o código : begin


Código:
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 MediaPlayer1.Close;
 if OpenDialog1.Execute then
 begin
  MediaPlayer1.FileName := OpenDialog1.FileName;
  MediaPlayer1.Open;
 end;
end;

Então, vá na propriedade "Filter" do objeto TOpenDialog e adicione os seguintes itens:

[Você precisa estar registrado e conectado para ver esta imagem.]

Agora Salve e Compile o seu projeto.

Creditos: Delphi-School
avatar
GabrielxD
Membro De Honra
Membro De Honra

Mensagens : 34
Data de inscrição : 17/10/2011
Idade : 22
Localização : Praia Grande

Ver perfil do usuário http://death-brasil.forumeiros.com/

Voltar ao Topo Ir em baixo

Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum