L
Laird
Unregistered / Unconfirmed
GUEST, unregistred user!
我动态生成了1bmp是一幅bmp图像。
我如保将这幅BMP图像加到 tbitbtn里面。
我如保将这幅BMP图像加到 tbitbtn里面。
with TBitMap.Create do
try
LoadFromFile('f:/临时图片/error.123');
BitBtn1.Glyph.Handle := ReleaseHandle;
finally
Free;
end;
with TBitMap.Create do
try
Canvas.Font.Size := 12;
Canvas.Font.Name := '楷体';
Width := 100;
Height := 100;
Canvas.TextOut(10, 10, '自强不息');
BitBtn1.Glyph.Handle := ReleaseHandle;
BitBtn1.Layout := blGlyphTop;
BitBtn1.Height := 150;
BitBtn1.Width := BitBtn1.Height;
finally
Free;
end;