Reproductor Delphi

[anonymous]

Buenas queria saber si me podrian decir como hacer para poder maximizar un panel haciendole doble click , al reproducir un video ..
Como tienen los reproductores actuales , pensaba en modificar algun evento del panel1 ?
Porfavor ayuden .. Muchas gracias

[[AgustinOrtu]]

Asumiendo que tenes una estructura: Panel dentro del Form (es decir, Panel.Parent := Form)

En el Panel, setea la propiedad Align --> alClient, y
En el Form. setea la propiedad WindowsState --> wsMaximized

[anonymous]

Me queda el formulario ocupando toda la pantalla , yo quisiera dejarlo normal.
Pero al iniciar una pelicula o en cualquier momento .. hacer un doble click y que el panel 1 se maximize en toda la pantalla

[[AgustinOrtu]]

Basicamente lo que tenes que hacer es, en el evento OnDblClick del Panel,

Si Form = Maximizado --> Normal
Sino Form --> Maximizado

Pero es necesario que el panel este alineado alClient (para que se expanda todo lo que su contenedor lo permita)

[anonymous]

Se me maximiza todo el form pero el panel1 queda del mismo tamaño

[[AgustinOrtu]]

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  Panel1.Align := alClient;
  Panel1.Caption := 'Normal';
  Panel1.Color := clRed;
end;

procedure TForm1.Panel1DblClick(Sender: TObject);
begin
  if WindowState = wsMaximized then
  begin
    WindowState := wsNormal;
    Panel1.Caption := 'Normal';
  end
  else
  begin
    WindowState := wsMaximized;
    Panel1.Caption := 'Maximizado';
  end;
end;

Que es lo que necesitas exactamente? Que el tamaño del panel sea el mismo del form? Porque eso es lo que estoy entendiendo y eso es lo que hace el codigo de arriba

[ecfisa]

Hola anonymous.

Empezado por anonymous

Me queda el formulario ocupando toda la pantalla , yo quisiera dejarlo normal.
Pero al iniciar una pelicula o en cualquier momento .. hacer un doble click y que el panel 1 se maximize en toda la pantalla

Según te entiendo, tendrías que usar el evento OnDblClick del TPanel elegido como Display, ejemplo:

Código Delphi [-]
procedure TForm1.PanelDisplayDblClick(Sender: TObject);
begin
  Panel1.Align := alClient;
end;

Ahora, que el video también se maximice dependerá de el tamaño que tenga este...

Saludos

[[escafandra]]

Código Delphi [-]
procedure TForm1.SetFullScreen(Full: boolean);
begin
  if Full then
  begin
    BorderStyle:= bsNone;
    WindowState:= wsMaximized;
    DoubleBuffered:= true;
    Panel1.Align:= alClient;
  end
  else
  begin
  //.........
  end;
end;

Saludos.