DELPHI写DXDraw中的图片按钮透明

要实现图片按钮的透明效果，可以使用 Delphi 中的 TImageList 和 TButton 控件结合使用，在 TButton 的 OnPaint 事件中绘制 TImageList 中的图像，并在需要透明的地方设置为透明色。具体实现步骤如下：

1. 在 Delphi 中创建一个 TImageList 控件，把需要用到的按钮图像添加到 TImageList 中。

2. 在 Form 中创建一个 TButton 控件，设置其 Style 属性为 bsOwnerDraw。这样可以在 TButton 绘制时自定义绘制方法。

3. 在 TButton 的 OnPaint 事件中绘制 TImageList 中的图像。代码如下：

procedure TForm1.Button1Paint(Sender: TObject);
begin
  ImageList1.Draw(Button1.Canvas, 0, 0, 0);
end;

这里使用了 TImageList 的 Draw 方法将图像绘制到 TButton 中。

4. 在需要透明的地方设置为透明色。可以使用 Canvas.Pixels[x, y] 方法设置像素颜色。代码如下：

procedure TForm1.Button1Paint(Sender: TObject);
var
  X, Y: Integer;
begin
  ImageList1.Draw(Button1.Canvas, 0, 0, 0);

  // 设置左上角的像素为透明色
  X := 0;
  Y := 0;
  Button1.Canvas.Pixels[X, Y] := clFuchsia;
end;

这里将左上角的像素设置为透明色，使用了 Delphi 中预定义的颜色 clFuchsia。

这样就可以实现图片按钮的透明效果了。