原创 Enter鍵使用作Tab鍵
首先，在主窗體中聲明以下private過程:procedure TMainForm.DoEnterAsTab(var Msg: TMsg; var
2020-06-26 19:22:56
原创 ShellExecute的使用
ShellExecute的功能是運行一個外部程序（或者是打開一個已註冊的文件、打開一個目錄、打印一個文件等等），並對外部程序有一定的控制。 有幾個
2020-02-22 03:21:50
1
原创 包含圖形、動畫、進度條等等的狀態欄
{在Delphi中，一個控件上能否成爲其它控件的父控件取決於此控件的ControlStyle屬性。ControlStyle屬性是集合類型的，如果此集
2020-02-22 03:21:50
1
原创 圖像格式轉換
uses Windows, Messages, SysUtils, Classes, Graphics, JPEG;function BmpToJ
2020-02-22 03:21:50
原创 與Access數據庫結構有關的一些函數
//與數據庫結構有關的一些函數//1、動態改變字段名稱uses ComObj;//Access//TableName: 表名; OldColName:
2020-02-22 03:21:50
原创 成本計算方法
1．加權移動平均覈算成本單價=（不含稅庫存金額+不含稅入庫金額）/（庫存數量+入庫數量）2．先進先出按進貨時的單價及數量記錄序列，以日期升序提取進價作
2020-02-22 03:21:50
原创 設置默認輸入法
uses TypInfo procedure SetImeA(AOwner:TForm);var i:Integer;begin for i :
2020-02-22 03:21:39
原创 Delphi控制Excel
(一) 使用動態創建的方法首先創建 Excel 對象，使用ComObj:var ExcelApp: Variant;ExcelApp := Crea
2020-02-22 03:21:39
原创 Delphi服務程序註冊與卸載
//Delphi服務程序註冊與卸載 uses winsvc;function InstallService(ServiceName, Display
2020-02-22 03:21:39