Modificar tamaño de un TPanel en runtime

[ecfisa]

Hola Tonio.

Empezado por Tonio

Deseo modificar tamaño de un TPanel en runtime y no se como hacerlo

Código Delphi [-]
procedure TForm1.ChangePanelSize(aPanel: TPanel; const SizeX, SizeY: Integer);
begin
  with aPanel do
  begin
    if (Height + SizeY > 0) and (Width + SizeX > 0) then
    begin
      Height := Height + SizeY;
      Width  := Width + SizeX;
    end;
  end;
end;

Llamada:

Código Delphi [-]
    ChangePanelSize(Panel1, -80, 50);

Empezado por Tonio

...
pongo un StatusBar y no me salen las lineas en diagonal, que creo deben salir al poner SizeGrip en True, está en True, pero no salen...

Recuerda que: Consultas diferentes deben ponerse en hilos diferentes.

Saludos.