zoukankan      html  css  js  c++  java
  • 测试 Components 与 Controls 的区别

    本例效果图:



    代码文件:
    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
    
  • 相关阅读:
    UIScrollView的滚屏
    ASIHTTPRequest 详解, 够详细
    Libxml2中使用xpath解析xml问题
    new Random()结果相同问题
    UINavigationController使用的一些技巧
    Objectivec 模拟http请求
    开发视频网站,asp.net视频文件转换.flv格式(转)
    jqueryjCarousel 配置选项
    NSDate和NSString之间的转换,(可以转时区的哈)
    NSLog的格式
  • 原文地址:https://www.cnblogs.com/del/p/1317862.html
Copyright © 2011-2022 走看看