Uso correcto de TFrame

[[Lepe]]

A ver que te parece este invento:

Te creas una nueva ventana, llamemosla form3, dentro colocas el frame que quieres, y en tiempo de ejecución, lo que haces es camuflar el form3, bien poniendolo entre el Splitter o bien sacandolo fuera.

Lo que estoy haciendo en este código es cambiando el padre de la ventana Form3 y ocultando la barra de titulo. Le he puesto color rojo al Form3 para que se vea cuando pulsas el boton 1.

Adicionalmente, tendrás que modificar el Form3.Align := AlRight; para que al meterlo dentro del Form1, se quede en la posición correcta, es decir entre el Listview, el Splitter, y despues el Form3.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form3.Color := clRed;
  form3.Parent := Self;
  Form3.Top := 0;
  Form3.Left:= 0;
  Form3.Width := 100;
  Form3.Height:= 100;
  Form3.BorderStyle := bsNone;
  Form3.Show;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Form3.Color := clRed;
  Form3.Parent := nil;
  Form3.Top := 0;
  Form3.Left:= 0;
  Form3.Width := 100;
  Form3.Height:= 100;
  Form3.BorderStyle := bsSizeable;
  Form3.Show;
end;

Obviamente, ya no necesitas el frame que tienes puesto, con este del Form3 te vale para todo.
Un saludo

[[Lepe]]

Juer ha quedado chulo el ejemplo

Al pulsar el boton 2 quizás quieras poner el form3.FormStyle a fsOnTop, para que no se oculte detrás del Form1.

Al pulsar el boton 1 ponle el estilo fsNormal

Un saludo

[jars]

Gracias Lepe, lo voy a probar.

[dec]

Hola,

Empezado por Lepe

Juer ha quedado chulo el ejemplo

¡Admiro a la gente que no tiene abuela, como suele decirse!