Ver Mensaje Individual
  #5  
Antiguo 14-04-2011
arrayman arrayman is offline
Miembro
 
Registrado: abr 2006
Posts: 55
Reputación: 19
arrayman Va por buen camino
Bueno casi que me da verguenza decir esto. en fin el asunto es que al estar los componente internos con align alclient(o altop) nunca llegan a ser mas grandes que la superficie del scrollbox (upss)

al final quedo sin hacer uso el codigo ecfisa (muchisimas gracias)
y aunque es un poco ñapa hago esto.

Código Delphi [-]
procedure TVisorFra.ScrollBox1Resize(Sender: TObject);
var
  i:integer;
  oResItem:TResItemFra;
begin
  for i := 0 to ScrollBox1.ControlCount - 1 do
  begin
    if ScrollBox1.Controls[i] is TResItemFra  then
    begin
      oResItem := TResItemFra(ScrollBox1.Controls[i]);
      oResItem.Align := alNone;
      oResItem.Top := i*oResItem.Height;
      oResItem.Width := 1980;
      //oresItem.Width := ScrollBox1.Width+ 2;
    end;
  end;
end;


nuevamente gracias, he aprendido de ti.
Responder Con Cita