Ver Mensaje Individual
  #5  
Antiguo 12-09-2007
Khronos Khronos is offline
Miembro
 
Registrado: abr 2007
Posts: 298
Reputación: 18
Khronos Va por buen camino
Muchas gracias por las respuestas pero ya encontre la solucion con 2 sencillas funciones que hice:

Código Delphi [-]
function ScreenHeigth(y : integer): integer;
const
BarraTareas=29;
var
Altura: integer;
begin
Altura:= screen.Height - BarraTareas;
result:= Altura - y;

end;

function ScreenWidth(x : integer): integer;
var
Ancho: integer;
begin
Ancho:= screen.Width +2; // 2 es el borderwith del form
result:= Ancho - x;
end;



var
Rectangulo :TRect;
begin
with Rectangulo do
   begin
     Left:=0;
     Top:=0;
     Right:=Fmini.Width;
     Bottom:=FMini.Height;
   end;
mediaplayer1.Display:=FMIni.PVideo;
   MediaPlayer1.DisplayRect:=Rectangulo;
FMini.timer2.enabled:=true;
   FMini.PControles.Top:=104;
   FMini.Top:=ScreenHeigth(FMini.Height);
   FMini.Left:=ScreenWidth(FMini.Width);
   Fmini.showmodal;

Como sospechareis es para hacer una mini ventanita en la esquina de la pantalla como hace el reproductor de windows, por fin lo consegui

Que bien se ven los videos!!

Salu2
Responder Con Cita