UNIGUI中控件類名的變化

今天一個朋友在使用UNIGUI碰到了問題，他要遍歷窗體上的控件，然後根據類名進行相應控制。

 

原來的程序爲：

procedure TMainForm.Fj_component;
var
  i: Integer;
begin
  for i := 0 to MainForm.ComponentCount - 1 do
  begin
    UniMemo1.Lines.Add(MainForm.Components[i].ClassName);
    if MainForm.Components[i] is TUniBitBtn then
    begin
      UniLabel1.Caption := 'found';
      (MainForm.Components[i] as TUniBitBtn).Enabled := false;

    end;
  end;
end;

 

 

這段程序無法運行，後來經過調試才發現TUniBitBtn在web網頁中的類名已經更換爲TUniExtBitBtn。

這說明web是在win32程序中重新轉化成新的類。