zoukankan      html  css  js  c++  java
  • 测试 Components 与 Controls 的区别(嵌套在Panel上的Edit,依然是Form1的Component)

    本例效果图:



    代码文件:


    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, ExtCtrls;
    
    type
      TForm1 = class(TForm)
        Panel1: TPanel;
        Edit1: TEdit;
        Button1: TButton;
        Memo1: TMemo;
        procedure Button1Click(Sender: TObject);
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    procedure TForm1.Button1Click(Sender: TObject);
    var
      i: Integer;
    begin
      Memo1.Clear;
    
      Memo1.Lines.Add('窗体所属的 Components:');
      for i := 0 to Self.ComponentCount - 1 do
        Memo1.Lines.Add(Components[i].Name);
    
      Memo1.Lines.Add('');
      Memo1.Lines.Add('窗体所属的 Controls:');
      for i := 0 to Self.ControlCount - 1 do
        Memo1.Lines.Add(Controls[i].Name);
    end;
    
    end.

    窗体文件:


    object Form1: TForm1
      Left = 0
      Top = 0
      Caption = 'Form1'
      ClientHeight = 175
      ClientWidth = 339
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      OldCreateOrder = False
      PixelsPerInch = 96
      TextHeight = 13
      object Panel1: TPanel
        Left = 194
        Top = 8
        Width = 137
        Height = 113
        Caption = 'Panel1'
        TabOrder = 0
        object Edit1: TEdit
          Left = 16
          Top = 11
          Width = 81
          Height = 21
          TabOrder = 0
          Text = 'Edit1'
        end
      end
      object Button1: TButton
        Left = 224
        Top = 136
        Width = 75
        Height = 25
        Caption = 'Button1'
        TabOrder = 1
        OnClick = Button1Click
      end
      object Memo1: TMemo
        Left = 0
        Top = 0
        Width = 185
        Height = 175
        Align = alLeft
        Lines.Strings = (
          'Memo1')
        TabOrder = 2
        ExplicitHeight = 192
      end
    end

    http://www.cnblogs.com/del/archive/2008/10/23/1317862.html

  • 相关阅读:
    Kera高层API002
    Kera高层API
    手写数字问题实战(层)
    函数优化实战
    反向传播算法
    链式法则
    多输出感知机及其梯度
    JDBC
    mysql查询操作1
    内部类
  • 原文地址:https://www.cnblogs.com/findumars/p/6028402.html
Copyright © 2011-2022 走看看