高手快来，高分求君一句话！

if (Sender is Tgauge) then
showmessage((Sender is Tgauge).CalssName)

解决方案 »

  1.   

    if (Sender is Tgauge) then
    showmessage((Sender as Tgauge).CalssName) 
      

  2.   

    njbudong(南京不懂)　
    showmessage((Sender is Tgauge).CalssName) 应改为
    showmessage((Sender as Tgauge).CalssName) 
    而且结果是TGauge
      

  3.   

    njbudong(南京不懂)　
    showmessage((Sender is Tgauge).CalssName) 应改为
    showmessage((Sender as Tgauge).Name) 
      

  4.   

    你的popupmenu父亲是Tgauge？
    那你就showmessage(((Sender as Tpopupmenu).parent as Tgauge).name) 
      

  5.   

    请问我在点击popumenu时，它的sender是popumenu呀.
    我是写在popumenu.onpopup内的!
    Tgauge无任何事件！
      

  6.   

    kevin_gao(困了！累了！睡觉了！)　你的代码报错！
      

  7.   

    kevin_gao(困了！累了！睡觉了！)　你的代码报错！ 
    (sender as tpopupmenu).parent 中 parent是为声明的!
      

  8.   

    你的Tgauge和你的popupmenu是什么关系？
      

  9.   

    if (Sender is Tgauge) then
    showmessage((Sender is Tgauge).CalssName) 
      

  10.   

    showmessage((Sender as Tpopupmenu).PopupComponent.Name)