Meister Cheaty
Bem Vindo Ao Forum Meister Cheaty !
Últimos assuntos
» O melhor skin de cada arma
Ter Abr 13, 2010 11:28 pm por xXBrunoXx

» Download Maple Story
Sab Abr 10, 2010 7:55 am por Ashoole

» Vaucher Hack
Sab Abr 10, 2010 7:24 am por Ashoole

» MINIMIZER - Para jogos FullScreen
Sab Abr 10, 2010 7:18 am por Ashoole

» CASH - Ganhe dinheiro para comprar cash para qualquer jogo
Sab Abr 10, 2010 7:12 am por Ashoole

» Hack the duel
Sex Abr 09, 2010 10:14 am por Ashoole

» Sobre a Area VIP
Sex Abr 09, 2010 10:10 am por Artur

» [Download] << Mania Team Scripts 10.0
Sex Abr 09, 2010 9:53 am por Artur

» [Tutorial] Grand Chase mais Rápido!
Sex Abr 09, 2010 9:47 am por Artur

Contador
Top dos mais postadores
Ashoole (38)
 
Artur (38)
 
xXBrunoXx (16)
 


Fazendo Player

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Fazendo Player

Mensagem por Ashoole em Sex Abr 09, 2010 7:54 am

rimeiramente inicie o delphi e redimencione o forme até que fique do tamanho Desejado.

Altere o Caption do form dando o nome que você quizer, já que é seu player, salve tudo.

Em seguida adicione um TButton e um TOpenDialog, localizado na palheta Dialogs do delphi

No caption do TButton escreva Abrir.

Coloque também um objeto TMediaPlayer encontrado na palheta System.


No evento OnClick do TButton adicione as linhas de código como mostra abaixo:

procedure TForm1.Button1Click(Sender: TObject);
begin
MediaPlayer1.Close;
if OpenDialog1.Execute then
begin
MediaPlayer1.FileName := OpenDialog1.FileName;
MediaPlayer1.Open;
end;
Dimensione os objetos:

Na propriedade Filter do objeto OpenDialog1 adicione os seguintes itens:
*.avi; *.mid; *.mp3; *.wav

No Final seu player deve estar parecido com o esse!

avatar
Ashoole
Fundador
Fundador

Mensagens : 38
Dinheiro: : 3913
Reputação : 0
Data de inscrição : 07/04/2010

Ver perfil do usuário http://forum.meistercheaty.com

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

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