Ver Mensaje Individual
  #2  
Antiguo 15-11-2024
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.141
Reputación: 36
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola a todos,

Es raro: si pongo un "TPageControl" en un formulario y únicamente añado unas cuentas pestañas (sin tocar nada más), ya en tiempo de ejecución, el siguiente código modifica el "Caption" de las pestañas, adaptando el tamaño automáticamente, tal como esperas.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  for var I := 0 to PageControl1.PageCount - 1 do
  begin
    PageControl1.Pages[i].Caption := 'aaaaaaa aaaaaa aaaaaaa';
  end;
end;
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita