delphi的窗体窗口

Posted 2023-05-16

参考技术A

Forms窗口是开展大部分设计的工作区域。首次启动Delphi 2.0时显示的是窗体Form1。可以把部件放在窗体中，通过移动位置、改变尺寸等操作随心所欲地安排它们，以此来开发应用程序的用户界面。您可以把窗体想象成一个可以放置其它部件的容器。窗体上有栅格（Grids），供放置部件时对齐位置用，在程序运行时Grids是不可见的。一个真正的应用程序可能有不止一个窗口，您可以选用不同的窗体进行设计。其它窗体可以是对话框（Dialog Box）、数据录入框等。
代码窗口一开始处于窗体窗口之下。因为在Delphi中，设计用户界面直接在窗体中进行，运行结果和设计样板完全一致。当部件被放到窗体上时，Delphi会自动生成大部分的用户界面代码。您所应做的只是在它为您生成的框架中加入完成所需功能的程序段而已。点动Form1的状态行使代码窗口可见。
这个窗口中是代码编辑器。可以在其中书写Delphi应用程序的源代码。当程序中含有不止一个窗口时，会有几个库单元的源程序出现在代码编辑器中。代码编辑器的标题条中显示了当前正在编辑的库单元文件名。要查看某一特定程序的源代码，只需用鼠标点动写有该库单元文件名的页标签，就可以对该库单元进行编辑了。 从空白窗体开始工作。将设计一个简单的程序：在屏幕上开一个窗口，窗口中有一个图框，用三个按钮来改变图框的形状；再用一个图标按钮来进行图框的颜色设置，通过颜色编辑对话框来选择变成哪一种颜色。在菜单上选用File|New Application菜单项来生成新的工程文件。这时，屏幕上出现窗体。　 部件（Component）是建立Delphi应用程序的要素。Delphi为用户提供了丰富的部件库，既有可视的部件（如编辑框、按钮）等，也有不可视的部件（如系统定时器、数据表等）。它们按照功能分别排列在Component Panel的各页上。
移动鼠标到Component Panel上，在部件按钮上“犹豫”一、两秒钟，一个黄色小提示框就会弹出，写有该部件的名称，称之为提示（Hint）。在要选择的部件上单击左键，则该部件按钮被按下，表示部件已被当前选择。然后，将鼠标移动到窗体上，按下左键，该部件被放到窗体中。部件的轮廓线上会显现八个被称为尺寸调整器（Sizing Handles）的黑色小方块。它除了供用户调整尺寸使用之外，还可以表示该对象处于当前编辑状态。此时，按“Delete”键可以将该部件删除。
在Component Panel上，点动写有“Additional”的页标签，切换到Additional页，再移动鼠标，逐个用观看Hint的办法查看部件的名称，找到“Shape”部件（其图标为圆、方形、三角形三个几何体），将其放到窗体的左方。再按动“Standard”页标签，找到“Button”部件（图标上画有OK按钮）。Delphi允许在添加多个同类型的部件时，不必每次到部件选项板上选取。按住“Shift”键，同时在“Button”部件上单击鼠标左键，这时“Button”部件处于按下状态，并有蓝色边框，表示已经被选择固定。依次在窗体右方的三个位置单击左键，则会放置三个相同的Button部件。把鼠标光标移到部件选项板左侧的箭头图标处，这是“取消选择”按钮，它没有提示。按动它，会发现“Button”部件按钮恢复弹起状态。否则，每次“Form1”上的鼠标单击左键动作，都会导致增加一个按钮部件。
再次进入“Additional”部件页，选择一个“BitBtn”按钮（图标是有绿色对号的OK按钮），把它放到其它三个按钮部件的下面。
点动“Dialog”页标签，选择以16色网格做图标的ColorDialog部件并把它放到窗体的任意位置。因为这一部件是不可视部件，所以它的位置并不影响大局。 一般来讲，此时放置到窗体的部件是分散排列的，而且其大小不是真正需要的尺寸。除了不可视的ColorDialog部件外，其它的部件都需要进行位置、大小和显示字样的调整。Delphi提供的对齐工具和窗口栅格为这些调整提供了方便。移动部件：只需把鼠标落到想移动的部件上，按住左键并移动光标，到合适的位置再释放左键，整个部件即被移到新位置。
调整尺寸：先把鼠标光标移动到要改变尺寸的部件上，单击左键，选中该部件，尺寸调整器会出现，把鼠标移动到其中的一个小黑色方块上，当鼠标变成拖动方向指示时，按下并拖动鼠标左键，可以放大或缩小部件。上下左右的小方块用来移动对应的各边，四个角的方块可以移动相连的两条边。如果要精确地表述部件的尺寸，可以在Object Inspector上，改变Left（表示部件左边缘到窗体左边框的象素点数）、Top（表示窗体上边框到部件上边缘的象素点数）、 Width（部件本身的宽度）、Height（部件本身的高度）等属性。关于改变部件的属性，下文还将仔细讲解。
使得一组部件对齐：用调整位置的方法可以对齐部件，但操作步骤复杂。Delphi提供的对齐工具可以使多个部件的对齐极为迅速方便。下面来使四个按钮对齐。先将四个按钮选为一组：按住并向右下方拖动鼠标左键，在窗体上画出围绕四个按钮的矩形，释放左键后，被选中的按钮周边会出现暗灰色的边框。选用Edit|Align命令，或使用弹出式菜单（在被固定的部件上单击鼠标右键激活），可以显示图1.4所示的对话框。
要使按钮沿左边对齐并使它们在垂直方向上均匀分布，先在Alignment对话框的Horizontal栏内选择“Left sides”，在“Vertical”栏内选择“Space equally”，按动OK按钮，Delphi就会自动将它们对齐。然后，您可以将它们四个作为一组来移动。在四个按钮以外的窗体上按动鼠标左键，就释放了组中的部件，使它们成为分立的部件。
利用对齐模板来对齐部件也是很方便的。首先要将要对齐的部件选成一组，选择View|Alignment Palette显示对齐模板。按照所示的方式选择即可达到对齐的目的。

delphi实现窗体组建随窗体大小改变而改变

在网上查了许多资料去论述如何在dephi中去实现组件随窗口大小的变化而变化，然都不尽如人意。有人说用组件的align + anchors 这两个属性去控制，但是我用了之后，让我大惊失色。把anchors属性下面的四个值都变为true.如果用户用鼠标去拖动窗口，那么窗口上的组件像是中了夺命书生的面目全非脚一样，基本上就没有所谓的五官之态。

下面就介绍我的方法，同样本人的方法也是看了网友们的资料才得以完成的。

(1) 下载TFormResizer组件

我用的是第三方插件TFormResizer,首先下载一个Easysize.rar,（百度一下，应该不难找到） 解压之后，其文件中内容如下：

本人建议应该把Easysite源文件，还有Easysize.d32, Easysize.dcu这三个文件放到你的dephi安装目录中的lib目录下，因为这里面基本上都是dephi的组件。这个组件默认的是标签不随窗口大小的改变而改变，其他的组件随窗口大小的改变而改变。如果想选择默认的方式，那么就不要修改这个源文件，直接进行安装这个组件即可。（在这里注意：不管你以前是否设置Label标签的AutoSize属性，他都会变成true）。

2.修改Easysize源文件

   （1）.在TSingleResizer的构造方法里，即在 constructor TSingleResizer.Create(LinkedControl, ParentForm : TControl;IncFont : Boolean;MinFS, MaxFS : Integer)方法里注释掉最后几句：

   { But do not adjust width of labels (to avoid
       interaction of label auto-sizing with re-sizing) }
     if FComponent is TCustomLabel then
        FFlexWidth := false;  

把上面的这几句话注释掉

（2）.在procedure TSingleResizer.Resize(OwnerHeight, OwnerWidth; HeightRatio, WidthRatio : Double)方法里在最后几行里找到：

     { If component is a label, save original AutoSize value,
       and set value temporarily to False }
     if FComponent is TCustomLabel then
        begin
        OldAutoSize := GetAutoSizeProperty(FComponent);
        SetAutoSizeProperty(FComponent, False);
        end;
     { end W.K. insert }    

和

{ begin W.K. insert }
     { If component is a label, set AutoSize temporarily to
       True, call Refresh, and finally restore original value. }
     if FComponent is TCustomLabel then
        begin
        SetAutoSizeProperty(Fcomponent, True);
        TCustomLabel(Fcomponent).Refresh;
        SetAutoSizeProperty(FComponent, OldAutoSize);
        end;
     { end W.K. insert }  

 

  把上面的话用大括号注释掉。

（3）至此，源文件修改完毕

3.安装FormResizer这个组:

         打开dephi软件，本人用的是dephi7,   点击 component  ->Install Component ,出现如下界面：

在Unit file name 那一行上点击 Browse按钮   加载你刚才你解压的Easysize源文件，完成之后点击OK按钮，弹出如下界面：

点击Comile按钮，这样就在Tag标签页上出现www 上出现了FormResizer组件。

4.在form窗口中加如下代码：

      （1） procedure TForm2.FormCreate(Sender: TObject);

                begin

                            formresizer1.ResizeFonts := true;   //设置字体是否随窗口大小的改变而改变。
                             FormResizer1.InitializeForm;

                end;

      （2）在form的OnResize事件上增加如下代码：

               procedure TForm2.FormResize(Sender: TObject);
               begin
                     FormResizer1.ResizeAll;    
               end;

       

自此，窗口中的组件就可以随窗口大小的改变而改变了。

 

http://blog.163.com/i_love_you_chai/blog/static/1708911082010112105057644/