Ошибка окно не имеет полос прокрутки

← →
Тыва прогер
 
(2010-07-24 05:35)
[0]

Уважаемые Дельфисты помогите срочно разбраться то ли с ошибкой то ли с глюком Windows.
С каких то пор при запуске проекта начала выскакивать ошибка «000233EB. Error reading ComboBox2.Items.Strings: Окно не имеет полос прокрутки.»
Судя по  тому как пишет по русски видимо это связано и самим Windows. Узнать хотя бы на каком  ComboBox2 оно торчит. их у меня пруд пруди.

← →
Тыва прогер
 
(2010-07-24 05:56)
[1]

Нашел я все таки этот злополучный ComboBox. Перетащил его немножко изменив координаты расположения и все заработало. Правда потом он опять выскочил но я еще раз перетащил. И заработало.
Плавающий глюк, видимо скорее всего ошибка виндовс.
Или чо не знаю. У кого какие мысли?

← →
Anatoly Podgoretsky ©
 
(2010-07-24 12:48)
[2]

← →
antonn (work)
 
(2010-07-24 14:09)
[3]

название можно динамически задавать?

← →
_Юрий
 
(2010-08-01 10:58)
[4]

когда очередной раз выскочит, посмотри, что в DFM файле этой формы, благо там текст. Похоже, там что-то не так

← →
Virgo_Style ©
 
(2010-08-01 12:51)
[5]

Что-то подобное было, если мне не изменяет склероз, при каких-то операциях с хинтом невидимого компонента

← →
Тыва прогер
 
(2010-09-28 11:05)
[6]

А теперь в другом месте эта ошибка вылезла. Похоже проблема с компонентами EhLib. Но теперь даже не пишет где эта проблема. Просто тупо выскакивает и дальше не идет «Окно не имеет полос прокрутки». DFM смотрел но ничиго подозрительного не увидел.

← →
han_malign
 
(2010-09-28 13:06)
[7]

> Просто тупо выскакивает и дальше не идет «Окно не имеет
> полос прокрутки».

— был у меня такой прикол… Тупо копирую exe-шник(!) в другую папку — работает, копирую обратно — не работает… Короче — переименовал папку проекта — проблемы отпали… В чем цимус так и не понял, хотя до сих пор интересно…

Нравится ресурс? Помоги проекту!

[ Script execution time: 0,0243 ]   [ 16 queries used ]   [ Generated: 30.01.23, 09:10 GMT ]  

Примечание:
Эта статья была обновлено на 2023-01-24 и ранее опубликованный под WIKI_Q210794

Meaning of Window Scroll bars missing?

Window Scroll bars missing is the error name that contains the details of the error, including why it occurred, which system component or application malfunctioned to cause this error along with some other information. The numerical code in the error name contains data that can be deciphered by the manufacturer of the component or application that malfunctioned. The error using this code may occur in many different locations within the system, so even though it carries some details in its name, it is still difficult for a user to pinpoint and fix the error cause without specific technical knowledge or appropriate software.

Causes of Window Scroll bars missing?

If you have received this error on your PC, it means that there was a malfunction in your system operation. Common reasons include incorrect or failed installation or uninstallation of software that may have left invalid entries in your Windows registry, consequences of a virus or malware attack, improper system shutdown due to a power failure or another factor, someone with little technical knowledge accidentally deleting a necessary system file or registry entry, as well as a number of other causes. The immediate cause of the «Window Scroll bars missing» error is a failure to correctly run one of its normal operations by a system or application component.

More info on
Window Scroll bars missing

РЕКОМЕНДУЕМЫЕ: Нажмите здесь, чтобы исправить ошибки Windows и оптимизировать производительность системы.

I have scroll bars when the window opens? Thanx
 

Hi. When I open a new window, the scroll the window, they appear. How can I have the Windows XP.

Если я изменил размер баров внизу и справа, пропал.
Окно почтового ящика AOL 7 без прокрутки

AOL предложила использовать VGA-разрешение вместо лет и использовать его для бизнеса …. Удалите его, а затем просто переустановите AOL. Просто окно входа в систему, почему бы не использовать IE Explorer. У меня был 7 обычный 1024 x 768, который является общим для использования.

Окно необходимо максимизировать собственный доступ … TCP / IP через кабельное интернет-соединение. Кажется, что когда я открываю онлайн-почтовый ящик, окно закрывает сообщение, окно почтового ящика возвращается к исходному размеру без полос прокрутки. Даже AOL не может точно так же, как вы, используя свое окно. Я только плачу за Bring Your еще использовать AOL для электронной почты …

Second suggestion would again to view the scroll bar. The scroll bar only appears problem but one that defies resolution. What is annoying is that after viewing a message’s contents and when the mailbox window is maximized. This problem did not offer a remedy.

However, using VGA resolution mail on a computer that doesn’t have AOL installed? You can access your AOL mail from IE Explorer in in IE.

Странная ошибка со слайд-шоу стола сбрасывает полосы прокрутки окна

собирался опубликовать то же, что и вы.

Missing scroll bars in Excel 2007

Как отключить стрелки прокрутки для всех полос прокрутки? /

Кроме того, можно сделать прозрачную полосу прокрутки, но она серая на сером.

The case of the «missing scroll bars»

Полосы прокрутки

Excel 2007 And, I have lost the horizontl scroll bar and therefore I cannot get to the other worksheets in the workbook. The look of and both, horizontal & Vertical scroll bars are checked.

проблема с полосами прокрутки

Скрыть полосы прокрутки

Отключение полос прокрутки

Полосы прокрутки становятся поврежденными

Я чувствую, что это что-то в DirectX. Я обнаружил, что вертикальная прокрутка перерисована, они снова повреждены. Когда я перемещаю курсор над предыдущим, я впервые заметил его. Затем, когда появляется окно, это DirectX11.

Это не является серьезной проблемой — полосы прокрутки по-прежнему работают нормально с ползунком и стрелками, которые затем исправляют. Моя тема текущей версии была поднята раньше. Извиняюсь, если бар сильно испортился.

Почему полосы прокрутки исчезают?

Есть ли способ, которым я MS, который решил, что полосы прокрутки (например,

Полосы прокрутки в MSOFFICE95

Я попробовал мастер справки / ответа «Как отображать / скрывать полосы прокрутки?» In In all other views — Normal, Outline, Master Doc. Ответа не было. Утилита была удалена и переустановлена ​​- все равно никаких полос прокрутки.

все еще нет полос прокрутки. Я убил «Normal.dot»; Pagelayout View Я получил «Эта команда не может быть выполнена в режиме просмотра страницы».
меня снова !!!!! Друг запускает Мастер или выбирает раздел справки, используя Индекс. Полосы прокрутки исчезли из всех приложений OFFICE.

Такое поведение возникает, если вы используете ответ MS OFFICE 95 под Windows 95.

полосы прокрутки в Word

I have my MS «Word» open and then click the «open» button. help to clarify what you’re referring to. I am pretty sure that this can be set somehow to always open with the bit pedantic with this but here goes.

Can you provide a screenshot please?  That will scroll bar at the top, but try as I might I cannot find the way. Greetings to all…I may be a

проводки и полосы прокрутки

Медленные полоски прокрутки

Хорошо, поэтому полосы прокрутки на моем компьютере работают нормально, и они быстро движутся, однако, когда я использую свои полосы прокрутки в Интернете, страница движется ЧРЕЗВЫЧАЙНО медленно. Как я могу это исправить?

как НЕ иметь полосы прокрутки браузера

ненужные полосы прокрутки в IE

Вставка полос прокрутки на веб-сайте

графика). Из моего быстрого взгляда на ваш сайт и CSS, я думаю, что вы используете прокрутку страниц. проблемы с Mac в прошлом. Наш веб-сайт будет направлен как широкой общественности, так и

Таким образом, он может соответствовать абсолютному позиционированию, как сказал компания C, хотя я не могу прокомментировать его совместимость.
Кроме того, это не кадр, и, следовательно, у вас может быть более чем одна сторона «корпораций», поэтому он должен быть доступен для просмотра через несколько браузеров, Mac, ПК и т. Д. Лучший совет заключается в том, чтобы сделать его максимально простым с помощью side.?3. (Компания C) «Сайт, похоже, использует CSS для абсолютного позиционирования.

Сайт BBC прокручивается веками, и это отличный, полезный сайт. Не волнуйтесь, что у вас на сайте гуру есть какие-либо рекомендации или комментарии к этому или вышеупомянутому «совету»? Я бы сорвал полосу прокрутки и избегаю абсолютного позиционирования для compatabilities. «Сделайте любой из них и сосредоточьтесь на хорошем контенте, который легко читать.

в центральную ячейку. Это вызвало у нас

хочу, чтобы мои полосы прокрутки были более широкими

Я не хочу менять что-либо еще, потому что я пошутил, пожалуйста? Ниже приведенный ниже учебник поможет вам показать, как увеличить ширину полосы прокрутки.

Изменение цвета полос прокрутки

изменить цвет полос прокрутки?
Кто-нибудь знает, как

————————- ORIGINAL QUESTION ————————-

Greetings to all Delphi developers! In a Delphi 2006 non MDI application, I create a non-sizeable, autoscrollable, autosizeable form. This is an excerpt from the form’s unit:

uses Grid;

TGridFrm = class(TForm)
    public
        Grid : TGrid;
        constructor Create(AOwner : TComponent; Asize : TPoint);
end;

implementation

constructor TGridFrm.Create(AOwner: TComponent; Asize : TPoint);
begin
    inherited Create(aowner);
    borderstyle := bsSingle; // users are not allowed to resize the form
    windowstate := wsNormal;
    borderwidth := 0;
    autosize := True;
    autoscroll := True;
    constraints.maxwidth := screen.width - 1;
    constraints.maxheight := screen.height - 1;
    grid := TGrid.Create(asize.x, asize.y, self);
end;

Now, TGrid is a custom control with its own canvas of course. This is an excerpt from its unit:

TGrid = class (TCustomControl)
    public
        NoOfCellsX,
        NoOfCellsY,
        CellSize : integer;
        procedure SetZoom(z : integer);
        constructor Create(AWidth, AHeight : Integer; AParent : TForm = nil);
end;

implementation

constructor TGrid.Create(AWidth, AHeight : Integer; AParent : TForm = nil);
begin
    inherited Create(AParent);
    Parent := AParent;
    align := alCustom;
    left := 0;
    top := 0;
end;

procedure TGrid.SetZoom(zoom : integer);
begin
    cellsize := zoom * 10 div 100;
    width := noofcellsx * cellsize;
    height := noofcellsy * cellsize;
end;

In the form’s unit I have arranged things up (through an ApplicationEvents object) so that SetZoom is called with some zoom value, whenever the numeric +/- keys are pressed. The idea behind all this was to have my custom control snap to the upper left corner of the form (with some predefined margin/borderwidth), and have the entire form automatically adjust its size whenever I zoom in or out of the custom control, but never extending beyond the screen limits. It’s working, but only up to the point where the scrollbars must become visible: they never show up. Since this is an autoscrollable form, aren’t they supposed to show up whenever a control inside the form (Grid in this case) gets larger than the constrained form and get out of the way when it gets smaller? I even tried some refactoring by moving SetZoom to the form’s class, but to no avail. What am i missing here?

—————— COMPILABLE CODE ADDED AFTERWARDS ——————

The project file:

program MyApp;

uses
    Forms,
    Grid in 'SourceGrid.pas',
    GridForm in 'SourceGridForm.pas' {GridFrm},
    Main in 'SourceMain.pas' {MainFrm};

{$R *.res}

begin
    Application.Initialize;
    Application.CreateForm(TMainFrm, MainFrm);
    Application.Run;
end.

The Main.pas:

unit Main;

interface

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
    Forms, Dialogs, StdCtrls;

type
    TMainFrm = class(TForm)
        CreateNewFormButton: TButton;
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
        procedure CreateNewFormButtonClick(Sender: TObject);
    end;

var
    MainFrm: TMainFrm;

implementation

{$R *.dfm}

uses
    GridForm;

procedure TMainFrm.CreateNewFormButtonClick(Sender: TObject);
var aform : TForm;
begin
    aform := TGridFrm.Create(self, point(15, 15));
    aform.show;
    tgridfrm(aform).grid.SetZoom(100);
end;

procedure TMainFrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Action := caFree;
end;

end.

The GridForm.pas:

unit GridForm;

interface

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, Grid, AppEvnts;

type
    TGridFrm = class(TForm)
        ApplicationEvents1: TApplicationEvents;
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
        procedure ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
    private
        TheGrid : TGrid;
    public
        property Grid : TGrid READ TheGrid WRITE TheGrid;
        constructor Create(AOwner : TComponent; ASize : TPoint);
    end;

var
    GridFrm: TGridFrm;

implementation

{$R *.dfm}

procedure TGridFrm.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
var keystate : TKeyboardState;
begin
    if not Active then begin exit; end;
    if msg.message = WM_KEYDOWN then
    begin
        getkeyboardstate(keystate);
        case msg.wparam of

            vk_Add : begin // zoom in
                grid.setzoom(grid.zoom + 10);
                handled := True;
            end;

            vk_Subtract : begin // zoom out
                grid.setzoom(grid.zoom - 10);
                handled := True;
            end;

            // other keys down here...

        end;
    end;
end;

constructor TGridFrm.Create(AOwner : TComponent; ASize : TPoint);
begin
    inherited Create(AOwner);
    borderstyle := bsSingle;
    borderwidth := 2;
    autosize := True;
    autoscroll := True;
    constraints.maxwidth := screen.width - 1;
    constraints.maxheight := screen.height - 1;
    visible := False;
    grid := TGrid.Create(asize.x, asize.y, random(800) + 500, self);
end;

procedure TGridFrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin                
    Action := caFree;
end;

end.

And the Grid.pas:

unit Grid;

interface

uses
    StdCtrls, SysUtils, Controls, Forms, Graphics, Dialogs;

type
    TGrid = class (TCustomControl)
        Lbl1, Lbl2,
        GridSizeInfoLbl,
        FormSizeInfoLbl,
        WarningLbl : TLabel;

        public
            NoOfCellsX,
            NoOfCellsY,
            SquareSize, // in 1/1000ths of centimeter
            CellSize, // in pixels
            Zoom : integer;
            procedure SetZoom(z : integer);
            constructor Create(x, y, asquaresize : integer; AParent : TForm = nil);
    end;

implementation

uses
    GridForm;

constructor TGrid.Create(x, y, asquaresize : integer; AParent : TForm = nil);
begin
    inherited Create(AParent);
    parent := AParent;
    color := clTeal;
    align := alCustom;
    left := 0;
    top := 0;
    noofcellsx := x;
    noofcellsy := y;
    squaresize := asquaresize;
    Lbl1 := TLabel.Create(self);
    Lbl2 := TLabel.Create(self);
    GridSizeInfoLbl := TLabel.Create(self);
    FormSizeInfoLbl := TLabel.Create(self);
    WarningLbl := TLabel.Create(self);
    with Lbl1 do
    begin
        parent := self;
        caption := 'Size of grid: ';
        width := 55;
        height := 18;
        left := 2;
        top := 1;
    end;
    with Lbl2 do
    begin
        parent := self;
        caption := 'Size of form: ';
        width := 75;
        height := 18;
        left := 2;
        top := 19;
    end;
    with GridSizeInfoLbl do
    begin
        parent := self;
        width := 100;
        height := 18;
        left := 65;
        top := 1;
    end;
    with FormSizeInfoLbl do
    begin
        parent := self;
        width := 100;
        height := 18;
        left := 65;
        top := 19;
    end;
    with WarningLbl do
    begin
        parent := self;
        width := 150;
        height := 18;
        left := 2;
        top := 39;
    end;
end;

procedure TGrid.SetZoom(z : integer);
begin
    zoom := z;
    cellsize := (screen.pixelsperinch * squaresize * zoom) div (1000 * 254);
    width := noofcellsx * cellsize;
    height := noofcellsy * cellsize;

    GridSizeInfoLbl.caption := inttostr(Width) +
        'x' + inttostr(Height) +
        ' (zoom: ' + inttostr(zoom) +
        ', cellsize zoomed: ' + inttostr(cellsize) +
        ', squaresize: ' + inttostr(squaresize) +
        'mm, squares: ' + inttostr(noofcellsx) + 'x' + inttostr(noofcellsy) + ')';
    with tgridfrm(parent) do
    begin
        left := (screen.Width - width) div 2;
        top := (screen.Height - height) div 2;
        FormSizeInfoLbl.caption := inttostr(Width) + 'x' + inttostr(Height) +
        ' (clientarea: ' + inttostr(clientwidth) + 'x' + inttostr(clientheight) + ')';
        if self.width > clientwidth then
            if self.Height > clientheight then
                warninglbl.caption := 'Both scrollbars should appear!'
            else
                warninglbl.caption := 'Horizontal scrollbar should appear!'
        else if self.Height > clientheight then
            warninglbl.caption := 'Vertical scrollbar should appear!'
        else
            warninglbl.caption := 'No scrollbars needed';
    end;
end;

end.

Code synopsis: A click on the main form’ s button creates an autosizeable form, which in turn creates a child grid of random initial size. Numeric +/- keys make the grid larger or smaller and the form is autosized accordingly, but no scrollbars ever show up, no matter how large the grid becomes (the labels I added provide visual feedback).

————————- ORIGINAL QUESTION ————————-

Greetings to all Delphi developers! In a Delphi 2006 non MDI application, I create a non-sizeable, autoscrollable, autosizeable form. This is an excerpt from the form’s unit:

uses Grid;

TGridFrm = class(TForm)
    public
        Grid : TGrid;
        constructor Create(AOwner : TComponent; Asize : TPoint);
end;

implementation

constructor TGridFrm.Create(AOwner: TComponent; Asize : TPoint);
begin
    inherited Create(aowner);
    borderstyle := bsSingle; // users are not allowed to resize the form
    windowstate := wsNormal;
    borderwidth := 0;
    autosize := True;
    autoscroll := True;
    constraints.maxwidth := screen.width - 1;
    constraints.maxheight := screen.height - 1;
    grid := TGrid.Create(asize.x, asize.y, self);
end;

Now, TGrid is a custom control with its own canvas of course. This is an excerpt from its unit:

TGrid = class (TCustomControl)
    public
        NoOfCellsX,
        NoOfCellsY,
        CellSize : integer;
        procedure SetZoom(z : integer);
        constructor Create(AWidth, AHeight : Integer; AParent : TForm = nil);
end;

implementation

constructor TGrid.Create(AWidth, AHeight : Integer; AParent : TForm = nil);
begin
    inherited Create(AParent);
    Parent := AParent;
    align := alCustom;
    left := 0;
    top := 0;
end;

procedure TGrid.SetZoom(zoom : integer);
begin
    cellsize := zoom * 10 div 100;
    width := noofcellsx * cellsize;
    height := noofcellsy * cellsize;
end;

In the form’s unit I have arranged things up (through an ApplicationEvents object) so that SetZoom is called with some zoom value, whenever the numeric +/- keys are pressed. The idea behind all this was to have my custom control snap to the upper left corner of the form (with some predefined margin/borderwidth), and have the entire form automatically adjust its size whenever I zoom in or out of the custom control, but never extending beyond the screen limits. It’s working, but only up to the point where the scrollbars must become visible: they never show up. Since this is an autoscrollable form, aren’t they supposed to show up whenever a control inside the form (Grid in this case) gets larger than the constrained form and get out of the way when it gets smaller? I even tried some refactoring by moving SetZoom to the form’s class, but to no avail. What am i missing here?

—————— COMPILABLE CODE ADDED AFTERWARDS ——————

The project file:

program MyApp;

uses
    Forms,
    Grid in 'SourceGrid.pas',
    GridForm in 'SourceGridForm.pas' {GridFrm},
    Main in 'SourceMain.pas' {MainFrm};

{$R *.res}

begin
    Application.Initialize;
    Application.CreateForm(TMainFrm, MainFrm);
    Application.Run;
end.

The Main.pas:

unit Main;

interface

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
    Forms, Dialogs, StdCtrls;

type
    TMainFrm = class(TForm)
        CreateNewFormButton: TButton;
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
        procedure CreateNewFormButtonClick(Sender: TObject);
    end;

var
    MainFrm: TMainFrm;

implementation

{$R *.dfm}

uses
    GridForm;

procedure TMainFrm.CreateNewFormButtonClick(Sender: TObject);
var aform : TForm;
begin
    aform := TGridFrm.Create(self, point(15, 15));
    aform.show;
    tgridfrm(aform).grid.SetZoom(100);
end;

procedure TMainFrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Action := caFree;
end;

end.

The GridForm.pas:

unit GridForm;

interface

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, Grid, AppEvnts;

type
    TGridFrm = class(TForm)
        ApplicationEvents1: TApplicationEvents;
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
        procedure ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
    private
        TheGrid : TGrid;
    public
        property Grid : TGrid READ TheGrid WRITE TheGrid;
        constructor Create(AOwner : TComponent; ASize : TPoint);
    end;

var
    GridFrm: TGridFrm;

implementation

{$R *.dfm}

procedure TGridFrm.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
var keystate : TKeyboardState;
begin
    if not Active then begin exit; end;
    if msg.message = WM_KEYDOWN then
    begin
        getkeyboardstate(keystate);
        case msg.wparam of

            vk_Add : begin // zoom in
                grid.setzoom(grid.zoom + 10);
                handled := True;
            end;

            vk_Subtract : begin // zoom out
                grid.setzoom(grid.zoom - 10);
                handled := True;
            end;

            // other keys down here...

        end;
    end;
end;

constructor TGridFrm.Create(AOwner : TComponent; ASize : TPoint);
begin
    inherited Create(AOwner);
    borderstyle := bsSingle;
    borderwidth := 2;
    autosize := True;
    autoscroll := True;
    constraints.maxwidth := screen.width - 1;
    constraints.maxheight := screen.height - 1;
    visible := False;
    grid := TGrid.Create(asize.x, asize.y, random(800) + 500, self);
end;

procedure TGridFrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin                
    Action := caFree;
end;

end.

And the Grid.pas:

unit Grid;

interface

uses
    StdCtrls, SysUtils, Controls, Forms, Graphics, Dialogs;

type
    TGrid = class (TCustomControl)
        Lbl1, Lbl2,
        GridSizeInfoLbl,
        FormSizeInfoLbl,
        WarningLbl : TLabel;

        public
            NoOfCellsX,
            NoOfCellsY,
            SquareSize, // in 1/1000ths of centimeter
            CellSize, // in pixels
            Zoom : integer;
            procedure SetZoom(z : integer);
            constructor Create(x, y, asquaresize : integer; AParent : TForm = nil);
    end;

implementation

uses
    GridForm;

constructor TGrid.Create(x, y, asquaresize : integer; AParent : TForm = nil);
begin
    inherited Create(AParent);
    parent := AParent;
    color := clTeal;
    align := alCustom;
    left := 0;
    top := 0;
    noofcellsx := x;
    noofcellsy := y;
    squaresize := asquaresize;
    Lbl1 := TLabel.Create(self);
    Lbl2 := TLabel.Create(self);
    GridSizeInfoLbl := TLabel.Create(self);
    FormSizeInfoLbl := TLabel.Create(self);
    WarningLbl := TLabel.Create(self);
    with Lbl1 do
    begin
        parent := self;
        caption := 'Size of grid: ';
        width := 55;
        height := 18;
        left := 2;
        top := 1;
    end;
    with Lbl2 do
    begin
        parent := self;
        caption := 'Size of form: ';
        width := 75;
        height := 18;
        left := 2;
        top := 19;
    end;
    with GridSizeInfoLbl do
    begin
        parent := self;
        width := 100;
        height := 18;
        left := 65;
        top := 1;
    end;
    with FormSizeInfoLbl do
    begin
        parent := self;
        width := 100;
        height := 18;
        left := 65;
        top := 19;
    end;
    with WarningLbl do
    begin
        parent := self;
        width := 150;
        height := 18;
        left := 2;
        top := 39;
    end;
end;

procedure TGrid.SetZoom(z : integer);
begin
    zoom := z;
    cellsize := (screen.pixelsperinch * squaresize * zoom) div (1000 * 254);
    width := noofcellsx * cellsize;
    height := noofcellsy * cellsize;

    GridSizeInfoLbl.caption := inttostr(Width) +
        'x' + inttostr(Height) +
        ' (zoom: ' + inttostr(zoom) +
        ', cellsize zoomed: ' + inttostr(cellsize) +
        ', squaresize: ' + inttostr(squaresize) +
        'mm, squares: ' + inttostr(noofcellsx) + 'x' + inttostr(noofcellsy) + ')';
    with tgridfrm(parent) do
    begin
        left := (screen.Width - width) div 2;
        top := (screen.Height - height) div 2;
        FormSizeInfoLbl.caption := inttostr(Width) + 'x' + inttostr(Height) +
        ' (clientarea: ' + inttostr(clientwidth) + 'x' + inttostr(clientheight) + ')';
        if self.width > clientwidth then
            if self.Height > clientheight then
                warninglbl.caption := 'Both scrollbars should appear!'
            else
                warninglbl.caption := 'Horizontal scrollbar should appear!'
        else if self.Height > clientheight then
            warninglbl.caption := 'Vertical scrollbar should appear!'
        else
            warninglbl.caption := 'No scrollbars needed';
    end;
end;

end.

Code synopsis: A click on the main form’ s button creates an autosizeable form, which in turn creates a child grid of random initial size. Numeric +/- keys make the grid larger or smaller and the form is autosized accordingly, but no scrollbars ever show up, no matter how large the grid becomes (the labels I added provide visual feedback).