{*******************************************************}{ }{ 原生ADO }{ }{ 著作權 (C) 2008
{*******************************************************}{ }{ 圖形分析 }{ }{ 著作權 (C) 2008
{在Delphi中，一個控制項上能否成為其它控制項的父控制項取決於此控制項的ControlStyle屬性。ControlStyle屬性是集合類型的，如果此集合包含csAcceptsControls元素，則它能接受其它控制項；否則，它就不能成為其它控制項的父控制項。ControlStyle屬性只能在控制項的建構函式（Constructor）中指定，在程式運行時它是不能被改變的。所以如果希望視窗狀態條上面能包含其它控制項，我們只需要在繼承類中重載TStatusBar控制項的Constructor函數
{*******************************************************}{ }{ ADO資料處理站 }{ }{ 著作權 (C) 2008
如同Lightbox的效果那邊，或者說和Windows關閉系統前的那一刻類似，為反白主題而採取的暗淡背景的方法在Web2.0的網站風格中被越來越多的使用。程式碼：(您可以把以下代碼儲存成html檔案看看效果) <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="ht
{*******************************************************}{ }{ 商務邏輯一 }{ }{ 著作權 (C) 2008 陳新光
最近解決了一個問題-減少記憶體佔用。不過是有條件的，只能在WinXp,Win2K中應用此方法，不顯示主表單一直啟動並執行程式最佳。以前程式佔用11M記憶體，我用動態建立視窗的方法只能減少不到100K，應用此方法後記憶體佔用只有496K。把下面的過程放到一個Timer中，每隔一段時間執行一次，如5秒。{*********** Clear Memory* From Muse2008**********}procedure ClearMemory;begin if Win32Platform =
{*******************************************************}{ }{ 定時關閉各種對話方塊 }{ }{ 著作權 (C) 2007
什麼是流？流,簡單來說就是建立在物件導向基礎上的一種抽象的處理資料的工具。在流中，定義了一些處理資料的基本操作，如讀取資料，寫入資料等，程式員是對流進行所有操作的，而不用關心流的另一頭資料的真正流向。流不但可以處理檔案，還可以處理動態記憶體、網路資料等多種資料形式。如果你對流的操作非常熟練，在程式中利用流的方便性，寫起程式會大大提高效率的。 Delphi中流的基本概念及函式宣告 在Delphi中，所有流對象的基類為TStream類，其中定義了所有流的共同屬性和方法。
{*******************************************************}{ }{ 通用列印模組 } { }{ 著作權 (C) 2008
{*******************************************************}{ }{ 陳新光 }{ }{ 著作權 (C) 2008
function SaveAsExcelFile(StringGrid: TStringGrid; FileName: string):boolean;const xlWBATWorksheet = -4167;var Row, Col: integer; GridPrevFile: string; XLApp, Sheet: OLEVariant;begin Result := false; XLApp :=
1.DLL 工程單元代碼library Project2;uses Windows, Messages;const MY_MSG = WM_USER + 101;{$R *.res}procedure LoadDLL(const AHandle: Pointer); stdcall;begin PostMessage(THandle(AHandle),MY_MSG,11,22);end;exports LoadDLL;beginend.2.主程式碼unit
{*******************************************************}{ }{ 陳新光 }{ }{ 著作權 (C) 2008
//適用範圍：與ADO資料集相連的DBGrid按單一欄位排序//傳入參數：Column(排序欄位對應的DBGridColumn)，DefaultSort(預設排序串)//使用建議：在DBGrid的OnTitleClick中直接調用之。第一次單擊某Column標題列時，按改欄位升序排列，連續第二次單擊時改為降序，連續第三次單擊時，改為預設方式排序（如PrimaryKey等）procedure SortDBGrid(Column: TColumn; DefaultSort:
Delphi服務程式註冊與卸載uses winsvc;function InstallService(ServiceName, DisplayName, FileName: string): boolean;varSCManager,Service: THandle;Args: pchar;beginResult := False;SCManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);if SCManager = 0 then
uses Windows, SysUtils, Classes,StdCtrls, ComCtrls;const createToChild=1; createToAboveBrother=2; createToUnderBrother=3;{ 複製樹(含子節點) 輸入參數 DestTree 複製目的地TTreeView控制項 SourceNode 複製源 DestNode 複製目的地 CreateStyle
控制橫向和縱向捲軸的顯隱？<body style="overflow-y:hidden"> 去掉x軸<body style="overflow-x:hidden"> 去掉y軸<body scroll="no">不顯 表格變色<TD onmouseover="this.style.backgroundColor='#FFFFFF'" onmouseout="this.style.backgroundColor=''"style="CURSOR: hand"
一，ping
{*******************************************************}{ }{ 命令模式的簡化 }{ }{ 著作權 (C) 2008 陳新光
Start building with 50+ products and up to 12 months usage for Elastic Compute Service
1 on 1 presale consultation
24/7 Technical Support 6 Free Tickets per Quarter Faster Response
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.
A comprehensive suite of global cloud computing services to power your business
Payment Methods We Support
