private
    { Private declarations }
    Png:TPngImage;constructor TMyAppButton.Create(AOwner: TComponent);
begin
  Png:=TPngImage.Create;
  Png.LoadFromResourceName(HInstance,'app_button');
  inherited;
  Width:=Png.Width;
  Height:=Png.Heightend;destructor TMyAppButton.Destroy;
begin
FreeAndNil(png);
inherited;
end;procedure TMyAppButton.paint;
var
  R:TRect;
begin
  R := ClientRect;
  Canvas.Brush.Style := bsClear;
  if (FInButtonArea = True)then
  begin
    Canvas.StretchDraw(R,Png);
  end;
end;
 private
    { Private declarations }
    Png:TPngImage;constructor TMyAppButton.Create(AOwner: TComponent);
begin
  Png:=TPngImage.Create;
  inherited;end;destructor TMyAppButton.Destroy;
begin
FreeAndNil(png);
inherited;
end;procedure TMyAppButton.paint;
var
  R:TRect;
begin
  R := ClientRect;
  Canvas.Brush.Style := bsClear;
  if (FInButtonArea = True)then
  begin
    Png.LoadFromResourceName(HInstance,'app_button');
    Canvas.StretchDraw(R,Png);
  end;
end;
procedure TMyAppButton.paint;
var
  R:TRect;
 Png:TPngImage;begin
  Png:=TPngImage.Create;  R := ClientRect;
  Canvas.Brush.Style := bsClear;
  if (FInButtonArea = True)then
  begin
    Png.LoadFromResourceName(HInstance,'app_button');
    Canvas.StretchDraw(R,Png);
  end;
FreeAndNil(png);
end;请大神指点一下,或者还有其他方法,新手不太会~~~