Ver Mensaje Individual
  #4  
Antiguo 08-09-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Madset.

Si no aparecieron las ScrollBars es por que es suficiente el tamaño del ScrollBox para mostrar todo su contenido y no se necesita desplazamiento alguno.

Ahora si lo que buscas es que sí o sí se muestren podés hacer:
Código Delphi [-]
type
 TScrollBox = class(Forms.TScrollBox)
 private
    procedure WMNCCalcSize(var Message: TMessage); message WM_NCCALCSIZE;
 end;
 ....

implementation

procedure TScrollBox.WMNCCalcSize(var Message: TMessage);
var
  Style: Integer;
begin
  Style:= GetWindowLong(Handle, GWL_STYLE);
  SetWindowLong(Handle, GWL_STYLE,Style or WS_HSCROLL or WS_VSCROLL);
  inherited;
end;

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita