登录
首页 » Delphi源码 » Delphi Shadow窗口阴影立体效果

Delphi Shadow窗口阴影立体效果

于 2022-05-14 发布 文件大小:6.40 kB
0 203
下载积分: 2 下载次数: 1

代码说明:

Delphi 制作立体窗口阴影效果,这个阴影看上去很明显,不过不是线性的,线性的实现起来要比这种阴影复杂一些。   ShadowWidth:integer; //用于确定阴影的宽度或高度   RightShadow:TForm; //主窗口的右边产生一个阴影窗口   BottomShadow:TForm; //主窗口的下部产生一个阴影窗口   procedure WMWindowPosChanged(var Msg:TWMWindowPosChanged);message wm_windowposchanged;

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • Delphi实现窗体失去焦点时标题栏闪动特效
    这是个有意思的窗口设计实例源码,Delphi实现窗体失去焦点时标题栏闪动特效,flashwindow特效,这样可吸引操作者注意,其实实现这一功能并不复杂,以下代码最关键:   procedure TForm1.Timer1Timer(Sender: TObject);   begin    flashwindow(Handle,true);   end;   procedure TForm1.WMACTIVATEAPP(var message: TWMACTIVATEAPP);   begin    if Message.Active then    form1.Timer1.Enabled := false    else    form1.Timer1.Enabled := true;   end;   完整源码请下载。
    2022-07-08 18:47:20下载
    积分:1
  • Delphi 【Frame3D】函数的应用实例-三维框
    Delphi 函数【Frame3D】的应用,该函数用于在画布上绘制一个3维框图:   implementation   {$R *.dfm}   procedure TFrmFrame3D.FormCreate(Sender: TObject);   begin    Bc:=Rect(80,50,100,200);   end;   procedure TFrmFrame3D.FormPaint(Sender: TObject);   begin    Frame3D(canvas,Bc,clblack,clAppWorkSpace,2);   end;   procedure TFrmFrame3D.Button1Click(Sender: TObject);   begin    Bc:=Rect(strtoint(Edx.text),strtoint(Edy.Text),strtoint(EdH.Text),strtoint(EdW.Text));    Frame3D(canvas,Bc,clblack,clAppWorkSpace,2);   end;
    2022-06-16 08:51:26下载
    积分:1
  • Delphi 图片颜色逐渐加深功能的实现
    Delphi演示如何将一张图片的颜色加深,类似于调整对比度,不过本效果不加入了渐变加深的动画效果,按住按钮图片一直变暗下去,要知空间,你可看下以下代码:   Bitmap:=image1.Picture.Bitmap;   image1.Height:= Bitmap.Height;   image1.Width:= Bitmap.Width;   for i:=0 to 255 do   begin    sleep(10);    for y:=0 to Bitmap.Height-1 do    begin    pixcolo:=Bitmap.Scanline[y]; //扫描每行像素颜色    for x:=0 to ((Bitmap.Width*3)-1) do    //递减颜色值,不同的递减值可改变不同的速度    if pixcolo[x]>0 then pixcolo[x]:=(pixcolo[x]-1);    end;    Image1.Canvas.Draw(0,0,Bitmap);    Application.ProcessMessages; //让Application去处理消息队伍中的消息   end;
    2022-03-23 16:34:19下载
    积分:1
  • Delphi SQLSERVER停车场收费管理系统
    Delphi SQLSERVER停车场收费管理系统,本系统涉及有多个硬件,运行后需要初始化硬件,读取硬件的配置数据,包括控制器。需要联网读取数据,比较综合的一套系统。可对挡车器、停车场照明系统进行管理,可财务报帐、年终结算等功能,主窗口启动时,先连接数据库和用户登录。硬件参数需要重新启动该程序才能生效,设置照明灯自动开关时间,向数据库中写入记录,控制硬件打开挡车器,开始事务:fee_station-结帐次数加1,维护费用AMaintain=0 ,start_fee增加。。。
    2023-06-03 04:50:05下载
    积分:1
  • Delphi使用AES算法加密下载
    整合网上下载到的资源(ElAES.pas,AES.pas),在Delphi7下编译后,测试能用
    2023-07-07 06:10:03下载
    积分:1
  • Delphi 在图片中写入文字
    在图片中写入文字(写入文字后按回车键),Delphi 图片合成 效果,图片与字符的合并,在图片中写入文字,就像PhotoShop中完成的效果,有兴趣的参考源码吧。
    2023-03-24 10:00:04下载
    积分:1
  • Delphi中使用Word的一个例子
    这个程序演示了使用Word作为自动化服务器,Delphi地自动化控制器是如何将一个查询结果插入到word文档中,在程序调用过程中返回应用参数.这个调用在英文和法文版的 Word中相同。如果这个过程不存在,存在一个不同的Word翻译版本。   对中文Word请在指定处插入。
    2022-02-12 22:24:48下载
    积分:1
  • Delphi获取BMP图片指定点RGB值
    delphi获取图片指定点RGB颜色值,载入一张BMP图像,鼠标单击图像任意处,将获取该处的RGB颜色分量图。任何一种颜色都是由RGB分量值构成,获取这些分量值,就可以改变这些值,从而改变颜色,为程序的进一步处理提供基础保障,获取RGB颜色分量,相关代码如下:   procedure TForm1.SpeedButton1Click(Sender: TObject);   begin    if OpenPictureDialog1.Execute then    begin    image1.Picture.LoadFromFile(OpenPicturedialog1.FileName);    Form1.Canvas.Draw(0,0,image1.Picture.Bitmap);    end;   end;
    2023-09-03 19:00:03下载
    积分:1
  • Delphi7删除字符串指定字符(汉字)的例子
    Delphi7删除字符串指定字符的例子,如图所示的运行效果,示例如下文字:“经过这几天在网上的淘金,多少也有些了解了,但是现在我发现就算将分区正确的话,分区所指向的目录区也许会有些问题。”,删除指定的文字为“在”,本例中将上述一段文字中所有的“在”全部删除,在代码部分,各个变量的定义有意思:   Strs, //文本字符串   Stre, //汉字字符串   St, //文本ASCII码   Se, //汉字ASCII码   L_St, //临时文本ASCII码   L_Se, //临时汉字ASCII码   Str_copy //保存文本    : String;   Ints, //文本总长度   Inte, //删除汉字长度   i, //文本循环   p, //汉字循环   ps, //文本指针变量   pe, //汉字指针变量   Int_zh, //找到时保存汉字位置   Int_ch //循环查找时的变量
    2022-03-23 19:03:00下载
    积分:1
  • 使用Delphi 制作无闪烁的动画效果
    使用Delphi 制作无闪烁的动画效果,如何实现不闪烁的动画呢?这个例子或许能找到一些答案:部分代码如下:   var    x,i: Integer;    dir,run: Boolean;   begin    b := TBitMap.Create;    b.Width := AnimWindow.Width;    b.Height := 32;    b.Canvas.Pen.Color := clBtnFace;    b.Canvas.Brush.Color := clBtnFace;    b.Canvas.Rectangle(0,0,AnimWindow.Width,32);    run := True;    dir := False;    x := 0;    while run do    for i := 0 to AnimWindow.ImageList1.Count-1 do    begin    b.Canvas.Rectangle(0,0,AnimWindow.Width,32);    AnimWindow.ImageList1.Draw(b.Canvas,x,0,i);    Synchronize(DrawAnimPic);    Sleep(AnimWindow.SpinEdit1.Value);    if (x = 0) or (x = 300) then dir := not dir;    if dir then Inc(x) else Dec(x);    end;    b.Free;   end;
    2023-03-22 21:40:04下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载