procedure TForm1.BitBtn1Click(Sender: TObject);
var bmp:Tbitmap;
begin
bmp:=Tbitmap.Create;
image1.Picture.LoadFromFile('d:\s1.jpg');
bmp.Assign(image1.Picture.Graphic);
image2.Picture.Bitmap:=bmp;
bmp.Free;
end;
var bmp:Tbitmap;
begin
bmp:=Tbitmap.Create;
image1.Picture.LoadFromFile('d:\s1.jpg');
bmp.Assign(image1.Picture.Graphic);
image2.Picture.Bitmap:=bmp;
bmp.Free;
end;
解决方案 »
- 问一个调用VC下编写的dll的问题???好怪哦
- ADO SQL server 开发管理系统,有兴趣的MM 我
- 如何向注册表读写超过1M的大型二进制数据
- 如何设置TTS把文件生成语音文件的格式
- 强烈要求FrameSniper版主马上辞去版主职位!!!!!!!
- 现在封装了directx for delphi 的控件包有那些?重要是哪里有的下载.
- 拷贝文件时,如果目的文件存在,则要弹出一个文件替换的对话框,请问文件替换的API是什么?
- 求助:我用vc编写了一个ActiveX,但是在Dephi里面调用时出了问题!
- 哪里有“新编Windows API参考大全”的电子版下载??
- 请问一个汉字与其拼音声母是否可以用一个固定函数转换?
- 请教子串的sql查询
- 刻录CD_R光盘(用Nero)有没有可能多次刻录而且前几次的刻录内容保留?
ps:tikkypeng(千两狂死郎):咱们好像是总能见面哎