2011年01月_formernetcn

03月 02月 01月

原创 aaa

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

2011-01-14 17:42:00 312

原创 DELPHI hint 的应用

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

2011-01-10 09:47:00 674

原创 Delphi 获取句柄 sendmessage

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

2011-01-05 12:17:00 478

原创 Delphi中SendMessage使用技巧

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

2011-01-05 12:15:00 479

原创如何操作INI文件？

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

2011-01-04 23:57:00 417

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

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

2011-01-04 11:31:00 1326

delphi 龙年窗体

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

2012-01-11

delphi GDI+ 库文件

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

2011-07-06

拖放透明图片 delphi

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

2011-05-28

拖动图片透明效果 C#

C#Treeview在拖拽时实现Image dragging效果

2011-05-28

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

QQ好友列表控件_delphi

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

2011-02-22

空空如也

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

TA关注的人