本文整理自网络,侵删。
delphi ExtCtrls.Frame3D
uses ExtCtrls;
procedure TForm1.FormPaint(Sender: TObject);
var
R1, R2: TRect;
begin
R1 := Rect(10, 10, 150, 50);
Frame3D(Canvas, R1, clBlack, clSilver, 1);
R2 := Bounds(10, 80, 140, 40);
Frame3D(Canvas, R2, clRed, clBlue, 1);
end;
相关阅读 >>
Delphi 使用firedac打开sqlite数据库韩文、阿拉伯文出现乱码的处理方法
Delphi datetimetogmt gmt时间与tdatetime转换
Delphi启动/停止windows服务,启动类型修改为"自动"
datasnap 上传/下载大文件(本demo以图传片文件为例)
Delphi 如何把一个exe做为res加入到dll中,并在运行时生成exe文件执行
更多相关阅读请进入《Delphi》频道 >>