delphi如何按照控件的左右顺序来遍历窗体中的每个控件
delphi默认是按照控件添加进窗体的顺序来遍历的,
有没有哪个属性能控制这个/??

更多0分享到：
 

回复次数：13
关注
case5166
我看见佛
本版等级：

 
#1 得分：10回复于： 2012-03-11 13:42:18
没有的，

Delphi/Pascal code

 

?

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
object Form1: TForm1
  Left = 226
  Top = 153
  Width = 696
  Height = 480
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
    object Edit1: TEdit
    Left = 336
    Top = 128
    Width = 121
    Height = 21
    TabOrder = 2
    Text = 'Edit1'
  end
  object Button1: TButton
    Left = 208
    Top = 296
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 0
  end
  object Button2: TButton
    Left = 408
    Top = 272
    Width = 75
    Height = 25
    Caption = 'Button2'
    TabOrder = 1
    OnClick = Button2Click
  end
 
  object Edit2: TEdit
    Left = 368
    Top = 32
    Width = 121
    Height = 21
    TabOrder = 3
    Text = 'Edit2'
  end
  object Edit3: TEdit
    Left = 200
    Top = 64
    Width = 121
    Height = 21
    TabOrder = 4
    Text = 'Edit3'
  end
  object RadioButton1: TRadioButton
    Left = 128
    Top = 40
    Width = 113
    Height = 17
    Caption = 'RadioButton1'
    TabOrder = 5
  end
  object MainMenu1: TMainMenu
    Left = 232
    Top = 96
  end
end

、
Delphi是根据这里定义的次序进行加载的，所以此处Components[0]为Button1
如果控制焦点的话是TabOrder这个属性
关注
case5166
我看见佛
本版等级：

 
#2 得分：0回复于： 2012-03-11 13:43:37
object Edit1: TEdit
    Left = 336
    Top = 128
    Width = 121
    Height = 21
    TabOrder = 2
    Text = 'Edit1'
  end
第一个应该是object Edit1: TEdit，看错了下
  
关注
mashengxuucom
mashengxuucom
本版等级：

 
#3 得分：0回复于： 2012-03-11 13:47:43
那controls[0]呢?
Components[0]和controls[0]有啥区别
我又如何才能改变这个次序,望指教.
关注
fjb577128504
fjb577128504
本版等级：

 
#4 得分：0回复于： 2012-03-11 13:48:01
好东西啊
关注
sgzhou12345
山东蓝鸟贵薪
本版等级：

 
 
#5 得分：0回复于： 2012-03-11 13:49:05
case5166
对就是这位仁兄的说法
关注
mashengxuucom
mashengxuucom
本版等级：

 
#6 得分：0回复于： 2012-03-11 14:36:54
那如何实现对panel上的所控件进行位置排序,比如panel上有三个控件,添加进panel中的顺序分别是btn1,btn2,btn3,left小的排在左边,(btn2.left>btn3.left>btn1.left,排列的顺序就为btn1,btn3,btn2)
这种如体实现??
关注
SQLDebug_Fan
SQLDebug_Fan
本版等级：

 
 
#7 得分：0回复于： 2012-03-11 15:19:04
可以用Panel.Components[0]来取得控件，然后判断是否是Button，如：
if Panel.Component[i] is TButton then
关注
case5166
我看见佛
本版等级：

 
#8 得分：0回复于： 2012-03-11 15:44:18
引用 6 楼 mashengxuucom 的回复:

那如何实现对panel上的所控件进行位置排序,比如panel上有三个控件,添加进panel中的顺序分别是btn1,btn2,btn3,left小的排在左边,(btn2.left>btn3.left>btn1.left,排列的顺序就为btn1,btn3,btn2)
这种如体实现??

Delphi/Pascal code

 

?

1
2
3
4
5
6
7
8
9
10
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
 
  for i:= 0 to self.ComponentCount - 1 do
  begin
     if Components[i].name = 'Button4' then
    ShowMessage(Components[i+1].Name);
  end;
end;

存细观察下可以发现DELPHI的添加次序还是很有规律的
在PANEL下则只需调整PANEL内的元件次序就可以了，

(Components[i] as TControl).Left := (Components[i+1] as TControl).Left+10;这类代码来调整
关注
case5166
我看见佛
本版等级：

 
#9 得分：0回复于： 2012-03-11 15:48:37
引用 3 楼 mashengxuucom 的回复:

那controls[0]呢?
Components[0]和controls[0]有啥区别
我又如何才能改变这个次序,望指教.

参考http://www.cnblogs.com/del/archive/2008/10/23/1317862.html
关注
mashengxuucom
mashengxuucom
本版等级：

 
#10 得分：0回复于： 2012-03-15 13:27:41
class procedure myformUtil.AdjustToolBar(aContainer: TWinControl;
  bIsVert: Boolean; iSpace, iInitPosition: Integer);
var
  col: TControl;
  ls: TStringList;
  i: Integer;
begin
  if iSpace < 0 then
    iSpace := 4;
  if iInitPosition < 0 then
    iInitPosition := 10;

aContainer.Controls[0].Left := iInitPosition;
  aContainer.Controls[0].Top := Round((aContainer.ClientHeight -
    aContainer.Controls[0].Height) / 2);
  aContainer.Controls[i].Left := iSpace + aContainer.Controls[i - 1].Left
    + aContainer.Controls[i - 1].Width;
  aContainer.Controls[i].Top := Round((aContainer.ClientHeight -
    aContainer.Controls[i].Height) / 2);
end;

看看我这段代码,实现控件自动排序的,如何实现控件按原来的位置从左到右依次排序呢?
这个默认的排序规则是控件添加 进panel中的顺序.
高手指点指点..
关注
onlyou13
onlyou13
本版等级：

 
#11 得分：0回复于： 2012-03-15 13:35:48
可以设置tag来实现，然后findcomponent
关注
kuangning
kuangning
本版等级：

 
#12 得分：10回复于： 2012-03-23 22:08:03
如果窗体上的控件都是 TWinControl继承下来的 下面的代码对你可能有帮助
  var

P:TPoint;
wnd:Thandle;
vWinControl: TWinControl;
begin

P := self.ClientToScreen(Point(x,y));

wnd := WindowFromPoint(p);//
      if wnd<>0 then
      begin
           vWinControl := FindControl(wnd);

end;

end;
关注
kuangning
kuangning
本版等级：

 
#13 得分：0回复于： 2012-03-23 22:11:03
以上代码对TLabel，TImage无效 对TPanel，TEdit有效
对无效的TLabel，TImage等放在TPanel容器里面，上面的代码就可以用了

delphi如何按照控件的左右顺序来遍历窗体中的每个控件 [问题点数：20 http://bbs.csdn.net/topics/380216822的更多相关文章

  1. 关于WinForm引用WPF窗体---在Winform窗体中使用WPF控件

    项目中有个界面展示用WPF实现起来比较简单,并且能提供更酷炫的效果,但是在WinForm中使用WPF窗体出现了问题,在网上找了一下有些人说Winform不能引用WPF的窗体,我就很纳闷,Win32都能 ...

  2. 【机房系统知识小结点系列】之遍历窗体中的控件，判断Text是否为空？

    做机房系统时,几乎每个窗体中都会用到判断界面中的控件是否为空的情景.我们曾经是这样走来的: 第一版: 好处:对窗体界面中的Text等控件,逐一做判断,当用户输入某一项为空的时候,会议弹出框的形式,告诉 ...

  3. (转)C# WinForm中 获得当前鼠标所在控件 或 将窗体中鼠标所在控件名显示在窗体标题上

    原文地址:http://www.cnblogs.com/08shiyan/archive/2011/04/14/2015758.html /********************** * 课题:将窗 ...

  4. winfrom窗体中嵌套WPF控件

    前言 本文主要介绍如何在winfrom窗体中嵌套WPF控件, 一来是自己记录一下,而来希望能对有需要的朋友提供实现思路. 如有错误请指出...下面进入正题... -1.前期准备 准备一个建立好的win ...

  5. 在Winform窗体中使用WPF控件（附源码）

    原文:在Winform窗体中使用WPF控件(附源码) 今天是礼拜6,下雨,没有外出,闲暇就写一篇博文讲下如何在Winform中使用WPF控件.原有是我在百度上搜索相关信息无果,遂干脆动手自己实现. W ...

  6. Winform中怎样在工具类中对窗体中多个控件进行操作(赋值)

    场景 需求是在窗体加载完成后掉用工具类的方法,工具类中获取窗体的多个控件对象进行赋值. 注: 博客主页: https://blog.csdn.net/badao_liumang_qizhi 关注公众号 ...

  7. ！！无须定义配置文件中的每个变量的读写操作，以下代码遍历界面中各个c#控件，自动记录其文本，作为配置文件保存

    namespace PluginLib{    /// <summary>    /// 遍历控件所有子控件并初始化或保存其值    /// </summary>    pub ...

  8. CRM窗体中只读的控件不会引发Update事件

    在CRM的窗体设计时,如果把某一个控件设为只读了,仅管你在后台用代码修改了值,这个值也不会起任何作用,更不会提交到后台,触发Update事件!

  9. 【C#】在窗体中水平居中的控件，到了XP下不居中的解决办法

    我时不时会遭遇这个操蛋问题,今天得闲研究了一下,解决如下: A.将窗体FormBorderStyle属性改为Fixed系,当然这会导致用户不能拖拉窗口大小,所以你可能需要B计划↓ B.确保在[VS]中 ...

随机推荐

  1. ubuntu install xsltproc docbook-xsl docbook-xml

    问题一: $ makexsltproc --output phtml/ param.xsl ./pxml/mainbook.xmlmake: xsltproc: Command not foundma ...

  2. Hadoop本地模式搭建

    官方文档,不同版本修改url地址中的数字即可 http://hadoop.apache.org/docs/r2.7.2/hadoop-project-dist/hadoop-common/Single ...

  3. 基于FPGA的以太网开发

    基于FPGA的以太网开发,在调试过的FPGA玩家开来,其实算不上很难的技术!但是如果只是菜鸟级别的选手,没有调试过的话,就有些头疼了!早在自己在实习的时候,就接触到XAUI(万兆以太网口)接口,但是由 ...

  4. 基于linux(CentOS7)数据库性能优化（Postgresql）

    基于CentOS7数据库性能优化(Postgresql) 1.  磁盘 a)         Barriers IO i.              通过查看linux是否加载libata,确定是否开 ...

  5. 03python面向对象编程4

    http://c.biancheng.net/view/2287.html 1.1定义类和对象 在面向对象的程序设计过程中有两个重要概念:类(class)和对象(object,也被称为实例,insta ...

  6. Codeforces Round #573 (Div. 2) D. Tokitsukaze, CSL and Stone Game （博弈，思维）

    D. Tokitsukaze, CSL and Stone Game time limit per test1 second memory limit per test256 megabytes in ...

  7. 最小可观(Minimal Observability Problem in Conjunctive Boolean Networks)

    论文链接 1. 什么是 conjunctive Boolean network (CBN) 仅仅包含and运算. 下面这个式子为恒定更新函数 2. 什么是可观 定义在时刻k是CBN的状态为 X(k) ...

  8. Codeforces 916 二进制1数目构造(阅读理解) 最小生成树1-N路径质数构造

    A #include <bits/stdc++.h> #define PI acos(-1.0) #define mem(a,b) memset((a),b,sizeof(a)) #def ...

  9. java编写算法题格式(链表和二叉树)

    (1)链表 /** * Definition for singly-linked list. * public class ListNode { * int val; * ListNode next; ...

  10. Python---进阶---logging---装饰器打印日志

    #### logging - logging.debug - logging.info - logging.warning - logging.error - logging.critical --- ...