Hola Tonio.
Cita:
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);
Cita:
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.