Delphi 正確關閉 MDI 子視窗:OnClose 設定 Action := caFree
問題 MDI 子視窗預設關閉行為為 caMinimize(最小化),點擊右上角關閉鈕不會釋放資源。 解決方法 procedure TChildForm.For
Delphi 編寫極小執行檔技巧:無 Form、純 API、38KB 隱藏桌面圖示範例
核心秘訣:完全捨棄 VCL Form,純 WinAPI 程式設計 Delphi 同樣能像 C 語言產出僅幾十 KB 的微型執行檔。關鍵在於:專案不包含任何 Fo
字串取代函數 ReplaceSubStr 簡易版
函數 function ReplaceSubStr(const S, Source, Target: string): string; var PosIdx
QQ 聊天記錄器演示(二):WH_KEYBOARD 與 WH_CALLWNDPROC 捕獲發送訊息
捕獲發送訊息兩途徑 按 Ctrl+Enter 發送。 點擊「發送」按鈕(WM_COMMAND,ID=1)。 分別使用 WH_KEYBOARD 與 WH_CA
QQ 聊天記錄器演示(一):WH_SHELL Hook 捕獲訊息視窗建立
背景 針對 QQ 2003/2004 版本,採用 Hook 攔截訊息視窗建立事件(WH_SHELL),而非封包攔截(難度極高)。程式分兩部分:DLL Hook
Delphi 單元檔案結構詳細解析:Interface、Implementation、Initialization、Finalization
單元檔案六大區塊 單元標頭:unit UnitName; 宣告單元名稱。 Interface 區:interface 到 implementation 之間。
Delphi 5 自製 IP 捕獲器:TServerSocket 實作簡易 IP Hunter
原理 使用 TServerSocket 監聽 TCP 連線(預設 Port 80 捕獲瀏覽器請求),OnClientConnect 事件取得遠端 IP 並顯示於
Delphi 播放聲音完全指南:MessageBeep、sndPlaySound、PlaySound、資源嵌入
1. 系統喇叭聲 MessageBeep(-1); // 預設系統聲音 MessageBeep(MB_ICONEXCLAMATION); // 警告聲 2.
Delphi 5 開發控制台應用程式:建立 .cpl 控制面板小程式
原理 控制面板小程式本質為 DLL,匯出 CPlApplet 回呼函式,副檔名改為 .cpl 放入 Windows\System,系統啟動時自動載入。 Del
Spcomm 序列埠元件使用範例:初始化、收發資料
元件介紹 Spcomm 是常用的 Delphi 序列埠元件,提供 StartComm/StopComm、WriteCommData、OnReceiveData
Delphi 標題列閃爍提醒:FlashWindow API 應用
API 介紹 function FlashWindow(hWnd: HWND; bInvert: BOOL): BOOL; stdcall; hWnd:目標視
Delphi 真正的 TopMost 視窗:解決非主視窗隨主視窗遮蔽問題
問題 一般 FormStyle = fsStayOnTop 的非主視窗,仍會隨主視窗最小化/還原而改變 Z-order,無法真正「永遠在最上層」。 解決方案
Delphi 打造 Winamp 風格磁性吸附視窗
效果描述 拖曳視窗時,靠近目標視窗(如 Winamp 主視窗)邊緣一定距離,自動「吸附」對齊,彷彿磁力作用。 核心邏輯 OnMouseDown:記錄滑鼠初始
Delphi 禁止視窗移動:攔截 WM_MOVING 訊息實作
原理 攔截 WM_MOVING 訊息,在訊息處理函式中將 TRect 參數強制還原為原始位置,即可達到「不可移動視窗」效果。 完整單元程式碼 unit Uni
自製字串取代函數:ReplaceSubStr 單次取代實作
函數用途 在字串中尋找第一個出現的子字串並取代為新字串(僅取代第一次出現)。 原始碼 function ReplaceSubStr(const S, Sour
Delphi RichEdit 控制項進階:取得當前行號與實作 Undo
一、取得游標所在行號 Delphi 未直接提供屬性,需發送 EM_LINEFROMCHAR 訊息: procedure TForm1.Button1Click(
Delphi 資料集過濾四大法:Filter、SetRange、OnFilterRecord、TQuery SQL
測試資料表 Customer:CustNo、CustName、Country、Address、Phone、State、TaxRate 方法一:TTable/T
VB 實作自訂浮動提示:單一 TextBox 管理所有控制項
設計概念 在表單放置一個隱藏的 TextBox(Text1)作為通用提示視窗,透過公用函式 ShowTip 依滑鼠座標定位顯示,所有控制項 MouseMove