自定义博客皮肤VIP专享

*博客头图：

格式为PNG、JPG，宽度*高度大于1920*100像素，不超过2MB，主视觉建议放在右侧，请参照线上博客头图

请上传大于1920*100像素的图片！

博客底图：

图片格式为PNG、JPG，不超过1MB，可上下左右平铺至整个背景

栏目图：

图片格式为PNG、JPG，图片宽度*高度为300*38像素，不超过0.5MB

主标题颜色：

RGB颜色，例如：#AFAFAF

Hover：

RGB颜色，例如：#AFAFAF

副标题颜色：

RGB颜色，例如：#AFAFAF

预览 取消 提交

自定义博客皮肤

-+
上一步保存

formernetcn的专栏

  • 博客(15)
  • 资源 (6)
  • 收藏
  • 关注
排序：
按最后发布时间
按访问量
RSS订阅

原创 delphi 龙年窗体 恭喜发财

单窗体实现的功能，火珠点击关闭窗体具说direct UI的实现也是这个原理，但是输入框怎么实现，有了解的可以讨论下，窗体叠加就不是谈了。不要只看不评论啊。点击下载

2012-01-11 15:47:46 618

原创 式

<br />unit NewImagePanel;<br />interface<br />uses<br />  Windows,SysUtils, Classes, Controls, ExtCtrls,Graphics,Dialogs,Forms;<br />type<br />  RMRect=record<br />    A:TRect;<br />    B:TRect;<br />    C:TRect;<br />    D:TRect;<br />    AB:TRect;<br /> 

2011-03-03 18:10:00 420

原创 aaa

<br /><br />unit NewImagePanel;<br /> <br />interface<br /> <br />uses<br />  Windows,SysUtils, Classes, Controls, ExtCtrls,Graphics,Dialogs;<br /> <br />type<br />  RMRect=record<br />    A:TRect;<br />    B:TRect;<br />    C:TRect;<br />    D:TRect;<br /

2011-03-02 18:22:00 348

原创 eee

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, ExtCtrls, SUIImagePanel, jpeg;type  RMRect=record    A:TRect;    B:TRect;    C:TRect;    D:TRect;    AB:TRect;    AC:TRect;    BD:TRect

2011-03-01 18:16:00 395

原创 qqqqq

<br />unit QXuQQPanel;<br />interface<br />uses<br />  Windows, Classes, SysUtils, StdCtrls, Graphics, ExtCtrls, Controls, Forms,<br />  Messages,Dialogs;<br /><br />type<br />  TXuMemberNotifyEvent = procedure(Sender: TObject; AData: Pointer) of object;<b

2011-02-23 17:47:00 540

原创 666

10款在线格式转化应用

2011-02-23 17:44:00 398

原创 QQ panel

<br />unit QXuQQPanel;<br />interface<br />uses<br />  Windows, Classes, SysUtils, StdCtrls, Graphics, ExtCtrls, Controls, Forms,<br />  Messages,Dialogs;<br /><br />type<br />  TXuMemberNotifyEvent = procedure(Sender: TObject; AData: Pointer) of object;<b

2011-02-21 18:12:00 586

转载 IP控件的使用

<br />在网络程序中，我们常常碰到需要用户输入IP地址的情况。然而Delphi并没有为我们提供可以用于输入IP串的控件，这样我们只好用Tedit控件(单行文本框)来接受用户输入的IP串。但是，使用Tedit来输入IP串并不是一个好主意，因为处理起来非常不便。事实上，在我们的身旁有一个专门用来输入IP串的Windows控件。IP控件会拒绝非法的IP串(在每个部分只能输入0..255之间的数字)；它让你可以轻松地获取控件中的IP串所对应的IP值(32位整数)，这省去了IP串和IP值之间相互转换的麻烦；此外，

2011-02-18 11:19:00 849

原创 aaa

<br />unit UFriendGroup;<br />interface<br />uses<br />  Windows,ExtCtrls,SysUtils, Classes, Controls,Forms,Graphics,Messages,StdCtrls;<br />  <br />type<br />      TPanel=class(ExtCtrls.TPanel)<br />      private<br />          FOnMouseIn:TNotifyEvent;<br

2011-01-14 17:42:00 355

原创 DELPHI hint 的应用

Delphi中使用提示是如此简单，只需将欲使用Hint的控件作如下设置：<br />      ShowHint := True;<br />　　Hint := ‘提示信息’;<br />　　不必写一行代码，相当方便。<br /><br />　　但有时我们又想自己定制提示的效果，使其看起来更美观更具个人特色，没关系，Delphi完全有办法让你写出自己喜欢的Hint效果。<br /><br />　　Delphi的Hint功能实现归类在Application类中，所以我们可以在Application类中看到数个

2011-01-10 09:47:00 730

原创 Delphi 获取句柄 sendmessage

<br />查找另外一个窗口的句柄： handle := FindWindow(nil,PChar('窗口的标题'));//查到窗体句柄<br />查找子窗体：childHandle := FindWindowEx(handle,0,'子窗体类','子窗体标题'); <br />另外有个枚举子窗体的API，EnumChildWindows(主创体句柄,@回调函数,用户参数);<br />用这个函数需要自己写一个回调的函数，比如：<br />function EnumChildProc(ahWND:HWND;

2011-01-05 12:17:00 509

原创 Delphi中SendMessage使用技巧

<br />Windows系统是由消息机制驱动的，每个线程如果建立了一个窗口，则由系统分配一个消息队列用于窗口消息的处理。另外，消息也可以不经过消息队列而利用SendMessage函数直接发送给窗口，窗口过程将处理这个消息，但只有当消息被处理之后，SendMessage才能返回到调用程序。下面结合两个Delphi程序，讨论如何利用SendMessage向控件发送消息和控件对这种消息的响应。 <br />用SendMessage向控件发送消息 <br />在编程中，有时需要控件以特殊的风格显示，而这种要求又无

2011-01-05 12:15:00 524

原创 如何操作INI文件？

<br />如何操作INI文件？   <br />INI 文件在系统配置及应用程序参数保存与设置方面，具有很重要的作用，所以可视化的编程一族，如 VB、VC、VFP、Delphi 等都提供了读写 INI 文件的方法，其中Delphi中操作 INI 文件，最为简洁，这是因为Delphi3提供了一个 TInifile 类，使我们可以非常灵活的处理 INI 文件。 <br /><br />一、有必要了解 INI 文件的结构：<br />;注释 <br />[小节名] <br />关键字=值<br />...<br

2011-01-04 23:57:00 472

原创 http://upload.wikimedia.org/wikipedia/commons/8/82/Gyroscope_precession.gif

<br />http://upload.wikimedia.org/wikipedia/commons/8/82/Gyroscope_precession.gif

2011-01-04 11:31:00 1586

转载 cxGrid 使用技巧

（１）动态设置显示格式<br />procedure SetDisplayFormat(ACtrlData: TClientDataSet;<br />  TbView: TcxGridDBTableView);<br />var<br />  i: integer;<br />begin<br />  if ACtrlData.RecordCount <= 0 then Exit;<br />  try<br />    TbView.ClearItems;<br />    ACtrlData.Firs

2010-06-29 20:23:00 1225

QQ好友列表控件_C#
QQ好友例表控件 带实例和源码 //1. 属性列表： // SelectionMode 组件中条目的选择类型，即多选(Multiple)、单选(Single) // Rows 列表框中显示总共多少行 // Selected 检测条目是否被选中 // SelectedItem 返回的类型是ListItem，获得列表框中被选择的条目 // Count 列表框中条目的总数 // SelectedIndex 列表框中被选择项的索引值 // Items 泛指列表框中的所有项，每一项的类型都是ListItem //2. 取列表框中被选中的值 // ListBox.SelectedValue //3. 动态的添加列表框中的项： // ListBox.Items.Add("所要添加的项"); //4. 移出指定项： // //首先判断列表框中的项是否大于0 // If(ListBox.Items.Count > 0 ) // { ////移出选择的项 //ListBox.Items.Remove(ListBox.SelectedItem); // } //5. 清空所有项： // //首先判断列表框中的项是否大于0 // If(ListBox.Items.Count > 0 ) // { ////清空所有项 //ListBox.Items.Clear(); // } //6. 列表框可以一次选择多项： // 只需设置列表框的属性 SelectionMode="Multiple",按Ctrl可以多选 //7. 两个列表框联动，即两级联动菜单 // //判断第一个列表框中被选中的值 // switch(ListBox1.SelectValue) // { ////如果是"A"，第二个列表框中就添加这些： //case "A" // ListBox2.Items.Clear(); // ListBox2.Items.Add("A1"); // ListBox2.Items.Add("A2"); // ListBox2.Items.Add("A3"); ////如果是"B"，第二个列表框中就添加这些： //case "B" // ListBox2.Items.Clear(); // ListBox2.Items.Add("B1"); // ListBox2.Items.Add("B2"); // ListBox2.Items.Add("B3"); // } //8. 实现列表框中项的移位 // 即：向上移位、向下移位 // 具体的思路为：创建一个ListBox对象，并把要移位的项先暂放在这个对象中。 // 如果是向上移位，就是把当前选定项的的上一项的值赋给当前选定的项，然后 // 把刚才新加入的对象的值，再附给当前选定项的前一项。 // 具体代码为： // //定义一个变量，作移位用 // index = -1; // //将当前条目的文本以及值都保存到一个临时变量里面 // ListItem lt=new ListItem (ListBox.SelectedItem.Text,ListBox.SelectedValue); // //被选中的项的值等于上一条或下一条的值 // ListBox.Items[ListBox.SelectedIndex].Text=ListBox.Items[ListBox.SelectedIndex + index].Text; // //被选中的项的值等于上一条或下一条的值 // ListBox.Items[ListBox.SelectedIndex].Value=ListBox.Items[ListBox.SelectedIndex + index].Value; // //把被选中项的前一条或下一条的值用临时变量中的取代 // ListBox.Items[ListBox.SelectedIndex].Test=lt.Test; // //把被选中项的前一条或下一条的值用临时变量中的取代 // ListBox.Items[ListBox.SelectedIndex].Value=lt.Value; // //把鼠标指针放到移动后的那项上 // ListBox.Items[ListBox.SelectedIndex].Value=lt.Value; //9. 移动指针到指定位置： // (1).移至首条 // //将被选中项的索引设置为0就OK了 // ListBox.SelectIndex=0; // (2).移至尾条 // //将被选中项的索引设置为ListBox.Items.Count-1就OK了 // ListBox.SelectIndex=ListBox.Items.Count-1; // (3).上一条 // //用当前被选中的索引去减 1 // ListBox.SelectIndex=ListBox.SelectIndex - 1; // (4).下一条 // //用当前被选中的索引去加 1 // ListBox.SelectIndex=ListBox.SelectIndex + 1; //this.ListBox1.Items.Insertat(3,new ListItem("插入在第3行之后项","")); //this.ListBox1.Items.Insertat(index,ListItem) //ListBox1.Items.Insert(0,new ListItem("text","value"));

2011-04-14

delphi 龙年窗体
利用Png图作为窗体，学习GDI+、UpdateLayeredWindow的使用

2012-01-11

QQ好友列表控件_delphi
CnPack包里的QQ好友列表控件，内带DEMO

2011-02-22

delphi GDI+ 库文件
delphi GDI+ pas文件，使用这个绘图和C#中一样

2011-07-06

拖动图片透明效果 C#
C#Treeview在拖拽时实现Image dragging效果

2011-05-28

拖放透明图片 delphi
鼠标拖放图片明，鼠标下出现透明图片随鼠标移动 delphi

2011-05-28

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章？
取消 删除