几个有关delphi的问题

Question

1:case语句的具体使用(希望给出具体例子)2:如何在一个窗体内调用另一个窗体中的控件(希望给出具体例子)3:动态生成控件后,如何声明它的方法(如onclick方法)?(希望给出具体例子)

Answer 1

1: case no of
            0: result:=1;
            1: result:=0;
        else
               result:= 100;
        end;           
2:Form2调用Form1中button1
  form2 的uses 中加入unit1
  调用：form1.button1
3:procedure RUAddOnClick(Sender: TObject);
  ……
  button1.onclick:=RUAddOnClick;

Answer 2

1:  case  a  of
     1:begin
       end;
     2:beign
       end;
     3:begin
       end;
    end;
2: form2.edit1.text:='123';   在 form2 的 uses 中加入 Unit1;
3: 最好自己编写一个公用的过程 然后调用就可以了
   但是有一点我也没有搞懂 
      就是这个公用过程如果是编写在 窗体单元中有效，如果是单独的单元文件就无效了
   我也不知道为什么   ：（

Answer 3

WELCOME TO DELPHI WORLD!