delphi ExtCtrls.Frame3D

本文整理自网络，侵删。

 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 中tresourcestream流使用

Delphi unigui 安装和配置hyperserver

dbgrideh 组件在borland开发工具中应用全攻略

Delphi 用sql语句添加删除修改字段

Delphi 利用vclzip实现分卷压缩

Delphi append 追加内容到文件中

Delphi打开"我的电脑"等特殊文件夹

Delphi 写dll注入器

Delphi 内进行音量控制及静音

Delphi 写开关防火墙代码

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi ExtCtrls.Frame3D