急：怎样让Button透明

Question

一个image,上面有一个button，怎么让button透明。高分相赠。

Answer 1

用 Label + Bevel 模拟。procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Bevel1.Visible := true;
  Label1.BringToFront;
end;procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Bevel1.Visible := false;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  with Bevel1 do
    begin
    Left := Label1.Left - 10;
    Top := Label1.Top - 4;
    Width := Label1.Width + 20;
    Height := Label1.Height +8;
    Style := bsRaised;
    Shape := bsBox;
    Visible := false;
    end;
  Label1.Transparent := true;
end;procedure TForm1.Label1Click(Sender: TObject);
begin
  ShowMessage('Button Be Clicked !');
end;

Answer 2

你可以用BITBTN按钮控件实现啊！bitbtn可以添加bmp的图片啊，这样就不用在图片上加按钮了啊！不知你是不是这个意思！^_^