其他

很多東西我們已經在上面說過了，這裡不多說了，我要直入圖形控制項的重點。圖形控制項不是封裝Windows的控制項，而是Delphi自己畫出來的，那麼它肯定有一個畫控制項的函數。這個函數就是:Paint; 看一下VCL源碼，可以知道它定義在TGraphicControl。中： procedure Paint; virtual; 這是一個虛函數，那麼它的實現是怎麼樣的呢，點擊看它的實現如下：procedure

 方法一：控制項類叫做   TABC,檔案名稱叫 abc.pas 那麼建立立一個檔案叫abc.rc裡面內容是TABC Bitmap icon.bmpicon.bmp 就是圖片檔案名稱，不要超過256色，24x24然後在命令列下執行 brcc32 abc.rc就會產生 abc.res改名為 abc.dcr開啟你控制項的 dpk檔案， 加上 {$R ABC.DCR}重新編譯就可以了。便捷方法二：在Delphi 內建工具 Image Editor 裡建立一個RES 檔案File -->New -

 WebBrowser使用全接觸在日常的開發程式的過程中，經常會遇到使用IE的問題，使用IE一般有兩種情況，一種是像監視GMmail信箱講到的那樣，另外一種是類似與CrazyBrowser這樣的使用webbrowser控制項的程式。其實在程式中使用WebBrowser其實是一件很簡單的事情，因為有WebBrowser可以直接使用，但是能用和用起來可不是一樣的事情。下面就經常會用到的一些功能簡單的介紹介紹。1.最經常使用的自然如何屏蔽預設的IE右鍵菜單，並且使用自訂的菜單。這方面網上有很多的文章進

unit zip;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls,ComObj;type  TForm1 = class(TForm)    dlgOpen1: TOpenDialog;    lbl1: TLabel;    edt1: TEdit;    btn1: TButton;    btn2: TButton;   

Select folder dialogYesterday I posted how to display standard dialog for files (open/save). Today I want to show how you may use stamndard dialog when user must select a folder/directory.Use the next function:uses SysUtils, ShlObj;function

對TMemoryStream的一些改進怎麼又是關於Stream的，呵呵，應該說只是最近比較關心程式的效率問題，而我對Stream其實並沒有什麼特別的研究，只是自己發現了一些新的用法，希望能對大家有用而已。　　　　事情的起因還是那個破爛電子相簿軟體，今天又發現了一個可改進之處，有一段程式我原來是這麼寫的：　　procedure CreateFile(const AFileName:String;const AStream:TMemoryStream);　　var　　 

 用我的方法來控制其他程式表單上的視窗控制項，必須先瞭解什麼是回呼函數。我的理解是這樣的：

http://www.cracks.am(出名破解網站之一，包含各類型破解軟體，注冊機等等，更新速度極快)推薦! http://cracks.lomalka.ru(一個破解軟體，注冊機網站，更新速度快) http://www.crackway.com(一個破解，注冊機網站，更新速度一般) http://cracks4u.us(一個破解軟體，注冊機，注冊碼儲存網站，總數超過5萬個，更新速度快)推薦! http://anycracks.com(一個破解軟體，注冊機網站，總數超過5萬個，更新速度一般)

著作權聲明：原創作品，允許轉載，轉載時請務必以超連結形式標明文章 原始出處 、作者資訊和本聲明。否則將追究法律責任。http://bigpower.blog.51cto.com/209892/90287 unit Main;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ExtCtrls, StdCtrls,Comobj;type  TForm1

以下是程式具體的代碼： procedure TFrm_test.dbeh_1DrawColumnCell(Sender: TObject;  const Rect: TRect; DataCol: Integer; Column: TColumnEh;  State: TGridDrawState);var    strColor    :String;    BkColor     :TColor;begin    Try       

     這裡先說說兩個概念：Theme(主題)和 Visual Style 。Theme 最早出現在 Microsoft Plus! for Windows 95 中，是 Windows 中 Wallpaper、Cursors、Fonts、Sounds 、Icons 等的設定值集合。Visual Style 在 Windows XP 中才被引入，Visual Style 規定了 Contorls 的外觀，另外還包括使用這些外觀的一套 API 。使用 Visual Style 必須要

通過指點操作獲得視窗控制代碼趙砥:     我用VB的sendkeys編寫了一個向其他程式類比鍵盤發送字元的工具，因VB編的程式體積太大，    我想用Delphi重寫，使用SendMessage等API函數，但我想找到一個用滑鼠點一下其他進程的    視窗便可獲得該視窗的線程id和視窗控制代碼的方法，請指點一下。（使用findwindow獲得視窗    控制代碼要輸入視窗標題，不好。） 回答:     首先需要說明要在Delphi 實現Sendkeys功能，應該使用Journal

    最近在找工作，於是在齊魯人才網上註冊了，填寫基本資料，然後產生個人簡曆，等著用人單位與我聯絡(呵呵，其實我應該主動與他們聯絡的)。前幾天開啟郵箱收到面試通知，挺興奮的，接下來的幾天老是會情不自禁的去重新整理郵箱，看是否有新的面試通知，覺得這樣挺麻煩的，於是就用Delphi寫了個小的郵件監控程式。    程式實現功能：監視使用者設定的郵箱，看是否有新的郵件，如果有新郵件，就給使用者設定的手機上傳送簡訊，通知使用者收到新郵件，提醒使用者查收,需要使用者手機開通飛信功能。  

How to store an Object into an integer?Sometimes you want to use your beloved, worldclass component, but it has no room for saving data anywhere. But to build a connection to that data you need is maybe to complex. Here is an easy way to deal with

詳細的不多介紹，老羅的書中有記載，在WINDOWS下，模組指的是EXE和DLL等資料載入到記憶體中的影像，模組控制代碼又是比較特殊的，它跟一般的控制代碼不一樣，模組控制代碼指向的就是EXE和DLL等的在記憶體的位置（就是指向它們的資料起始位置）；進程控制代碼只是WINDOWS用來標識某個進程的ID值罷了，在內部，WINDOWS使用一種類似MAP的技術來進行映射的，就是通過這個進程控制代碼來找到指定進程在記憶體的位置。   

How to make a child form listen to broadcasted messagesIn the sender add a procedure such as: procedure TForm1.Button2Click(Sender: TObject);var  Receiver: THandle;  buffer: array[0..1023] of char;  Data: TCopyDataStruct;begin  Receiver :=

   剛學習不太理解GetCommandLine函數的作用，所以網上搜尋了一下，做個筆記，理解不一定準確，還望大家指點。       win32可執行程式分為兩種類型，基於控制台（Consol-based）的和基於視窗（Windows-based）的。基於控制台程式它的入口函數是傳統的main，基於視窗的則是WinMain。這兩個入口函數一大區別是對於命令列參數的處理。WinMain函數原型為：int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE

How can I read native text of current locale? Sometimes in application we want to show a text with description of current used locale.For example, "english", "russian", "ukrainian", "chinese" etcFor this task you can use VerLanguageName function

 ControlState 屬性 對應對象：TControl 聲明：TControlState = set of (csLButtonDown, csClicked, csPalette, csReadingState, csAlignmentNeeded, csFocusing, csCreating); property ControlState: TControlState; 功能：ControlState屬性用來查詢控制項運行時的狀態。

Use GetSystemDefaultLangID function. It returns identifier of system language. And after that, use VerlanguageName procedure. It translates this identifier to PChar-string. procedure TForm1.Button1Click(Sender: TObject);var Ident: Integer; MyLang: