devhp-优快云博客

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

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

2008-06-09 21:21:00 815

原创光標進入離開事件 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 435

原创光標進入離開事件 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 778

原创 java 取得瀏覽器分辨率

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

2008-05-27 21:17:00 466

原创判斷撥號網絡狀態精簡代碼.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 400

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

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

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

原创 [delphi]动态创建MEMO历遍目录ＴＸＴ文件到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 2101

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

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

2010-04-03

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

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

2010-04-02

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

2009-04-14

獲取本機IP。RasGetIPAddress

本機IP ：RasGetIPAddress;

2009-04-11

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

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

2008-06-12

delphi webbrowser

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

2008-06-12

汇编指令　中文对照

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

2008-03-20

空空如也

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

TA关注的人

devhp的专栏

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

原创光標進入離開事件 delphi

原创光標進入離開事件 delphi

原创 java 取得瀏覽器分辨率

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

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

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

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

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

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

獲取本機IP。RasGetIPAddress

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

delphi webbrowser

汇编指令　中文对照

空空如也

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

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

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

獲取本機IP。RasGetIPAddress

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

delphi webbrowser

汇编指令 中文对照

空空如也

汇编指令　中文对照