Delphi编程技巧常见实例问答(2)

中华网科技 http://tech.china.com 2005-06-10 14:12:57

【进入BBS】【进入聊天室】【 推荐给朋友 】【浏览字号：大 中 小】【关闭窗口】

　　
　　(4).在 Form 的 OnPain 事件中加入

Canvas.Rectangle(2,2,560,430); //画一个黑框的矩形将图片围住;
x:=10; y:=10;
Form1.Canvas.Draw(x,y,Ajpeg); //以(x,y)为左上角输出 JPEG 文件;
//实际上其作用是当图形被破坏是使图形恢复;


　　(5).在’Load’或’Browse’按钮的 onClick 事件中加入:
begin
if OpenPictureDialog1.Execute then
begin
Ajpeg.Free; //释放旧Ajpeg;
Ajpeg:=TJpegImage.Create; //产生一个新的Ajpeg;
Ajpeg.LoadFromFile(OpenPictureDialog1.Filename); //载入JPEG文件;
end;
Canvas.Rectangle(2,2,560,430); //将Form Clear;
x:=10;
y:=10;
Form1.Canvas.Draw(x,y,Ajpeg); //显示新的Ajpeg;
end;


8. DELPHI3启动画面

in your *.dbr files do it
begin
{Create a splash form}
splash:=Tsplash.Create(self);
splash.Show;
splash.update
Application.Initialize;
Application.CreateForm(..)
.
.
.
splash.close;
splash.free;
Application.Run
end;

首页 上页 | 1 | 2 | 下页 尾页  共 2 页