原创 delphi下實現控制其它窗體中的控件

用我的方法來控制其他程序窗體上的窗口控件,必須先了解什麼是回調函數。我的理解是這樣的:   回調函數寫出來不是自己的程序去調用的,反而是讓其他的東西去調用,比如windows操作系統,比如其他的程序等等之類的。但是什麼時候被調用卻不知道了

原创 用 TMemoryStream(內存流) 入門

所謂"流", 就是一段數據或是一塊內存;在進行流操作時, 我們不必關心流中的數據到底是什麼; 只需要知道流的大小 和當前的指針位置. 所以流只有兩個屬性: Size、Position.對流的操作, 不過就是讀取和寫入. 所以流最主要的方法

原创 Delphi與C之間的類型對應表

以下是引用片段:  ABC -> TABC   ACCEL -> TAccel   ATOM -> TAtom   BITMAP -> TBitMap   BITMAPCOREHEADER -> TBitmapCoreHeader   B

原创 窗口等待

procedure ShowWaitWindow(TmpStr: string; Okay: Boolean);var  Rect: TRect;begin  if not Assigned(frm_Start) then  begin 

原创 動態創建Image和Panel

var  S1,S2 : String;  I : Integer;  _Left, _Top, _Width, _Height : Integer;  __Left, __Top, __Width, __Height : Integer

原创 Application.MessageBox詳解

1. Text:要顯示的訊息2. Caption:訊息視窗的標題列文字3. Flags:訊息旗標     3.1. 可指定訊息視窗上的圖示     3.2. 可指定訊息視窗出現的按鈕     3.3. 可指定預設Focus在哪一個按鈕  

原创 回調函數的例子

這次只是熟悉一下實現回調的整個過程。 interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs,

原创 MySQL:無法遠程登入MySQL Server

嘗試用MySQL Adminstrator GUI Tool登入MySQL Server,Server卻回覆錯誤訊 息:Host '60-248-32-13.HINET-IP.hinet.net' is not allowed to co

原创 用Delphi從內存流中判斷圖片格式

利用內存流來判斷文件的格式,其實判斷文件的前幾個字節就可以簡單的判斷這個文件是什麼類型的文件,例如 jpg文件 是 FFD8 (從低位到高位就要反過來 D8FF 下面都是一樣) BMP文件 是 424D ---4D42 其他的我就不一一列

原创 用Delphi從內存流中判斷圖片格式

利用內存流來判斷文件的格式,其實判斷文件的前幾個字節就可以簡單的判斷這個文件是什麼類型的文件,例如 jpg文件 是 FFD8 (從低位到高位就要反過來 D8FF 下面都是一樣) BMP文件 是 424D ---4D42 其他的我就不一一列

原创 不允許超出範圍

procedure TfrmOffice.toolResize(Sender: TObject);begin  if Tool.Top < 23 then Tool.Top := 23;  if Tool.Height > Screen.

原创 mainado連接數據庫

procedure TMainDataModule.DataModuleCreate(Sender: TObject);var  strConn :String;begin  StrConn := 'Provider=SQLOLEDB.1

原创 程序中調用DLL實現回調函數

//程序中調用DLL實現unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dia

原创 delphi 連接MySQL數據庫

由於在Delphi 7中並沒有提供對應MySQL4.0以上版本的dbexpress驅動(雖然在Borland的CodeCentral中有相關的驅動下載,但我卻使用不了,不知道是否是我的方法不對),所以在使用前先下載MySQL 3.23.x

原创 Delphi小技巧雜記

//獲取任務欄尺寸 procedure TForm1.Button1Click(Sender: TObject); var TaskList: HWnd; Bordered: TRect; begin TaskList :=