请问怎样在窗体上画一个矩形框,框线最好有象groupbox那样的凹凸感,但不要用groupbox
解决方案 »
- 求助:是否有api函数可以完成对域用户身份和密码的验证,并返回验证结果?
- 如何将datetime数据类型加3年后,再赋给datetime类型?
- 寻求适合教育网上国外站点的代理服务器,速度快些的,谢谢!
- 如果服务器上用的是Paradox库,终端写库是不是只要把BDE指向服务器放有Paradox库的完全共享文件夹就可以了?
- 用SQLDMO删除数据库(给200分)
- 一个仓库管理系统的困扰!!!!!!!???????
- 请教:李维书上的例子的问题!!!
- delphi中调用vc写的dll,不能设置断点,断点无效,请问怎么解决
- 请大侠们出手救偶:怎样做Dephi5.0+Sql2000的安装程序(用AD0连)
- 用dephi+ado控件开发的access 2000应用程序在发布时需要带哪些包?
- 如何将一个在paintbox上画的图以 *.bmp格式存储到硬盘上???
- 谁能告诉我oracle 9能下载地址,谢谢!
BevelInner: bsRaised
BevelOuter: bsLowered
, 给分吧
begin
with Self.Canvas do
begin
Pen.Color := clGrayText;
MoveTo(50, 50);
LineTo(50, 100);
LineTo(100, 100);
LineTo(100, 50);
LineTo(50, 50);
Pen.Color := clWhite;
MoveTo(51, 51);
LineTo(51, 99);
MoveTo(50, 101);
LineTo(101, 101);
LineTo(101, 50);
MoveTo(99, 51);
LineTo(51, 51);
end
end;
var
rc: TRect;
begin
rc := Rect(100, 100, 200, 200);
Frame3D(Canvas, rc, clBtnShadow, clBtnHighlight, 1);
Frame3D(Canvas, rc, clBtnFace, clBtnFace, 1);
Frame3D(Canvas, rc, clBtnHighlight, clBtnShadow, 1);
end;
BevelInner: bsRaised
BevelOuter: bsLowered
再把color设置成白色就行了啊