J javadiy Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-04 #1 如果想反回多个LABEL标签中的其中一个的标签字符串，而且是当前设为可见的那个标签的 应该怎样写，用什么命令呢？ 还有getSource()这个方法的作用是什么呢？ 谢谢。
J jsxjd Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-04 #2 procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin for i:=0 to componentCount-1do if (components is TLabel) then if TLabel(components).visible then showmessage(TLabel(components).caption); end;
procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin for i:=0 to componentCount-1do if (components is TLabel) then if TLabel(components).visible then showmessage(TLabel(components).caption); end;
