S
SUNSTONE的Delphi笔记
Unregistered / Unconfirmed
GUEST, unregistred user!
今天一个朋友在使用UNIGUI碰到了问题,他要遍历窗体上的控件,然后根据类名进行相应控制。
原来的程序为:
procedure TMainForm.Fj_component;
var
i: Integer;
begin
for i := 0 to MainForm.ComponentCount - 1 do
begin
UniMemo1.Lines.Add(MainForm.Components.ClassName);
if MainForm.Components is TUniBitBtn then
begin
UniLabel1.Caption := 'found';
(MainForm.Components as TUniBitBtn).Enabled := false;
end;
end;
end;
这段程序无法运行,后来经过调试才发现TUniBitBtn在web网页中的类名已经更换为TUniExtBitBtn。
这说明web是在win32程序中重新转化成新的类。
作者:sunstone 发表于2011/1/29 22:54:00 原文链接
阅读:1454 评论:1 查看评论
查看更多...
原来的程序为:
procedure TMainForm.Fj_component;
var
i: Integer;
begin
for i := 0 to MainForm.ComponentCount - 1 do
begin
UniMemo1.Lines.Add(MainForm.Components.ClassName);
if MainForm.Components is TUniBitBtn then
begin
UniLabel1.Caption := 'found';
(MainForm.Components as TUniBitBtn).Enabled := false;
end;
end;
end;
这段程序无法运行,后来经过调试才发现TUniBitBtn在web网页中的类名已经更换为TUniExtBitBtn。
这说明web是在win32程序中重新转化成新的类。
作者:sunstone 发表于2011/1/29 22:54:00 原文链接
阅读:1454 评论:1 查看评论
查看更多...