delphi-

来自「Delphi技巧」· 代码 · 共 19 行

    技巧1：在Delphi中实现类似VB中的控件数组。
    你可以通过设置一组相应控件的TAG属性来实现这一功能。首先在窗体中放置3个BUTTON控件，然后分别设置这三个控件的TAG属性为1、2、3。接下来双击任意一个按钮，
    在其代码部分输入如下代码：
    procedureTForm1．Button1Click（Sender：TObject）；
    varcap：string；
    begin
    caseTButton（sender）．Tagof
    1：ShowMessage（′1stButtonPressed′）；
    2：ShowMessage（′2ndButtonPressed′）；
    3：ShowMessage（′3rdButtonPressed′）；
    end；
    end；
    最后在其他两个按钮的ONCLICK事件中选择已经编好的代码。这样一来就可以实现以上功能了。
    技巧2：制作可移动的分割窗体。
    以下是实现一个简单分割（SPLITTER）窗体的步骤：
    1）在窗体中放置一个MEMO控件并设置它的Align属性为ALTOP；
    2）在窗体中放置一个PANEL控件并设置它的Align属性为ALTOP；
    3）设置PANEL控件的HEIGHT属性为6；
    4）设置PANEL控件的DragMode属性为dmAutomat