|
Esto funciona bien, las barras siempre aparecen si el Range es mayor a alto o ancho del form.
procedure TFrameForm.Tile1Click(Sender: TObject);
var
i : integer;
begin
Tile; // o Cascade;
for i:=0 to MDIChildCount-1 do
begin
MDIChildren[i].VertScrollBar.Range := Height + 1;
MDIChildren[i].HorzScrollBar.Range := Width + 1;
end;
end;
Saludos,
|