readonly?

Question

var
  Temp: TComponent;for i:=0 to scrollbox.ComponentCount-1 do
begin
    Temp := scrollbox.Components[I];
    if (Temp is TDBEdit) then
        TDBEdit(Temp).readonly:=true;
end;

Answer 1

请问TDBEdit(Temp)是什么意思,它的作用是什么?

Answer 2

把控件强制转换成TDBEdit结构。

Answer 3

上面的代码可能不行，好像scrollbox上面的组件个数始终为0，你可以用这段代码，保证没问题：
procedure TForm1.BitBtn2Click(Sender: TObject);
var
  Temp: TComponent;
  i:integer;
begin
    for i:=0 to ComponentCount-1 do
    begin
        Temp := Components[i];
        if (Temp is TDBEdit) then
        begin
            if TDBEdit(Temp).Parent=scrollbox then
                TDBEdit(Temp).readonly:=true;
        end;
    end;
end;

Answer 4

对,是不行,为什么scrollbox上面的组件个数会始终为0呢?不明白