🚀 go-pugleaf

Hi.

My http connection doesn't work at the moment but this tip was taken from:

Quick and easy re-sizeable controls
by Damon Chandler

This doesn't work will all controls, e.g. the TRichEdit so place the control
on a panel and set Align to alClient and the Panel's AutoSize to true(or
false, don't remember so try both). But you can try the code with a TMemo.

// grab a handle to the panel
   HWND hPanel = Panel1->Handle;

  // get the current styles
   LONG current_style = GetWindowLong(hPanel, GWL_STYLE);


    // add the WS_SIZEBOX style
     SetWindowLong(
     hPanel, GWL_STYLE,
     current_style | WS_SIZEBOX
     );

     // remove the WS_SIZEBOX style
     // SetWindowLong( hPanel, GWL_STYLE, current_style & ~WS_SIZEBOX );

    // have the panel redraw its border
    SetWindowPos(
    hPanel, 0, 0, 0, 0, 0,
    SWP_FRAMECHANGED | SWP_NOMOVE |
    SWP_NOSIZE | SWP_NOZORDER
    );


Just search Google to find the link to the full article.

"Sky" <huangc@motic.com.cn> wrote in message
news:3f345db9@newsgroups.borland.com...
> Hi all,
>
> As everybody know we can change the postion and size when design-time,
> but how to do it when run-time, I know how to move a control, use drag and
> dock,
> but how to resize it? TIA
>
> Sky
>
>