登录
首页 » Delphi源码 » Delphi 实现TDBGrid组件的斑马线显示

Delphi 实现TDBGrid组件的斑马线显示

于 2023-05-29 发布 文件大小:241.27 kB
0 206
下载积分: 2 下载次数: 1

代码说明:

Delphi 实现TDBGrid组件的斑马线显示,也就是TDBGrid的不同行显示不同的颜色,设置不同的背景色,让数据显示更清淅,看上去像斑马线,俗称隔行换色,本例子是结合数据库实现的,若要正常运行,请先附加Database数据库中的SQLSERVER文件,附加后在本示例中修改数据库连接字符串即可。

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

发表评论

0 个回复

  • Delphi 使同类的组件进行同样的操作
    Delphi 使同类的组件进行同样的操作的一个实例,类似于将WEB表单统一清空的功能,点击按钮后,所有文本框组件的内容被清空,作用在相同的组件实例上,代码:   procedure TForm1.Button2Click(Sender: TObject);   begin    Close;   end;      procedure TForm1.Button1Click(Sender: TObject);   var    ClearText : Integer;   begin    For ClearText := 0 to Form1.ComponentCount -1 do    begin    //判断如果窗体中包含文本框组件,则将所有文本框组件的内容清空    if Form1.Components[ClearText] is TEdit then    begin    TEdit(Components[ClearText]).Clear;    end;    end;   end;
    2022-05-23 05:25:03下载
    积分:1
  • delphi开发的谷歌翻译工具内含
    delphi开发的谷歌翻译工具,使用该工具可以不用打开浏览器,然后输入谷歌翻译地址才能进行翻译工作, 而这个工具可以快速打开并直接在文本框中输入你要翻译的文本内容即可翻译了。 同时,你拿到此源码还可以进行二次开发,以满足你更多需要和想象。
    2022-01-25 22:56:02下载
    积分:1
  • 圆角的窗体-Delphi代实现方法
    Delphi实现圆角的窗体效果,将矩形的窗口效果修饰为圆角的风格,如示例截图所示的效果,核心的几行代码如下:   begin    hr:=createroundrectrgn(0,0,width,height,20,20);//定义园角矩形(win API函数)    setwindowrgn(handle,hr,true); //设置园角窗口   end;
    2022-08-18 21:29:53下载
    积分:1
  • Delphi添加图层蒙版
    Delphi添加图层蒙版,运行本程序后,在屏幕上添加一层阴影,透明度大概在70%左右,可看作是在屏幕上方蒙了一层薄膜的感觉,代码简单:procedure TForm1.FormCreate(Sender: TObject);   var    bTrans: Byte;    OldStyle: Integer;   begin    form1.Color := clGradientActiveCaption;    WindowState := wsMaximized;    BorderStyle := bsNone;    FormStyle := fsStayOnTop;    OldStyle := GetWindowLong(Handle, GWL_EXSTYLE);    SetWindowLong(Handle, GWL_EXSTYLE, OldStyle or WS_EX_LAYERED Or WS_EX_TRANSPARENT);    bTrans := 128;    SetLayeredWindowAttributes(Handle, 0, bTrans, LWA_ALPHA);   end;
    2022-02-06 10:25:25下载
    积分:1
  • 返回底数的任何次幂-Delphi方法
    Delphi 返回底数的任何次幂,本演示求2的4次幂、3的3次幂,求解过程如下:   procedure TForm1.Button1Click(Sender: TObject);   begin    Edit1.Text := FloatToStr(Power(2,4));    Edit2.Text := FloatToStr(Power(3,3));   end;   以上代码定义在按钮事件中,当用户单击按钮后激活。
    2022-03-01 01:34:29下载
    积分:1
  • Delphi 7.0 显示密编辑框中的密
    Delphi 7.0 源代码示例演示:显示密码编辑框中的密码,也就是获取Edit组件中的内容,显示给用户,在代码编写时,可参考下边的几行代码:   L:=GetWindowTextLength(Edit1.handle)+1; //得到名字长度,并将长度加1   GetMem(Name,L);//为将要得到的名字分配内存   GetWindowText(Edit1.handle,Name,L);//得到名字   label1.Caption:=String(Name);//将得到的名字显示于Label1   FreeMem(Name,0); //释放分配的内存   完整的源代码请下载。
    2022-04-06 19:23:17下载
    积分:1
  • Delphi 使窗体始终在最前面
    Delphi 使窗体始终在最前面,不几行代码实现的置顶窗口,大家对这种窗口相信都不会太陌生,不被其它的窗口遮挡,显示在最前面,典型的应用像一些视频播放器的播放窗口,在播放视频时可设置显示在最顶端,你可以边工作边看电影啦!详细实现请参考源代码。
    2022-03-14 11:14:48下载
    积分:1
  • Delphi 模拟制作Windows XP风格界面的下拉页
    Delphi 模拟制作Windows XP风格界面的下拉页,实际上就是XP资源管理器界面的右侧窗口,鼠标单击会向下展开,再次单击会重新合拢,像一个折叠展开的面板那样,这种形式的窗口在Windows中已经早有应用,这只是一个用Delphi代码仿写的效果,希望对大家的Delphi界面设计有所帮助。
    2022-07-24 03:34:24下载
    积分:1
  • EI3.0(DELPHI)
    EI3.0(DELPHI源码),据说挺完整的,可以下载一下试试
    2022-03-30 08:16:31下载
    积分:1
  • Delphi 如何使程序不出现在任务栏上
    Delphi 如何使程序不出现在任务栏上,常规情况下,运行的程序都会在任务栏有一个图标窗口,方便用户操作,不出现在任务栏上也可以,不过不太符合常规,有点隐藏程序的嫌疑,以下代码是实现此功能的:   procedure TForm1.FormCreate(Sender: TObject);   begin    with Application do    SetWindowLong(Handle,GWL_EXSTYLE,GetWindowLong(Handle,GWL_EXSTYLE) and not WS_EX_APPWINDOW or WS_EX_TOOLWINDOW);    SetWindowPos(Handle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE);   end;
    2023-03-26 04:55:03下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载