var
TBitmap1: TBitmap;procedure TfrmCollection.FormShow(Sender: TObject);
begin
TBitmap1 := TBitmap.Create;
TBitmap1.LoadFromFile('2.bmp');
end;procedure TfrmCollection.tbrAdvancedCustomDraw(Sender: TToolBar;
const ARect: TRect; Stage: TCustomDrawStage; var DefaultDraw: Boolean);
begin
tbr.Canvas.StretchDraw(Arect, TBitmap1);
end;以上,生成exe文件后,复制exe文件到别的目录再运行就会出错,怎么办?
谁帮忙告知下原因,谢谢
TBitmap1: TBitmap;procedure TfrmCollection.FormShow(Sender: TObject);
begin
TBitmap1 := TBitmap.Create;
TBitmap1.LoadFromFile('2.bmp');
end;procedure TfrmCollection.tbrAdvancedCustomDraw(Sender: TToolBar;
const ARect: TRect; Stage: TCustomDrawStage; var DefaultDraw: Boolean);
begin
tbr.Canvas.StretchDraw(Arect, TBitmap1);
end;以上,生成exe文件后,复制exe文件到别的目录再运行就会出错,怎么办?
谁帮忙告知下原因,谢谢
错误原因我知道,就是不知道该怎么解决
你把2.bmp的全路径写上去试试