芙
芙蓉弟弟
Unregistered / Unconfirmed
GUEST, unregistred user!
如果写到窗体代码里 这样就已经可以了
procedure TCB.MyClick(Sender: TObject);
begin
showmessage(ActiveControl.Name);
end;
但是我现在是写到单元里的 不知道为什么就不行了 知道的高手指点一下 谢谢
procedure TCB.MyClick(Sender: TObject);
begin
showmessage(ActiveControl.Name);
end;
但是我现在是写到单元里的 不知道为什么就不行了 知道的高手指点一下 谢谢
