在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
刚打开 XE2 时, 就从 Tool Palette 窗口的 Effects 组中发现洋洋洒洒的六十多个特效...
{ 为 Panel1 设置阴影特效 } procedure TForm1.FormCreate(Sender: TObject); begin with TShadowEffect.Create(Self) do begin Parent := Panel1; //特效也是作用于其父对象 Distance := 3.0; //距离 Direction := 45.0; //角度 Softness := 0.3; //柔和度 Opacity := 0.6; //透明度 ShadowColor := claBlack; //阴影色 Trigger := 'IsMouseOver=true'; //指定启用效果的事件, 从其父类 TEffect 继承, 现在不太好用(也可能是我不会用) end; end; |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论