自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(7)
  • 资源 (7)
  • 收藏
  • 关注

原创 delphi 中的左鍵雙擊事件與右鍵單擊事件

if (ssDouble in Shift) or (ssRight in Shift)    delphi 中的左鍵雙擊事件與右鍵單擊事件  ssleft 自然就是左鍵單擊事件了

2008-06-09 21:21:00 769

原创 光標進入離開事件 delphi

    procedure   CMMouseEnter(var   Message:   TMessage);   message   CM_MOUSEENTER;    procedure   CMMouseLeave(var   Message:   TMessage);   message   CM_MOUSELEAVE;procedure   TForm1.CMMouseEnter(va

2008-06-09 16:59:00 403

原创 光標進入離開事件 delphi

    procedure   CMMouseEnter(var   Message:   TMessage);   message   CM_MOUSEENTER;    procedure   CMMouseLeave(var   Message:   TMessage);   message   CM_MOUSELEAVE;procedure   TForm1.CMMouseEnter(va

2008-06-09 16:58:00 751

原创 java 取得瀏覽器分辨率

java 取得瀏覽器分辨率   -------------------------------------------------------document.write(screen.width+ x +screen.height); -----------------------------------delphi 函數:SCREEN.WIDTHSCREEN.he

2008-05-27 21:17:00 432

原创 判斷撥號網絡狀態精簡代碼.delphi 7 + XP 通過測試.

----------------------------------------------unit Unit1;interfaceuses  Windows, Messages, SysUtils, wininet,Classes, Graphics, Controls, Forms, Dialogs,  StdCtrls;type  TForm1 = class(TForm) 

2008-05-04 16:19:00 376

原创 動態創建Webbrowser並給定OnDocumentComplete事件!!!多個創建有問題

 一個動態創建Webbrowser並給定OnDocumentComplete事件的簡單例子  ---------------聲明是這樣子的(事件不同就不同)-----------------------private{ Private declarations }public{ Public declarations }procedure proDocumentComplete(Sen

2008-04-21 22:25:00 1057 1

原创 [delphi]动态创建MEMO历遍目录TXT文件到listbox中,並將內容加載到memo中.

代碼如下:-----------------------------------------------procedure TForm1.Button1Click(Sender: TObject);var   SearchRec : TSearchRec;   int,i:integer;begin  form1.Caption:=getcurrentdir;   int:=findf

2008-03-28 08:28:00 2053

修改版对超大文本进行快速过滤!

修改了前面的一些错误!请不要下载前一个! 经测试,从900W条中过滤700W条。共耗时大概25分钟

2010-04-03

对超大文本进行快速过滤!

已重新更新请从 http://download.csdn.net/source/2197937这里下载 从200W行中过滤25W行大概需要100毫秒左右 没什么技术性的 由于是繁体版。所以简体系统的朋友会看到全乱码

2010-04-02

Delphi 編寫多頁面瀏覽器初期完整源代碼!

很舊以前的代碼,問題當然也是一堆,但對於新於來多少有點點幫助!今天重新來出來編譯一下分享給有需要的朋友,需要的幾個VCL文件可能需要自己去下載 http://download.csdn.net/source/493197 從一個完全不會DELPHI的時期開始寫的一個自己用的瀏覽器 大概完成的功能有: 一,CTRL+D加入自己的群組 二,查看源代碼和選取部分源代碼,以及運行源代碼 三,雙擊或者F4關閉而簽,F2和F3分別切換上一個和下一個頁簽 四,關閉回到最一頁簽或者回到當前后一頁簽 五,可以直接用GOOGle等搜索

2009-04-14

獲取本機IP。RasGetIPAddress

本機IP :RasGetIPAddress;

2009-04-11

Delphi开发的多页面浏览器2008年6月編寫

首先申明:<br>1:本人是新人,沒有分不能下載其他高手的資源,所以才要積分下載<br>2:此程序正在編寫中。拿出來目的是希望能和有這個有興趣的朋友認識,一起研究學習。然後提出一系列問題希望有高手能指點一二。<br>3:如果你電腦沒有安裝DELPHI 還需要幾個文件才可以運行(為了減小主程序大小!)已上大家上傳下載地址(放到此程序同一目錄及可):http://download.csdn.net/source/493197<br><br>目前已實際的功能有:<br><br>1.輸入網址回車與直接選擇地址欄項都是直接打開頁面,選擇後面的搜索。可在地址欄直接輸入關鍵字用右鍵選擇(搜索按鈕上)的引擎進行搜索<br><br>2.頁面控制一:右下角按鈕1控制是否打開到新窗口(地址欄回車),第二個控制是否關閉到最后一個頁簽,第三個控制開啟的新地址在最后還是在當前右邊。<br><br>3.頁面控制二:地址欄前的加號是新增空白頁,搜索按鈕後面第一個圖標。提取網頁源代碼(已實現提取所有源碼與選擇部分源碼),第二個圖標控制地址欄處於上方還是下方,第三個圖標控制頁簽是處於上方還是下方,由於不能解決動態改變pagecontrol1的tabposition 會重繪使得WEB無法顯示。所有改到所有頁面關都關閉以后才能生效<br><br>4.頁面控制三:在頁簽上有雙擊關閉/右鍵閩南單擊關閉和F4快捷關閉,所以在關閉其它頁面事件放到地址欄上。地址欄右鍵單擊出來關閉左邊全部,右邊全部(未實現,由於關閉后頁時,當前頁簽會往后跳,造成有閃的感覺。)如果隱藏主菜單會出現主菜單上面的快捷鍵無效!<br><br>5.群組收藏功能,快捷鍵ctrl+d,可加入收藏群組,目前不能更新新的群組的內容。編輯功能未實現<br><br>還有好多的問題。正在準備解決中<br><br>有些目前自己解決不了的問題在這里請求高手們出招:<br><br>還是一個一個的解決並提出來:<br><br>目前正處理的問題:如何關閉右邊所有頁簽。如果熱循環關閉當前右邊一個會造成當前頁的變換而形成閃動。不好!<br><br>如何解決....?<br>已在論壇發貼地址:http://topic.csdn.net/u/20080612/13/16e13b55-b27d-490e-8591-4240feddb9bd.html<br>

2008-06-12

delphi webbrowser

只是下載了那個文件這個文件才有用。<br><br>其他朋友請不要下載別浪費時間

2008-06-12

汇编指令 中文对照

很长时间后就忘记了许多.找又麻烦,只好从自己电脑上找到原来的.不过是繁体的.如果你打开是筹码,就用IE打开,点击右建选择字体为繁体.或者自己用工具转换一下,下面是内容的一部分:<br><br><br>彙編語言指令集<br>一、數據傳輸指令 <br> 1. 通用數據傳送指令.<br>MOV (MOVe) 傳送字或字節.<br>MOVS (MOVe String) 串傳送指令<br>MOVSX 先符號擴展,再傳送.<br>MOVZX 先零擴展,再傳送.<br>PUSH 把字壓入堆棧.<br>POP 把字彈出堆棧.<br>PUSHA 把AX,CX,DX,BX,SP,BP,SI,DI依次壓入堆棧.<br>POPA 把DI,SI,BP,SP,BX,DX,CX,AX依次彈出堆棧.<br>PUSHAD 把EAX,ECX,EDX,EBX,ESP,EBP,ESI,EDI依次壓入堆棧.<br>POPAD 把EDI,ESI,EBP,ESP,EBX,EDX,ECX,EAX依次彈出堆棧.<br>BSWAP 交換32位寄存器裡字節的順序<br>XCHG (eXCHanG)交換字或字節.( 至少有一個操作數為寄存器,段寄存器不可作為操作數)<br>CMPXCHG比較並交換操作數.( 第二個操作數必須為累加器AL/AX/EAX )<br>XADD 先交換再累加.( 結果在第一個操作數裡 )<br>XLAT (TRANSLATE) 字節查表轉換.<br><br>.<br>.<br>.<br>.<br>.<br>.

2008-03-20

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除