今天一個朋友在使用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程序中重新轉化成新的類。