- Delphi中Menu设置Images属性后快捷按键下划线被隐藏解决方法 2011-09-03 点击:866 评论:0
- Delphi模拟登陆QQ页面的部分代码 2011-09-03 点击:1158 评论:0
- Delphi获取网页中动态创建的Div中的内容 2011-09-03 点击:3257 评论:0
- Delphi的Controls问题 2011-09-03 点击:1021 评论:0
- Delphi中WebBrowser自动填表模板 2011-09-03 点击:1238 评论:0
- Delphi怎样实现TMemo、TRichEdit行跳转 2011-09-03 点击:1612 评论:0
- Delphi中解决MDI的DLL子窗体中的Tab键下移控件问题 2011-09-03 点击:1096 评论:0
- Delphi中枚举Web Browser实例窗口,提取HTML文档信息 2011-09-03 点击:939 评论:0
- Delphi中给活动控件画上矩形边框 2011-09-03 点击:1352 评论:0
- Delphi组件开发教程指南(七)继续模拟动画显示控件 2011-09-03 点击:862 评论:0
分析:VCL中Menus.pas单元的代码,看到如下语句procedure TMenuItem.AdvancedDrawItem(ACanvas: TCanvas; ARect: ...
procedure TForm1.Button2Click(Sender: TObject);var Doc,FrameDoc:IHTMLDocument2; Login:IHTM...
HTML示例代码如下:script language=' !-- function test(){ var obj=document.getElementById('test');...
原来的代码大致是这样的: var nIndex: Integer; cTmp: TControl;begin for nIndex:= 0 to Self.Controls.Cou...
代码见下:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Co...
以下是代码(很简单):1)Memo:var linenum :Integer; //要跳往的行号begin SendMessage(Memo1.Handle,WM_VSCROLL,...
关键代码:functionTForm1.GetSysFocus:Integer; var hOtherWin,OtherThreadID,hFocusWin:integer; be...
部分代码:procedure TForm1.GetBrowsersButtonClick(Sender: TObject) ;var ShellWindows: TShellWin...
600) this.width = 600;'>窗体创建事件中加如下代码: focusRectangle := TShape.Create(self) ; focusRectang...
上一次,我讲解了如何实现一个模拟显示动画效果的控件,但是我没有给出所有代码,只是给了一些关键代码,不晓得,有没有人将代码完全补全的,同时也留下了一个问题说,如何通过另一种方式来实现...