Solved

Maximizing a form.

Posted on 2007-03-22
13
392 Views
Last Modified: 2010-04-05
Hi Experts,
I have a form that contains a lot of components. Some of these components contain other components.(for example a pagecontrol which contains tabsheets which contains labels containing other labels). When I maximize this form at runtime, all the components stay in one corner. How do I get the components to spread out and fill the form when it is maximized. When searching through the answers database, it said to set the align property to 'alclient'. Did it mean the form itself or of each component?
0
Comment
Question by:QurbanDurrani
13 Comments
 
LVL 6

Accepted Solution

by:
Hardi earned 400 total points
Comment Utility
You can set the anchors of components.
Align to alClient will maximise the control, so that it's size is the same as its parent
You may also want to put some controls in a panel, and set the panel's Align property. Eg. set one of them to alLeft, the other to alClient, so when resized, only the one with alClient gets larger (in Width).
You may also want to drop Splitter between those panels so they can be resized manually.
0
 
LVL 5

Expert Comment

by:kosturdur
Comment Utility
-if you want your form run in maximized changed form.windowstate = wsmaximized
-if you want your pagecontrol maximized when the form maximized form change pageconrol.align=alclient
kosturdur
0
 
LVL 6

Expert Comment

by:Hardi
Comment Utility
I should correct
"Align to alClient will maximise the control, so that it's size is the same as its parent"
to
Align to alClient will maximise the control to fill as much space as possible, so that it's size could be as large as its parent (but no more)
0
 
LVL 6

Expert Comment

by:Hardi
Comment Utility
You can play around with this. Try resizing the form and try the spliiter. Pay attention to each component's Align and Anchors

Unit1.dfm
========
object Form1: TForm1
  Left = 192
  Top = 114
  Width = 559
  Height = 349
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 185
    Top = 0
    Height = 315
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 185
    Height = 315
    Align = alLeft
    Caption = 'Panel1'
    TabOrder = 0
    DesignSize = (
      185
      315)
    object Label1: TLabel
      Left = 120
      Top = 269
      Width = 32
      Height = 13
      Anchors = [akRight, akBottom]
      Caption = 'Label1'
    end
  end
  object Panel2: TPanel
    Left = 188
    Top = 0
    Width = 363
    Height = 315
    Align = alClient
    Caption = 'Panel2'
    TabOrder = 1
    DesignSize = (
      363
      315)
    object Button1: TButton
      Left = 24
      Top = 24
      Width = 309
      Height = 49
      Anchors = [akLeft, akTop, akRight, akBottom]
      Caption = 'Button1'
      TabOrder = 0
    end
  end
end

========
Unit1.pas
========
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Splitter1: TSplitter;
    Panel2: TPanel;
    Button1: TButton;
    Label1: TLabel;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

end.
0
 
LVL 6

Assisted Solution

by:saravananvg
saravananvg earned 100 total points
Comment Utility
Hello Sir
 You could use either anchor property for each component or a vcl called GTSizer which will automatically change the size of the controls based upon the change in the size of the form or the resolution. But the best way is to use the anchor property for each component.

with regards,
padmaja.
0
 

Author Comment

by:QurbanDurrani
Comment Utility
Thanks to all.
Saravananvq, Why do you say it is better to use anchor property  for each component rather than GTSizer?
0
Maximize Your Threat Intelligence Reporting

Reporting is one of the most important and least talked about aspects of a world-class threat intelligence program. Here’s how to do it right.

 
LVL 6

Expert Comment

by:Hardi
Comment Utility
You can easily do it using anchors and align, and OnResize if you need to (eg. to keep a component in the centre). Why would you download another component.
Well that's just my opinion =P
0
 

Author Comment

by:QurbanDurrani
Comment Utility
Sure, but for an application that already exists, I would have to do this for very component on every form.
0
 
LVL 6

Expert Comment

by:Hardi
Comment Utility
I see.
I think GTSizer can do the all resize automatically, as well as the fonts depending on user's screen resolution. It must be a handy component.
Why dont you give the trial version a try
http://www.genotechs.com/downloads.html
You can compare how much easier and better it is than setting anchors manually, and decide whether to buy it or not :-)
0
 

Author Comment

by:QurbanDurrani
Comment Utility
Thanks hardi for such a prompt comment on a sunday. I have been playing around with the trial version of GTSizer and it seems to work ok for the most part. A friend of mine suggested a 'TFormSize' component from 'tmssoftware.com' which is lot cheeper but does not have a trial version available to play around with. Do you know about the capabilities of this component?
0
 
LVL 6

Expert Comment

by:Hardi
Comment Utility
I don't know about TFormSize, but I found it here
http://www.tmssoftware.com/formsize.htm
but it doesn't mention auto-resizing components, and you can download it for free.
May be it's not the component you're looking for? =P
Btw it's monday morning here in Australia :-D
0
 

Author Comment

by:QurbanDurrani
Comment Utility
Thanks to everyone for your help.
Hardi, So you are in Australia, I am in Canada. You know I have been working in the technical field for some time now, but it's impect on the humanity still amazes me sometimes. Just look at us, Someone in Australia helping someone in Canada pretty much realtime. Thanks again.
0
 
LVL 6

Expert Comment

by:Hardi
Comment Utility
Glad to help :-)
Yea... unbelievable isn't it... this world is getting smaller with technologies ^^
0

Featured Post

How to improve team productivity

Quip adds documents, spreadsheets, and tasklists to your Slack experience
- Elevate ideas to Quip docs
- Share Quip docs in Slack
- Get notified of changes to your docs
- Available on iOS/Android/Desktop/Web
- Online/Offline

Join & Write a Comment

Introduction The parallel port is a very commonly known port, it was widely used to connect a printer to the PC, if you look at the back of your computer, for those who don't have newer computers, there will be a port with 25 pins and a small print…
In this tutorial I will show you how to use the Windows Speech API in Delphi. I will only cover basic functions such as text to speech and controlling the speed of the speech. SAPI Installation First you need to install the SAPI type library, th…
Sending a Secure fax is easy with eFax Corporate (http://www.enterprise.efax.com). First, Just open a new email message.  In the To field, type your recipient's fax number @efaxsend.com. You can even send a secure international fax — just include t…
Excel styles will make formatting consistent and let you apply and change formatting faster. In this tutorial, you'll learn how to use Excel's built-in styles, how to modify styles, and how to create your own. You'll also learn how to use your custo…

744 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

17 Experts available now in Live!

Get 1:1 Help Now