1. 程式人生 > >UNIGUI中控制元件類名的變化

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程式中重新轉化成新的類。