Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #2  
Antiguo 10-08-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola sbraceras.

Cita:
No puedo usar ese componente sin asociarle una ventana 'padre'?
No, pero podes enviar el parent como parámetro a la unidad. Por si te sirve de guía, te pongo un código de ejemplo (muy básico) de como podrías hacer:
Código Delphi [-]
unit Unit2;

interface

uses Controls, MPlayer;

type
  TClase = class(TObject)
  private
    ...
    procedure PlayMediaNotify(Sender: TObject);
  public
    ...
    procedure PlayMedia(aWCtrl: TWinControl; const aFileName: string);
    ...
  end;

var
  MClase: TClase;

implementation

...
procedure TClase.PlayMediaNotify(Sender: TObject);
begin
  with TMediaPlayer(Sender) do
    if NotifyValue in [nvSuccessful,nvFailure] then
      Free;
end;

procedure TClase.PlayMedia(aWCtrl: TWinControl; const aFileName: string);
begin
  with TMediaPlayer.Create(nil) do
  begin
    Parent:= aWCtrl;
    Close;
    OnNotify:= PlayMediaNotify;
    FileName:= aFileName;
    Open;
    Play;
  end;
end;
...

end.

Llamada:
Código Delphi [-]
uses Unit2;
...
procedure TForm1.Button1Click(Sender: TObject);
...
begin
  ...
  MClase.PlayMedia(Form1,'C:\Users\Usuario\Music\Prueba.mp3');
end;

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 10-08-2012 a las 10:23:50. Razón: ortografía
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
RXClock y error Control has no parent window miguel_e Varios 14 05-09-2007 22:24:22
Parent, ParentWindow, objetos y el error Control has no parent Window dec Varios 18 07-08-2007 15:02:01
Control has not parent Window peripla Varios 7 06-07-2007 04:26:27
In Design: Control no has parent window Negegoca Varios 1 26-01-2007 17:26:36
Ayuda: Control Has No Parent Window pelaorb68 Varios 10 20-12-2005 20:36:26


La franja horaria es GMT +2. Ahora son las 14:13:22.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi