心动吧DELPHI网络书

  下载的时候最好不要用迅雷,要不然很容易断线.

  提供多个控件下载:

代码如下:unit Unit1;interfaceuses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls;type  TURLLabel = class(TLabel)     procedure WndProc

Delphi的dbgrid中根据数据的属性不同显示不同的颜色类　别:数据库在应用系统中,用户常常要求把数据按不同的颜色显示出来,只要你在Dbgrid的DrawColumnCell事件中加入以下代码就可以了:If Query.fieldbyname('字段名').values 满足条件 then  Begin   &nb

flc控件支持特定颜色的动画背景透明,可以实现魔术般发信人: strayli (stray), 信区: Delphi标  题: flc控件支持特定颜色的动画背景透明,可以实现魔术般发信站: BBS 水木清华站 (Fri Oct  9 20:07:28 

把RGB颜色转变成Delphi的 TColor类　别:图形 语法: ------- myTcolor:=rgbtocolor(redvalue,greenvalue,bluevalue); 例子: -------- form1.color:=rgbtocolor(255,0,0); 函数: --------- 

创建一个颜色选取下拉框。主题:创建一个颜色选取下拉框。发信人: lihai155(天琴)整理人: kingron(2000-12-27 18:05:38) 站内信件unit ColorComboBox;interfaceuses  Windows  Messages  SysUtils&n

DBGrid控件是一个有许多用户接口的显示数据库的控件,以下的程序告诉您如何根据显示的内容改变字体的显示颜色。例如,如果一个城市的人口大于200万,我们就让它显示为蓝色。使用的控件事件为DBGrid.OnDrawColumeCell.procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect:TRect;DataCol: I

动态使用dbgrid颜色的问题主题:动态使用dbgrid颜色的问题发信人: teleme(PassWord)整理人: teleme(2001-05-26 12:34:04) 站内信件我记得我曾经发上来过,后来没找到在哪里,重新发一篇吧。//*******************一下保存为unit1.pasunit Unit1;interfaceus

代码如下:procedure TForm1.Button1Click(Sender: TObject);var  OldTextColor : TColorRef;  OldBkColor : TColorRef;  OldBkMode : Integer;begin  OldTextColor := SetTextColor(Form1.Canvas.Ha

给 TProgressBar 加点颜色类　别:VCLunit XuComCtrls;interfaceuses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  ComCtrls

]代码如下:function GetColorDepth: integer var   dc: HDC; begin   dc := GetDC(0);   Result := GetDeviceCaps(dc, BITSPIXEL);   ReleaseDC(0, dc); end;

代码如下:procedure TForm1.Button1Click(Sender: TObject);begin  Form1.Canvas.Pen.Color := clRed;  Memo1.Lines.Add('Red := ' +           &nbs

　快速将某一区域的颜色取反,主要应用在制作表格时的选择区域.  API函数:PatBlt(MyHDC:HDC;X,Y,WIDTH,HEIGHT:INTEGER;MODE);  例如:      var         MyDC:HDC; &