1 [TUTORIAL]como criar um player no delphi Sex Abr 29, 2011 6:03 pm
gun`s rose
Membro
Sumário:
- Arquivos nescessários.
- Tutorial.
- Créditos.
- Arquivos nescessários:
Delphi 7
- Tutorial:
1ªabra o delphi e tente deixar a form dessa forma
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:
agora de um clike duplo no botão apague isso:
E adicione isso:
Então, vá na propriedade "Filter" do objeto TOpenDialog e adicione os seguintes itens:
Agora Salve e Compile o seu projeto.
- Créditos:
Os créditos vão para mim, pelo tutorial postado aqui e algumas
fotos.Créditos também para o Delphi-School pelo baseamento do tópico e 1
imagem.
- Arquivos nescessários.
- Tutorial.
- Créditos.
- Arquivos nescessários:
Delphi 7
- Tutorial:
1ªabra o delphi e tente deixar a form dessa forma
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:
agora de um clike duplo no botão apague isso:
- Código:
procedure TForm1.Button1Click(Sender: TObject);
begin
E adicione isso:
- 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:
Agora Salve e Compile o seu projeto.
- Créditos:
Os créditos vão para mim, pelo tutorial postado aqui e algumas
fotos.Créditos também para o Delphi-School pelo baseamento do tópico e 1
imagem.