中易网

怎么实现带阴影效果的窗体,马上结贴

答案:1  悬赏:20  
解决时间 2021-01-16 21:46
怎么实现带阴影效果的窗体,马上结贴
最佳答案
楼主给你一个窗体阴影的代码:

Delphi(Pascal) codeprocedure ShadeIt(f: TForm; c: TControl; Width: Integer; Color: TColor);
var
rect: TRect;
old: TColor;
begin
if (c.Visible) then
begin
rect := c.BoundsRect;
rect.Left := rect.Left + Width;
rect.Top := rect.Top + Width;
rect.Right := rect.Right + Width;
rect.Bottom := rect.Bottom + Width;
old := f.Canvas.Brush.Color;
f.Canvas.Brush.Color := Color;
f.Canvas.fillrect(rect);
f.Canvas.Brush.Color := old;
end;
end;

procedure TForm1.FormPaint(Sender: TObject);
var
i: Integer;
begin
for i := 0 to Self.ControlCount - 1 do
ShadeIt(Self, Self.Controls[i], 3, clBtnShadow);
end;
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
今晚开什么动物123第
醴陵天虹宾馆地址在哪,我要去那里办事
合诺汽车销售服务有限公司怎么去啊,我要去那
同物既无虑,化去不复悔。______ ,良辰讵可待!
我国形成全方位对外开放格局的方向大致是
一部小说主角有混沌火焰炼丹是哪个
魏晋南北朝时期是什么选人制度
手机流量,我有省内的,有省外的,如果我出了
醴陵佳伦宾馆地址在什么地方,我要处理点事
求托班下册科学《出来进去》教案
佰达纳福洗衣店(华明恒大名都店)地址在什么地
口袋妖怪蓝宝石586版的神兽抓获地点,我的是
29%碳酸钠溶液 用无水碳酸钠怎么配制
英雄联盟有的对友出门怎么跑那么快,出了什么
顺安搬家公司地址在什么地方,我要处理点事
推荐资讯
在马来西亚男生左脚系黑线有何意义
魔兽世界里裁缝用的 铁网蛛丝 哪里掉落的多啊
“腐女”是什么意思哒?还有“萝莉”、“正太
招商银行发催还款短信,信用卡还款晚了5天,真
吉他只段一根弦就全部都要更换吗
gay圈的人都有哪几类
求科普:乾聋在古代字画上乱盖章属于什么行为
在信阳开个门面买茶叶怎么样
有一种胶水,本身凝固很慢,但是另外一种液体喷
滤波是从什么电压中滤除交流分量
用10件3.6伏4000毫安时串联用36伏电动车可以
在中国,什么军衔才能用了ak47
手机登qq时,显示手机磁盘不足,清理后重新登
刺客的套装怎么选啊?