Videos em um Panel - Códigos Delphi

Videos em um Panel

// Executa Videos em um Panel.

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;