当前位置： 首页 > delphi

  • delphi WebBrowser 自动填表

    delphi WebBrowser 自动填表

    name填表: procedure TForm1.Button1Click(Sender: TObject); var text: OleVariant; doc: IHTMLDocument2; i,len:integer; begin web1.Navigate('http://baidu.com'); text := web1.OleObject.document.all.item( 'word',0); text.Value :='123'; end; 无name 自动点击: procedure TForm1. ...

    技术文档1,063次阅读抢沙发
    Read more

  • Delphi中取出字符串中指定位置的几个字符

    Delphi中取出字符串中指定位置的几个字符

    比如我要读出一个字符串中 第5个字符是什么； 可以用下面函数，很方便。直接调用就可以了 。 uses StrUtils; Function SubStr(PStr : String; PPos, PLen : Integer) : String; Begin if PPos > Length(PStr) then Result := 'ERROR_OVERSTRING' {目标字符位置不应超过字符串长度} else if PLen < 1 then ...

    技术文档483次阅读抢沙发
    Read more

  • Delphi实现窗体内嵌其他程序窗体

    Delphi实现窗体内嵌其他程序窗体

    实现原理是启动一个应用程序，通过ProcessID得到窗体句柄，然后对其设定父窗体句柄为本程序某控件句柄(本例是窗体内一个Panel的句柄)，这样就达成了内嵌的效果。 本文实现的是内嵌一个记事本程序，如下图： 在实现细节上需要注意几点： •为了美化程序的嵌入效果，需要隐藏其标题栏 •在外部窗体大小变化时，需要内嵌的 ...

    技术文档514次阅读抢沙发
    Read more

  • delphi EmbeddedWB 去掉边框、滚动条

    delphi EmbeddedWB 去掉边框、滚动条

    WebBrowser加载网页，那个边框那个滚动条烦死人了！ 生怕人家不知道那是网页。。。 没办法改用EmbeddedWB，还真他妈好用。 调用的网页，如果把颜色搞成一样还真看不出来！ 不说废话了，还是说下怎么去掉把！ 加入以下代码即可： EmbeddedWB1.UserInterfaceOptions:=[DontUse3DBorders,DontUseScrollBars,EnablesFormsA ...

    技术文档, 资源共享853次阅读抢沙发
    Read more

  • delphi 鼠标左右键弹起按下代码

    delphi 鼠标左右键弹起按下代码

    MOUSEEVENTF_LEFTDOWN：鼠标左键按下 MOUSEEVENTF_LEFTUP：鼠标左键弹起 MOUSEEVENTF_RIGHTDOWN：鼠标右键按下 MOUSEEVENTF_RIGHTUP：鼠标右键弹起 使用以下代码，我们就完成了一次针对0,0点的鼠标左键单击： var x,y:integer; begin x:=0;y:=0; Mouse_Event(MOUSEEVENTF_LEFTDOWN,x,y,0,0); Mouse_Event(M ...

    技术文档, 资源共享897次阅读抢沙发
    Read more

  • delphi 注册系统热键

    delphi 注册系统热键

    在窗口的create事件中，加入以下代码 ： HotKeyId := GlobalAddAtom('MyHotKey') - $C000; RegisterHotKey(Handle,hotkeyid,MOD_CONTROL,VK_F6); 注： HotKeyId的合法取之范围是0x0000到0xBFFF之间， GlobalAddAtom函数得到的值 在0xC000到0xFFFF之间，所以减掉0xC000来满足调用要求。 热键的辅助按键包括Mod_Ctrl 、 ...

    技术文档, 资源共享607次阅读抢沙发
    Read more

  • delphi 动态替换图标

    delphi 动态替换图标

    先在type下面添加如下代码: icondirentry=packed record bwidth:Byte; //该目录对应的资源的宽度 bheight:Byte; //该目录对应的资源的高度 bcolorcount:Byte; //该目录对应的资源的颜色总数，大于8的资源该值为零 breserved:Byte; //保留 wplanes:word; //指定的设 ...

    技术文档, 资源共享725次阅读抢沙发,
    Read more

  • delphi 动态添加资源文件

    delphi 动态添加资源文件

    服务端生成客户端时,动态配置一些信息会用到! 比如: a为一个可执行文件,b为ini文件.将b文件写入a文件里,a文件里就包含了资源文件b. 写入资源文件代码: var mstrm1:TMemoryStream; update : dword; workdir:string; begin workdir := ExtractFilePath(ParamStr(0)); mstrm1 := TMemoryStream.Create; ...

    技术文档, 资源共享724次阅读抢沙发
    Read more