Desktop Form setHeight at Runtime - Please Advise

[andyhill]

    n:= (dbGridGroups.Height div (StartUpFontHeight * 2));
    dbGridGroups.WebOptions.PageSize:= n-4; // Paints Footer row even when there are no summaries or footers
    TAccessGrid(dbGridGroups).Columns.EndUpdate;

    ////////////////////////////////////////////////////////////////////////////
    pMain.Height:= (n * (StartUpFontHeight * 2)) + 4;

    //fMain.BeginUpdate; // uniAlignmentClient (needed for mobile emulation)
    //fMain.ClientHeight:= pMain.Height + 10; // FAILS TO CHANGE
    //fMain.EndUpdate;

    UniSession.AddJS('ajaxRequest(fMain.form, ''setHeight'', '+IntToStr(pMain.Height + 10)+');'); // FAILS TO CHANGE

[Sherzod]

Hi Andy, 

Please explain briefly what you want. 

[andyhill]

I thought it was very clear, change height of Form at runtime, my temporary Desktop work around below.

    BeginUpdate; 
    Height:= (n * (StartUpFontHeight * 2)) + 14; 
    EndUpdate;