原创 模擬鍵盤
SendMessage(Myhwnd, WM_KEYDOWN, VK_TAB, 1); // 發送Tab鍵 SendMessage(Myhwnd, WM_KEYUP, VK_TAB, 1); SendMessage(Myhwnd, WM
2020-06-16 15:26:46
原创 枚舉窗口
// 爲指定的父窗口枚舉子窗口、按鈕 function EnumChildWndProc(AhWnd: LongInt; AlParam: lParam): boolean; stdcall; var WndClassName: ar
2020-06-16 15:26:46
2
原创 文件放過進剪貼板
procedure CopyFilesToClipboard(FileList: string); var DropFiles: PDropFiles; hGlobal: Thandle; iLen: Integer; be
2020-06-16 15:26:46
2
原创 keybd_event
//直接轉換對應鍵盤碼 function InputChar(str: string): Boolean; var i: integer; c: byte; begin for i := 1 to Length(str) do
2020-06-16 15:26:46
1
原创 Accsee數據庫
//Accsee數據庫創建及建表 Function Create_AC_Table(): Integer; var Cat: Olevariant; Tadoq: TADOQuery; begin If Not FileExi
2020-02-25 00:19:08
原创 TStringList
//TStringList 常用方法與屬性: var List: TStringList; i: Integer; begin List := TStringList.Create; List.Add('Str
2020-02-25 00:18:48
原创 進程操作
//需要引用 TLHelp32單元 //根據 進程名結束進程 //調用 EndProcess('QQ2013') procedure EndProcess(AFileName: string); const PROCESS_TERM
2020-02-25 00:18:48
1
原创 TEdit
//居中顯示 SetWindowLong(Edit1.Handle, GWL_STYLE, GetWindowLong(Edit1.Handle, GWL_STYLE)or ES_CENTER);//限制只能輸入數字 procedure
2020-02-25 00:18:47
原创 TListView
//刪除當前行 for i:=ListView1.Items.Count-1 downto 0 Do if ListView1.Items[i].Caption = Edit1.Text then begin ListView1.Ite
2020-02-25 00:18:47
原创 TOpenDialog
1．TOpenDialog組件的典型用法 打開”對話框是用TOpenDialog組件實現的，TOpenDialog組件是非可視組件。 Filter屬性用於設置文件過濾器，讓對話框只列出特定類型的文件。在設計時可以單擊Filter屬性
2020-02-25 00:18:47
原创 TImage 控件實例
//需要引用 JPEG單元 直接從內存顯示圖片 Var Jpg: TJPEGImage; Begin IdHTTP1.Get(Gz.Groups[1], Stream); Jpg := TJPEGImag
2020-02-25 00:18:47
原创 TMemo
//全選功能 procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin If (Shift = [ssCtr
2020-02-25 00:18:47
原创 延遲執行
//調用方法 Delay(1000); procedure TForm1.Delay(msecs: integer); var Tick: DWord; Event: THandle; begin Event := Creat
2019-04-01 07:34:58
原创 兩個TFrom窗體之間傳送消息
接收消息======================== unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,
2018-08-28 02:21:04
原创 HTML DOM方法
一些 DOM 對象方法 這裏提供一些您將在本教程中學到的常用方法： 方法 描述 getElementById() 返回帶有指定 ID 的元素。 getElementsByTagName() 返回包含帶有指定標籤名稱的所有
2018-08-28 02:21:03