delphi7控件

1、TabControl控件怎么让它透明。
2、TabControl控件它不是有几个页吗？我怎么让它每个页的按键执行不同的命令（每页的东西都是一样的）。

追问：
谢谢先，等等第一个

答案：procedure TForm1.TabControl1Change(Sender: TObject);
begin
  if tabcontrol1.tabindex=0 then
    begin
      edit1.Text:='HH';
    end
  else if tabcontrol1.tabindex=1 then
    begin
      edit1.Text:='WW';
    end;
end;
1、TabControl控件怎么让它透明。
    TabControl空间没有Alphablend属性，所以你不能让它透明。除非你可以重新编写它。
 
2、TabControl控件它不是有几个页吗？我怎么让它每个页的按键执行不同的命令（每页的东西都是一样的）。
 
对于每个页的标签，你可以在onmousedown 事件里添加响应事件。如下
       IF TabcONTROL1.TabIndex = 1 THEN
       EDIT1.Text := '1' ;
      IF TabcONTROL1.TabIndex = 0 THEN
       EDIT1.Text := '0' ;

上一个：delphi拦截问题
下一个：delphi动态调用Dll