osea tengo dos buttons, uno es para expandir y el otro es para contraer, te muestro mi codigo que le coloque a ambos button's los cuales me expande el panel y contrae
Boton Contrae
Código Delphi
[-]
procedure TfrmSubFamilias.btnContraeClick(Sender: TObject);
begin
if Panel1.Width = 1140 then
begin
Panel1.Width := 681;
btnExpande.Visible := True;
btnContrae.Visible := False;
end;
end;
Boton expande
Código Delphi
[-]
procedure TfrmSubFamilias.btnExpandeClick(Sender: TObject);
begin
if Panel1.Width = 681then
begin
Panel1.Width := 1140;
btnExpande.Visible := False;
btnContrae.Visible := True;
end;
end;
Este es mi panel contraido
contraido.jpg
y este es expandido
expandido.jpg
Controlado por el button, pero me gustaria que cuando expando fuera lento el proceso de expandir con unefecto de suavidad, me explico!