其他

   單擊PageControl中的右上方的左右箭頭時，PageControl的執行結果讓人很不滿意，我想讓它執行我的自訂過程！   下面是ANiDelphi大俠寫的組件：unit Unit1;interfaceuses  Windows, Messages, Classes, ComCtrls;type  TLRClickingEvent = procedure(Sender: TObject; var AllowClick: Boolean) of Object; 

 　　每一個有控制代碼的視窗控制項（繼承自TwinControl），在它被建立時，都要在Windwos中註冊一個視窗過程(MainWndProc)。這個視窗過程並不是由應用程式自己調用，而是供windows調用的！！！ 所以我們在這個過程中寫的訊息處理過程代碼才能被自動調用、運行。　　典型的視窗過程是會包含一個大的case分支，以處理不同的訊息！比如像這樣：　　Case Message.Msg Of　　   WM_LBUTTONDOWN :　　     Dosomething1...　　  

TIdTCPServer控制項中文指南 .2009-01-08 13:53 236人閱讀 評論(0) 收藏

[轉] Delphi7 記憶體管理及 FastMM 研究 (對於EXE和DLL記憶體共用很有用) 故國之晚秋 發表於2010-12-06 19:34 瀏覽(32)評論(0) 分類：我的日記     舉報 引自：http://hi.baidu.com/yehe2316/blog/item/d66d3b03b4440a064afb51f0.htmlDelphi7 記憶體管理及 FastMM 研究[轉]作者：劉國輝一、引言      FastMM

      DBGrid一直都不支援滑鼠中鍵滾動,有時候想要去除水平捲軸,讓我們自己動手製作一個自訂的DbGrid組件吧！      代碼如下：unit AddMsgDBGrid;interfaceuses  windows, SysUtils, Messages, Classes, Controls, Grids, DBGrids;type  TAddMsgDBGrid = class(TDBGrid)  protected //添加新的'滑鼠滾輪訊息'    procedure

關於IdTcpClient的使用其實Indy的block模式挺好玩的.但是它沒有類似於IdTcpServer的OnExcute事件.為此,我們必須自己寫一個從TThread繼承的類,用於檢查Statck中的Tcp有沒有收到資料(另一種方法相似,只是在另一個線程中直接讀取資料). 這裡是第一種方法的代碼:Code: type  TDataAvailableEvent = procedure(Sender: TObject; Connection: TIdTCPConnection) of

用的APRO的串口控制項51串口在模式3下，PC:發送地址的時候aprocom.Parity:=pMark;發送資料的時候aprocom.Parity:=pSpace;51:發送給PC的時候不管TB8是什麼值都可以接收到的51的程式都是用small rtos寫的：用的89s52有T2     //系統節拍中斷使用定時器2，中斷頻率為250Hz    RCAP2H = (65536 - (11059200 / 12) / 250) / 256;    RCAP2L = (65536 - (1105

配合使用可是實現1、特定的字元表示特定的含義，比方說RZ＃13表示Zmoden協議2、有開始和結束符的。3、有開始符的且有固定長度4、有結束符的開始符在startcond和startstring兩個確定結束符由endcond和endstring兩個確定 如果是第3中情況endcond中ecpacketsize:=true;packetsize:=__;填上自己的資料包的長度就OK了  最近發現程式中的一個小問題就是在接受的時候我用的是move(^data,數組,長度)此事去處的指令出現半截指令的

東西早一個星期都寫好了令人鬱悶的是調了一個星期老是有問題不論ch451write是給哪個寄存器寫資料老是DIG7的那段在顯示今天早上把自己聲明的uint16 digs[8]的數組不用直接用CH451.H中的宏定義   直接就好了 心中上萬隻草泥馬啊  uint16和宏定義哪不一樣啊   電路差點都重做了      上程式（http://download.csdn.net/detail/jinshaopu/4599196）   用的的ch451手冊上的兩片451的並聯的電路整個系統是在small

 這上是一測試的效果程式：http://download.csdn.net/source/3319599  unit ChangeImage; interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs,jpeg, StdCtrls, ExtCtrls; procedure BaiYeChuang(Targer:Timage;Source:Tbitmap);/

1.引用Dll皮膚檔案Typeprocedure SetSkin(skinnam:string); procedure TFrmMain.SetSkin(skinnam:string);  var  Hinst:THANDLE;  RStream:TResourceStream;begin     Hinst:=Loadlibrary('ALLSK.dll');     If Hinst=0 Then     Exit     else     begin      

最近幾天完成了BiasDAC的程式編寫。調試的過程還算比較順利，除了幾個有點bt的小問題。其中一個困擾了我兩三天的時間，今天上午終於將其解決。由於BiasDAC是用RS232 Serial

    看著Edit的游標，是不是覺得了無生趣，想不想換個形狀來玩玩，其實很簡單，且聽我道來。   

自己喜歡看小說，但是上班的時候不能看不是。原來有個朗讀軟體但是年前突然不能用了，不知道是不是我的電腦問題。我用windows speech sdk的spvoice做了個測試程度還是有聲音的。所以決定自己做個我用的windows speech　sdk 5.1安裝之後用progect－improt type

把陳大俠的那本官方資料看了兩遍，有點小的理解了決定自己寫個程式  由於手頭上有個東西是51讀取鍵盤值之後發送給PC機並根據PC的相關指定做出動作  就以這個為例子  首先用prutues建個模擬用的檔案如在兩片245的後面接16個按鈕  這個模擬電路就基本上完成了  下面分析一下我要實現的功能1.串口接收和發送命令2.scan功能在串口收到scan指令的時候 任務scan運行並取出索引值返回3.runing指示燈在程式正常的情況下1s閃爍一下

Keil C51 xdata基址偏址定址實驗[轉](2009-11-18

2007/6/4指令碼本想在這裡寫一個感悟之類的東東，但最近理性思維轉型到感性思維還沒好，想寫一些感性的文字，每每下筆，卻不知從何說起。不如就隨著心意寫一些想些的東東吧。最近在研究規則庫的東東，發現為了讓規則庫脫離程式設計期，能夠在運行期更好的合作，只有運用指令碼。但目前主流的指令碼機制跟商務邏輯無法掛鈎，而且還跟win32系統緊密綁定，這是一個很要命的弱點，那些所謂的VBScripte，JS都是緊密的綁定在Application Script Host上。一直在尋找一種自然的、輕鬆的綁定機制，

這個問題不光是在5中有  我用delphi7的時候也出現了同樣的問題，這次一定要做個記錄，浪費了一天的時間找到的首先，我們來看看VB寫的ActiveX控制項在Delphi

昨天在http://www.cnblogs.com/xalion/articles/2321046.html看到了用delphi+Apache 開發動態網站(二)自己從來沒有搞過這個東西  就想自己試試   delphi是delphi7 apache是2.2的幾經周折總算在http://www.zhixing123.cn/jiaocheng/21416.html地方看到的關鍵的東西 就是分進行下面的修改 按步驟來怎麼都不成功

type  TServerHandleThread = class(TThread) private   Mstr:string;   procedure HandleInput; protected   procedure Execute; override; public   constructor Create(AStyle:Boolean;Str:String);overload;   destructor Destroy; override; end; implementation {