摘要： 在Delphi XE及其以下的版本中一直这样使用WinExec函数：WinExec(PAnsiChar(FUnInstallCmd),SW_SHOWNORMAL);FUnInstallCmd 是一个String 变量，这样使用一直正常，某日，将代码在XE3中编译运行，发现这个用法不管用了，查了很多资... 阅读全文

摘要： 尽管高版本的Delphi已经提供强悍的手势功能，也非常好用，我还是没能用上，所以自己结合实际，参阅多个组件源码，改造了JvMouseGesture.pas单元，弄出一个实用的鼠标手势管理功能，记在这里，以免硬盘坏了，又要重来。改造过的JvMouseGesture.pas单元代码：unit JvMouseGesture;{$I jvcl.inc}interfaceuses {$IFDEF UNITVERSIONING} JclUnitVersioning, {$ENDIF UNITVERSIONING} SysUtils, Classes, Controls, Windows, Mess... 阅读全文

摘要： Invalid floating point operation EmbeddedWebBrowse 异常 阅读全文

摘要： 今天去About.com逛了逛，学到一点东西，记下来No "Paste" for you!To intercept any key combination for a TEdit (or TMemo or more generally TCustomEdit) you need to handle the OnKeyDown event. Put a TEdit named "Edit1" on a form (named "Form1"). Handle Edit1's OnKeyDown event as:uses Cli 阅读全文

摘要： TEdit是经常使用的组件，但其功能不能满足开发要求，虽然高版本的Delphi已经提供一个TButtonEdit组件，但这个组件提供的按钮数量较少，于是本人模仿这个组件，做了一个支持4个按钮的TEdit扩展组件，在Delphi XE下测试通过。主要代码如下：unit UWSIEAddress;interfaceuses SysUtils, Classes, Controls, StdCtrls,ImgList,Messages,Menus,themes,Forms, Windows,Dialogs,RegularExpressions,Registry,ShellAPI;const AltID 阅读全文

摘要： 由于习惯于使用For循环，笔者在开发时遇到奇怪的问题。在TTabset组件管理大量对象时使用了类似下面的语句For I:=0 to aTabSet.Tabs.Count-1 dobegin TObject(aTabSet.Tabs.Objects[I]).Free; aTabSet.Tabs.Delete(I);end;乍一看没问题，编译，运行，结果出错啦！找了半天的原因，在发现，如此操作，Tabs.Count都已经发生了变化，I值已经超出Count的范围，不出错才怪！后来改用了While循环，终于不出错啦。研究了一下，如果非要用For循环的话，可以这样写：For I:=aTabSet.T.. 阅读全文

摘要： 主要代码如下：[代码]下载：http://files.cnblogs.com/uws2056/UWSStartupItemPanel.rar 阅读全文

摘要： 很多时候我们需要在运行期随意移动窗体、组件或改变其大小，研究了一下封装成一个组件 欢迎大家指点代码下载：http://files.cnblogs.com/uws2056/MoveAnyWhere.rar 阅读全文

摘要： 由于经常要用到窗体全屏功能 所以把他封装成了一个组件 这是主要代码 Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/--> 1 {************** 阅读全文

摘要： 在盒子论坛上看见一Delpher提出要求说：在鼠标进入TEdit控件时弹出消息框，我扩展了TEdit功能，把它封装成了一个组件，代码如下 Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHi 阅读全文