Watch, Follow, &
Connect with Us

For forums, blogs and more please visit our
Developer Tools Community.

ID: 16205, Resizing controls at runtime

by Andreas Jakobsche Email: Anonymous

Make your controls resizable at runtime by using an easy procedure.
Create your own resizable controls by using an easy procedure.
Download Details
FTP  download also available
CDN Login Required to Download. (You will be redirected to the login page if you click on the Download Link)
To download this, you must have registered:
A free membership

For Delphi, Version 1.0  to 1.0 2410 downloads
Copyright: No significant restrictions

Size: 370,831 bytes
Updated on Thu, 31 May 2001 15:58:26 GMT
Originally uploaded on Thu, 31 May 2001 15:43:22 GMT
SHA1 Hash: 4CD07ABDA2A71135EFE1C23A7E40E318D300EF08
MD5 Hash: ED61F620F3ED1B27973620263E9E3510

    Explore the files in this upload

This contains the unit ResizBox and shows nearly its total source code and a way you can go to derive your own resizable controls or make existing controls resizable by calling the procedure ResizeControl.
TResizableBox is a resizable scrollbox being derived from TScrollBox by using the ResizeControl procedure. Instead of overriding the MouseMove method you could use the OnMouseMove event. ResizeControl is the key procedure of this unit. It makes every control resizable by dragging its border with the mouse at runtime if the Align property is alLeft, alRight, alBottom or alTop. You can use the same way to create a row or a column of 2 or 3 boxes within a form or another
control. For this you have to place one or two controls like TResizableBox with two opposite Align values except alNone and alClient. You have to fill the remaining space with another control having Align set to alClient. The only need of that additional
control is the support of Align = alClient. Sample applications within this package show you that. One shows the use of TResizableBox as an example for creating resizable controls. The other shows how you can make existing controls resizable without to derive them. Email if you have questions!

   Latest Comments  View All Add New

Move mouse over comment to see the full text

Could not retrieve comments. Please try again later.

Server Response from: ETNACDC03