另外OffsetRect是Windows单元的一个函数(API函数)
它的作用是将巨型偏移procedure TForm1.Button1Click(Sender: TObject);
var
vRect: TRect;
begin
vRect := Button1.BoundsRect;
OffsetRect(vRect, -5, -5);
Button1.BoundsRect := vRect;
end;
它的作用是将巨型偏移procedure TForm1.Button1Click(Sender: TObject);
var
vRect: TRect;
begin
vRect := Button1.BoundsRect;
OffsetRect(vRect, -5, -5);
Button1.BoundsRect := vRect;
end;
解决方案 »
- 如何发送一个点击消息给目标程序Tlistview的第一个ITEM
- 为什么使用“动态创建窗体”会出现project1.exe某个内存地址出错啊!?高手指点!!!
- 如何求得BitMap实际长度。
- 有关SQL语句的复杂查询,请大家帮忙!!急!!!。。。。。
- 突破20000,散分。。。
- AOD 问题,高分给你,来者有分,200开始
- 我已经安装了installshield 怎么没看到执行的exe文件,我该如何使用installshield 程序做一个安装程序?
- 关于使用WebBrowser打开 ppt的问题,急寻高手!
- 如何改变listview整行选中的颜色.(在线)
- 深度历险的网址?
- 生日,散分了。快来看呀。100点。
- 如何让TRichedit的滚动条滚到指定的文字所在的行?
OffsetRect(TR,-1+2,-1+2),
OffsetRect(TR,-1+3,-1+3),