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

Delphi Shadow窗口阴影立体效果

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

代码说明:

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

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

发表评论

0 个回复

  • Delphi SQLSERVER 操作员权限设置程序
    Delphi SQLSERVER 操作员权限设置程序,以销售、进货两个功能,来演示不同帐号所享有的不同操作权限,从用户管理模块中,你可以修改权限设置,测试前,请首先连接好SQLSERVER数据库。   你可以使用以下的测试帐户来感受权限控制功能:   普通用户   用户名:Power   密码: 111   高级用户   用户名:mr   密码: 111
    2022-05-21 02:43:58下载
    积分:1
  • Delphi 将TDBGrid导入到Excel表中附数据库
    Delphi7.0将TDBGrid导入到Excel表中,测试程序先连接好SQLSERVER数据库,并将数据读取到TDBGrid中,然后再将数据从TDBGrid导入到Excel表中,为了测试方便,SQLSERVER数据库文件已经附在源码包中。以下代码片断会有参考意义,完整源码请下载:   //将TDBGrid表中的标题插入到Excel表中的首行   for I:=0 to DbName.Columns.Count-1 do   begin    if DbName.Columns[i].Visible=False then    Continue;    Page.Cells[j,i+1] := DbName.Columns[i].Title.Caption;    Page.Cells[j,i+1].Font.Bold := True; //设置字体为粗体   end;   Inc(j); //Excel表中的下一行   First; //将指针返回到TDBGrid表中数据的首行   while not Eof do   begin    for i:=0 to DbName.Columns.Count-1 do    begin    if DbName.Columns[i].Visible=False then    Continue;    //将指定行中每列的数据,添加到Excel表中    Page.Cells[j,i+1] := trim(DbName.DataSource.DataSet.Fieldbyname(DbName.Columns[i].FieldName).asstring);    end;    Inc(j); //Excel表中的下一行    Next; //TDBGrid表中的下一条记录   end;
    2022-06-29 23:05:07下载
    积分:1
  • EI3.0(DELPHI)
    EI3.0(DELPHI源码),据说挺完整的,可以下载一下试试
    2022-03-30 08:16:31下载
    积分:1
  • 用Delphi编写锁定电脑的程序
    Delphi锁定计算机,锁定电脑,不允许别人可以操作,类似Windows自带的锁定程序,其实锁定是非常简单的,不几行代码就能实现:   procedure TForm1.SpeedButton1Click(Sender: TObject);   begin    LockWorkStation;   end;   若需要完整的源码,请下载本源码包。
    2022-04-28 20:57:54下载
    积分:1
  • Delphi 与Java TCPIP通信的范例
    这个Delphi例子我觉得值得看,用Java写了TCPIP通信的服务端,用Delphi写了客户端,两者在不同的语言环境下运行,并建立TCPIP通信,服务端的运行效果如示例截图所示。为了不发生消息乱码的现象,两者程序编码采用UTF8格式,用UTF-8格式发送出去,收到的UTF-8数据转成ANSI,这一部分的参考请参见util_utf8.pas文件,消息发送、服务器建立连接部分,请参见Unit1.pas文件。
    2022-08-23 01:44:09下载
    积分:1
  • Delphi 创建独立的子窗体 脱离父窗口但可通过父窗口关闭
    Delphi 创建多个独立的子窗体 脱离父窗口而显示,但是却可通过父窗口关闭打开的所有子窗口,就是通过主窗口内的关闭按钮,关闭独立于父窗口之外的子窗口,这个功能我感觉很实用吧,源代码中也包括了多个子窗口的代码,父子窗口之间是如何关联起来的呢,请参见这个源代码实例 。
    2022-01-25 17:06:08下载
    积分:1
  • Delphi Canvas.Brush为窗体绘制渐变背景
    Delphi 为窗体绘制渐变背景,这里使用了Delphi中的Canvas.Brush.Color来实现窗口背景的渐变色,不错吧?如示例图的左右渐变效果,实现的代码:   for i:=0 to self.Width-1 do   begin   c1:=GetRValue(StartColor)+Trunc(i*(GetRValue(EndColor)-GetRValue(StartColor))/(self.Width-1));   c2:=GetGValue(StartColor)+Trunc(i*(GetGValue(EndColor)-GetGValue(StartColor))/(self.Width-1));   c3:=GetBValue(StartColor)+Trunc(i*(GetBValue(EndColor)-GetBValue(StartColor))/(self.Width-1));   Canvas.Brush.Color:=RGB(c1,c2,c3);   //每次画矩形的画刷颜色   Dct:=Rect(i,0,i+1,self.Height);   //每次刷绘的矩形区域   Canvas.FillRect(Dct);   //填充颜色   end;
    2022-05-24 21:26:59下载
    积分:1
  • Delphi 模拟制作Windows XP风格界面的下拉页
    Delphi 模拟制作Windows XP风格界面的下拉页,实际上就是XP资源管理器界面的右侧窗口,鼠标单击会向下展开,再次单击会重新合拢,像一个折叠展开的面板那样,这种形式的窗口在Windows中已经早有应用,这只是一个用Delphi代码仿写的效果,希望对大家的Delphi界面设计有所帮助。
    2022-07-24 03:34:24下载
    积分:1
  • Delphi 监测程序多久未被使用
    Delphi 监测程序多久未被使用,以秒数来衡量使用了多久,打开一次然后再关闭,就可以显示使用了多长时间。
    2022-06-02 20:45:39下载
    积分:1
  • Delphi 判断文件是否被占用
    Delphi 判断文件是否被占用,这个在删除的时候,可以添加上此功能,因为文件占用的话,用户删除时会出错,用本代码可以先判断一下文件是否被占用,用弹窗方式告诉用户是否可以删除,如果没有被占用,则程序进行下一步处理。下面简要了解一下判断的具体代码(局部):   on E:EInOutError do   begin    if e.ErrorCode=32 then//文件正在被使用    begin    result:=true;    exit;    end;   end;   更完整的可编译源码,请下载。
    2023-09-02 10:00:03下载
    积分:1
  • 696516资源总数
  • 106457会员总数
  • 15今日下载