Buscar

Rodando vídeos em um panel

Código

Begin
if opendialog1.execute then
  begin
  mediaplayer1.filename:= opendialog1.filename;
  mediaplayer1.open;
  mediaplayer1.Perform (wm_lbuttondown,0,$00090009);
  mediaplayer1.Perform (wm_lbuttonup,0,$00090009);
end;
end;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Multimedia
Adicionada dia: 24/06/03
Por: Felipe Monteiro
Visualizada: 3113 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009