https://blog.youkuaiyun.com/formernetcnzh-cnhttps://blog.youkuaiyun.com/https://blog.youkuaiyun.com/formernetcn/article/details/7193922https://blog.youkuaiyun.com/formernetcn/article/details/7193922formernetcnWed, 11 Jan 2012 15:47:46 +0800https://blog.youkuaiyun.com/formernetcn/article/details/6221461https://blog.youkuaiyun.com/formernetcn/article/details/6221461formernetcnThu, 03 Mar 2011 18:10:00 +0800unit NewImagePanel;
interface
uses
  Windows,SysUtils, Classes, Controls, ExtCtrls,Graphics,Dialogs,Forms;
type
  RMRect=record
    A:TRect;
    B:TRect;
    C:TRect;
    D:TRect;
    AB:TRect;
 ]]>https://blog.youkuaiyun.com/formernetcn/article/details/6218887https://blog.youkuaiyun.com/formernetcn/article/details/6218887formernetcnWed, 02 Mar 2011 18:22:00 +0800
unit NewImagePanel;
 
interface
 
uses
  Windows,SysUtils, Classes, Controls, ExtCtrls,Graphics,Dialogs;
 
type
  RMRect=record
    A:TRect;
    B:TRect;
    C:TRect;
    D:TRect;
https://blog.youkuaiyun.com/formernetcn/article/details/6216170https://blog.youkuaiyun.com/formernetcn/article/details/6216170formernetcnTue, 01 Mar 2011 18:16:00 +0800https://blog.youkuaiyun.com/formernetcn/article/details/6203151https://blog.youkuaiyun.com/formernetcn/article/details/6203151formernetcnWed, 23 Feb 2011 17:47:00 +0800unit QXuQQPanel;
interface
uses
  Windows, Classes, SysUtils, StdCtrls, Graphics, ExtCtrls, Controls, Forms,
  Messages,Dialogs;

type
  TXuMemberNotifyEvent = procedure(Sender: TObject; AData: Pointer) of object;https://blog.youkuaiyun.com/formernetcn/article/details/6203145https://blog.youkuaiyun.com/formernetcn/article/details/6203145formernetcnWed, 23 Feb 2011 17:44:00 +0800https://blog.youkuaiyun.com/formernetcn/article/details/6198300https://blog.youkuaiyun.com/formernetcn/article/details/6198300formernetcnMon, 21 Feb 2011 18:12:00 +0800unit QXuQQPanel;
interface
uses
  Windows, Classes, SysUtils, StdCtrls, Graphics, ExtCtrls, Controls, Forms,
  Messages,Dialogs;

type
  TXuMemberNotifyEvent = procedure(Sender: TObject; AData: Pointer) of object;https://blog.youkuaiyun.com/formernetcn/article/details/6192908https://blog.youkuaiyun.com/formernetcn/article/details/6192908formernetcnFri, 18 Feb 2011 11:19:00 +0800在网络程序中，我们常常碰到需要用户输入IP地址的情况。然而Delphi并没有为我们提供可以用于输入IP串的控件，这样我们只好用Tedit控件(单行文本框)来接受用户输入的IP串。但是，使用Tedit来输入IP串并不是一个好主意，因为处理起来非常不便。事实上，在我们的身旁有一个专门用来输入IP串的Windows控件。IP控件会拒绝非法的IP串(在每个部分只能输入0..255之间的数字)；它让你可以轻松地获取控件中的IP串所对应的IP值(32位整数)，这省去了IP串和IP值之间相互转换的麻烦；此外，]]>https://blog.youkuaiyun.com/formernetcn/article/details/6139781https://blog.youkuaiyun.com/formernetcn/article/details/6139781formernetcnFri, 14 Jan 2011 17:42:00 +0800unit UFriendGroup;
interface
uses
  Windows,ExtCtrls,SysUtils, Classes, Controls,Forms,Graphics,Messages,StdCtrls;
 
type
      TPanel=class(ExtCtrls.TPanel)
      private
          FOnMouseIn:TNotifyEvent;https://blog.youkuaiyun.com/formernetcn/article/details/6126193https://blog.youkuaiyun.com/formernetcn/article/details/6126193formernetcnMon, 10 Jan 2011 09:47:00 +0800      ShowHint := True;
　　Hint := ‘提示信息’;
　　不必写一行代码，相当方便。

　　但有时我们又想自己定制提示的效果，使其看起来更美观更具个人特色，没关系，Delphi完全有办法让你写出自己喜欢的Hint效果。

　　Delphi的Hint功能实现归类在Application类中，所以我们可以在Application类中看到数个]]>https://blog.youkuaiyun.com/formernetcn/article/details/6117597https://blog.youkuaiyun.com/formernetcn/article/details/6117597formernetcnWed, 05 Jan 2011 12:17:00 +0800查找另外一个窗口的句柄： handle := FindWindow(nil,PChar('窗口的标题'));//查到窗体句柄
查找子窗体：childHandle := FindWindowEx(handle,0,'子窗体类','子窗体标题');
另外有个枚举子窗体的API，EnumChildWindows(主创体句柄,@回调函数,用户参数);
用这个函数需要自己写一个回调的函数，比如：
function EnumChildProc(ahWND:HWND;]]>https://blog.youkuaiyun.com/formernetcn/article/details/6117595https://blog.youkuaiyun.com/formernetcn/article/details/6117595formernetcnWed, 05 Jan 2011 12:15:00 +0800Windows系统是由消息机制驱动的，每个线程如果建立了一个窗口，则由系统分配一个消息队列用于窗口消息的处理。另外，消息也可以不经过消息队列而利用SendMessage函数直接发送给窗口，窗口过程将处理这个消息，但只有当消息被处理之后，SendMessage才能返回到调用程序。下面结合两个Delphi程序，讨论如何利用SendMessage向控件发送消息和控件对这种消息的响应。
用SendMessage向控件发送消息
在编程中，有时需要控件以特殊的风格显示，而这种要求又无]]>https://blog.youkuaiyun.com/formernetcn/article/details/6116815https://blog.youkuaiyun.com/formernetcn/article/details/6116815formernetcnTue, 04 Jan 2011 23:57:00 +0800如何操作INI文件？  
INI 文件在系统配置及应用程序参数保存与设置方面，具有很重要的作用，所以可视化的编程一族，如 VB、VC、VFP、Delphi 等都提供了读写 INI 文件的方法，其中Delphi中操作 INI 文件，最为简洁，这是因为Delphi3提供了一个 TInifile 类，使我们可以非常灵活的处理 INI 文件。

一、有必要了解 INI 文件的结构：
;注释
[小节名]
关键字=值
...https://blog.youkuaiyun.com/formernetcn/article/details/6115106https://blog.youkuaiyun.com/formernetcn/article/details/6115106formernetcnTue, 04 Jan 2011 11:31:00 +0800http://upload.wikimedia.org/wikipedia/commons/8/82/Gyroscope_precession.gif]]>https://blog.youkuaiyun.com/formernetcn/article/details/5702776https://blog.youkuaiyun.com/formernetcn/article/details/5702776formernetcnTue, 29 Jun 2010 20:23:00 +0800procedure SetDisplayFormat(ACtrlData: TClientDataSet;
  TbView: TcxGridDBTableView);
var
  i: integer;
begin
  if ACtrlData.RecordCount <= 0 then Exit;
  try
    TbView.ClearItems;
    ACtrlData.Firs]]>