【结帖】请问在窗体上如何遍历表格文档上的某类型控件？**

jianth2005

如题

lixy

procedure TBGWD1.Button3Click(Sender: TObject);
var
   i:integer;
begin
  for i:=0 to   self.ComponentCount -1 do
  begin
   if  (self.Components is TButton) then
     TButton(self.Components).Caption:='test';
  end;
end;

例子

jianth2005

2楼你那个例子是遍历窗体上的控件
而我的需求是:在窗体上  遍历表格文档上的某类型控件;'控件是属于表格文档的

lixy

图

jianth2005

4楼你的控件都是在窗体上才拖下来的吧??
看下我2楼说的

你的好象行不通,试过了

atiger

怎么试的，把你的代码贴出来看看吧

jianth2005

for i:=0 to   self.ComponentCount -1 do
  begin
   if  (self.Components is TCheckBox) then
     TCheckBox(self.Components).Enabled:=false;
  end;

请看下图.只有CheckBox1变暗了,因为它是在窗体上
而别的是在表格文档上引用过来的

lixy

unit BGWD1;

interface

uses
  Business.System, Business.Model, Business.Forms;

type
  TBGWD1 = class(TSheetDoc)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button3Click(Sender: TObject);
  private
    {private declarations}
  public
    {public declarations}
  end;

implementation


procedure TBGWD1.Button3Click(Sender: TObject);
var
   i:integer;
begin
  for i:=0 to   self.ComponentCount -1 do
  begin
   if  (self.Components is TButton) then
     TButton(self.Components).Caption:='test';
  end;
end;

end.
完整的代码，楼主我不可能做个假例子给你的。

atiger

楼主，你7楼的代码写到哪里了呢？8楼的代码是写在文档的Button3的onClick事件上的。
当代码没有实现自己的需求，需要设置断点跟踪，要不逻辑出问题，要不事件写的不对，没有执行到，

jianth2005

解决了.揭贴