小问题。

Question

问题1：这两句话什么意思？  
self.AlphaBlend := true;
self.AlphaBlendValue := 125;
问题2：form 的ActiveControl事件有什么用处？
问题3：这句话什么意思？^有何用？
if Psid(tvPer.Items[i].Data)^.sNo = edtInqu.Text

Answer 1

1）Win2000，xp一下可看到透明效果

Answer 2

1）self.AlphaBlend := true;效果
self.AlphaBlendValue := 125;透明度
2）当前的活动控件
3）指针
  var
    pi:^integer;
    i:integer;     
  begin
     i:=100;
     pi^:=@i;
      ...