如何创建控件组?(20分)

  • 主题发起人 主题发起人 凌云客
  • 开始时间 开始时间

凌云客

Unregistered / Unconfirmed
GUEST, unregistred user!
在VB中,只要两个控件名称相同,就可以创建一个控件组,例如Edit[1]、Edit[2]等
等,请问,在Delphi中如何实现?
  (注:我写了一个控件组,在编译的时候,没有语法错误,但是,显示不出来)
 
Edit : array of TEdit;
 
控件组可能用来动态创建 tedit.creat;
你也可以
var s;array[1..5] of string;
; ; s[(sender as tedit).tag]:=(sender as tedit).text;
 
在delphi中控件数组实在是比麻烦的多。
你要懂动态创建控件。比如一组按钮控件数组。
buttonarray:array [0..10] of tbuton;
for i:=0 to 10 do
; begin
; ; buttonarray:=tbutton.create(self);
; ; buttonarray .parent:=form1;
; end;
这样才可以生成控件数组。
然后在引用的时候用sender属性来区分。
 
这个问题讨论多次了.
官方的用法是设置tag,
通过TWinControl(sender).tag区分.
用起来跟VB差不多.
 
但是,这样子建了以后,Edit不能显示在Form里呀(我很菜)。麻烦各位再帮小弟
想想问题在哪?多谢啦。
 
Edit:=TEdit.create(self);
Edit.parent:=form1;
 
可以显示啊!
不过最好显式指定:left,top,width,height
 
Edits: array of TEdit;
...
n := 5;
SetLength(Edits, n);
for i:=0 to n-1 do
; Edits := TEdit.Create;
//这样可以创建动态控件数组,想要多少就多少,不用浪费资源
 
谢谢各位
 
多人接受答案了。
 
后退
顶部