Ir para conteúdo
Banner com Efeitos

Featured Replies

Postado

# Arquivos nescessários:

Delphi 7

# Tutorial:

Primeiramente abra o Delphi e redimensione a tela da Form até que fique mais ou menos desta maneira:

semttulojem.jpg

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

semttulo5yqv.jpg

Organize mais ou menos assim:

semttulo3tgg.jpg

Agora renomeie o TButton para "Abir" pelo Caption:

semttulo4j.jpg

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

procedure TForm1.Button1Click(Sender: TObject);

begin
e adicione o seguinte 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:

figura3.jpg

Agora Salve e Compile o seu projeto !

# Créditos:

Os créditos vão para mateus12m, pelo tutorial e algumas fotos, Guilherme. por trazer ao TibiaBOTS. Créditos também para o Delphi-School pelo baseamento do tópico e 1 imagem.

29161_4.png

 

 

2d168ur.png

 

Postado

ninjisse isso eu nem tento faze pq se não sai merda D:

Abracz:*

__________________________
Leia as Regras :}
Member nº:407 ;P

Participe da conversa

Você pode postar agora e se cadastrar mais tarde. Se você tem uma conta, faça o login para postar com sua conta.

Visitante
Responder

Quem Está Navegando 0

  • Nenhum usuário registrado visualizando esta página.

Estatísticas dos Fóruns

  • Tópicos 96.9k
  • Posts 519.7k

Informação Importante

Confirmação de Termo