Delphi网络单元库 2007-04-08 22:27:05 unit net;interface uses sysutils ,windows ,dialogs ,winsock ,classes ,comobj ,wininet; //得到本机的局域网ip地址 function getlocalip(var localip:string): boolean; //通过ip返回机器名 function getnamebyipaddr(ipaddr: string; var macname: ...

/////////////////////////////////////////////透明的控件, 一般继承自TGraphicControl的(就是那些没有handle属性, 不能有focus的控件, 如image)都有Transparent属性. 对TWinControl类的控件, 要实现透明只要完成以下四步基本上就成了.1.在Create中设定ControlStyle :=ControlStyle - [csOpaque];)2. override 它的CreateParams方法, exstyle 里加上WS_EX_TRANSPARENT.3. 修改它的parent的windo...

一、引言在Powerbulider巧妙地调用API函数SendMessage，可以完成Pb中的一些用常规的方法而很难实现的功能，特将对该api函数在Powerbuilder中的使用，例举几个方面的运用，以期起到抛砖引玉的效果(以下代码完全可以使用PowerBuilder中的Send函数替代SendMessage 这个Api函数，因起稿比较匆忙，代码未经测试)二、函数说明SendMessage函数说明:说明 调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum， SendMessageByString是该函数的“类型安全”声...

TTreeView:(引用CommCtrl)SendMessage(TreeView.Handle,TVM_SETBKCOLOR,0,RGB(255,0,0));　设置TV背景颜色SendMessage(Button.Handle,WM_LBUTTONDOWN,0,0);　　鼠标左键按下SendMessage(Button.Handle,WM_LBUTTONUP,0,0);　　　鼠标左键抬起SendMessage(Edit.Handle,WM_SETTEXT,255,Integer(PChar('abc')));　传递文本SendMessage(Edit.Handle,WM_Char...

Windows是一个消息驱动式系统，SendMessage是应用程序和应用程序之间进行消息传递的主要手段之一，这里我搜集整理了SendMessage函数的详细参数介绍，以备自用。VFP声明:DECLARE INTEGER SendMessage IN user32; INTEGER hWnd,; INTEGER wMsg,; INTEGER wParam,; INTEGER lParam参数1：hWnd-窗口句柄。窗口可以是任何类型的屏幕对象。参数2：wMsg-用于区别其他消息的常量值.参数3：wParam-通常是一个与消息有关的常量值，也可能是窗口或控件的句柄....

Win32 API消息函数:SendMessage函数功能：该函数将指定的消息发送到一个或多个窗口。此函数为指定的窗口调用窗口程序，直到窗口程序处理完消息再返回。而函数PostMessage不同，将一个消息寄送到一个线程的消息队列后立即返回。 函数原型：LRESULT SendMessage（HWND hWnd，UINT Msg，WPARAM wParam，LPARAM IParam）； 参数： hWnd：其窗口程序将接收消息的窗口的句柄。如果此参数为HWND_BROADCAST，则消息将被发送到系统中所有顶层窗口，包括无效或不可见的非自身拥有的窗口、被覆盖...

“BUG”的由来： Bug一词的原意是“臭虫”或“虫子”。但是现在，在电脑系统或程序中，如果隐藏着的一些未被发现的缺陷或问题，人们也叫它“Bug”，这是怎么回事呢？ 原来，第一代的计算机是由许多庞大且昂贵的真空管组成，并利用大量的电力来使真空管发光。可能正是由于计算机运行产生的光和热，引得一只小虫子?Bug　钻进了一支真空管内，导致整个计算机无法工作。研究人员费了半天时间，总算发现原因所在，把这只小虫子从真空管中取出后，计算机又恢复正常。后来，Bug这个名词就沿用下来，表示电脑系统或程序中隐藏的错误、缺陷、漏洞或问题。 与Bug相对应，人们将发现Bug并加以纠正的过程叫做“Debug”...

procedure Button1Click(Sender : TObject); var img : TBitMap; begin img := TBitMap.Create; Try img.LoadFromFile('bmp圖片的絕對地址')； With image1 do begin Picture.Bitmap.Handle := img.Handle; Update; Refresh; end; Finally img.Free; end; ...

SetWindowText(Handle,'窗體標題說明');

project -- options -- directories/conditionals里面： output directory: unit output directory: 看看设置是否和文件所在的目录一样。。。检查OUTPUT FILE PATH 的路径设置 检查OUTPUT FILE PATH是否有写权限 检查OUTPUT FILE PATH中的*.*是否有写保护

功能说明：设置字符串或动态数组长度。该函数有两个参数。第一个参数为要设置的字符串变量或动态数组变量，第二个参数为指定的长度，其取值范围在0到255之间。　　参考实例：　　var　　 　S: String;　　 　arrText: array of Char; // 定义一个动态数组　　begin　　 　SetLength(S, 10); // 当设置后，S变量只能赋值长度为10的字符串。　　 　SetLength(arrText, 10); // 只有使用SetLength为动态数组分配内存空间后才能使用动态数组。这句代码的作用相当于arrText: array[0..9] of Cha...

在操作電腦時，有時候出現錯誤會出現調試程序，此程序是開啟DELPHI。這是由于在安裝Delphi軟件時，有一個小提示，是問是否將DELPHI設為程序的調試器。 刪除 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\AeDebug下的Debugger 项，就不會出現調試程序來。

12.4.3 断点的使用　 12.4.3.1 设置断点　 　　设置断点首先在Code Editor中选定你想设置断点的代码行，而后进行如下的任一种操作： 　　● 单击选定代码行左边的空白 　　● 按F5 　　● 选择Code Editor加速菜单的Toggle BreakPoint项 　　● 选择Run|Add Breadpoint打开断点编辑对话框(Edit BreakPoint Dialog Box)，而后选择New去确认一个新的断点设置或选择Modify去对一个存在的断点进行修改 　　● 从BreakPoint List加速菜单中选择Add BreakPoint项　 　　断点必须位...