procedure TForm1.FormCreate(Sender: TObject);
begin
Brush.Bitmap := Image1.Picture.Bitmap;
end;
begin
Brush.Bitmap := Image1.Picture.Bitmap;
end;
解决方案 »
- 用 Indy 的 idhttp控件下载文件时怎么做进度条?
- 请问一条SQL语句怎么写
- 为什么我自己做的浏览器没法“复制/粘贴”内容?
- 大家看一下开发这样一个程序大约要多少钱
- 怎么设置EhLib的PrintDBGridEh打印每一行纪录的行距?
- MDI类型窗体的登陆窗体出错?请高手赐教!
- 在DLL中如何使用ADO!!!
- 发现一个大家可能都没有注意到的问题,就是Delphi的高手远比学C++和Java的少!
- 一个有关locate的很急的问题,再线等待...
- 请教各位大虾,如何在delphi中实现将sql表导出成.txt文件,100分相赠!
- 怎样从一个应用程序某一个form的Name得到该Form的实例,
- 我刚刚完成一个用DELPHI开发的反黄软件,欢迎大家下载。多发表高见! www.zhengquan518.com/downloads/disk1.zip
begin
Image1.Picture.LoadFromFile('C:\Windows\Bubbles.bmp');
Brush.Bitmap := Image1.Picture.Bitmap;
end;