Timage中保存 bmp,png,jpg格式的文件,在程序运行时鼠标可以拖动图片移动(已实现),我想给图片四周加入虚线框,请问怎么实现加虚框?
解决方案 »
- 新手:Delphi7 update语句中where使用数值变量的格式
- 求助问题:如何用Delphi编程实现硬盘文件分配表FAT内容的读写和清除文件名
- 有关算法公式套用的问题,顶者有分!
- 怎么对DBEdit中的字符串进行范围约束?
- frame封装进DLL后有很多问题, 比如resize, 谁有这方面的东东, 请帮兄弟一把! 谢谢
- 求DELPHI6的两个补丁下载地址,谢谢!
- 请问怎样把*.mb文件格式的数据删除!什么软件支持该格式!
- 2000写的程序,到98下运行,发现字体变型变的很厉害,如何解决?
- 程序源码贱卖!!!
- 一個非常愚蠢的問題,如何用speedbutton的雙擊事件???
- 求助淘宝主动通知SIGN签名 (delphi)
- 用delphi的append插入,会把一个datetime从日期和时间中截断。请问如何解决
procedure TForm1.Button2Click(Sender: TObject);
var
R: TRect;
begin
Image1.Canvas.Pen.Color := clRed;
Image1.Canvas.Pen.Style := psDashDot;
R := Rect(1, 1, Image1.Width - 1, Image1.Height - 1);
Image1.Canvas.Rectangle(R);
end;