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;请大神指点一下,或者还有其他方法,新手不太会~~~
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货