怎样使用 KOL-CE 中按钮KOLButton时间中的 Sender

nshark

     各位好，刚刚摸索着用Lazarus+KOL在XP下开发WinCE程序，现在有两个问题希望得到各位的帮助。
    1. 怎样使用 KOLButton时间中的(Sender)。因为有多个按钮同时用一个事件所以需要使用 Sender 参数。
        procedure TForm3.Button3Click(Sender: PObj);
        begin
             EditBox2.Text:=(Sender as TKOLButton).Caption;   //有错误  unit3.pas(124,26) Error: Class or interface type expected, but got &quotControl"
        end;   
       看了PObj的定义没搞懂，惭愧！！
    2.怎样遍历窗体中所有的控件。在编译器不支持   ComponentCount和 Components。
    以上两个问题都是在编译器设置成 LCL-WinCE，Target-WinCE-arm编译时的问题。
   谢谢各位！！

nshark

请朋友们帮忙研究一下。

whysibee

问题1：
EditBox2.Text:=Pcontrol(Sender).Caption;

问题2：
用Form.ChildCount和Form.Children[x]遍历Form下的所有控件；

nshark

谢谢whysibee 的帮助，问题已经解决。佩服你深厚的功底！！！向你学习。