最近在用delphi做乙個「小玩意」，要做乙個測試程式來做記錄分析，記錄程式對大部分要記錄的東西沒有什麼問題，比如對乙個滑鼠單擊事件響應就記錄一次。但是有乙個事件是發生在「小玩意」內部的，我也要進行記錄。記得以前用過postmessage在窗體間傳遞訊息的，就用他！
要做的事情就是2件：（1）在主程式「小玩意」中加入發射訊息**；（2）在測試程式中加入接收訊息**。
（1）在「小玩意」中「我的事件」函式中加入：
//以下用於除錯的時候 記錄「我的事件」的次數
if hand1=0 then
hand1:=windows.findwindow(nil,pchar('mytest')); //根據窗體名稱找到測試程式窗體的控制代碼
postmessage(hand1,1000,0,1); //向測試程式窗體傳送乙個訊息，訊息號為1000
（2）在測試程式中加入接收**
private
public
procedure onreceive(var msg: tmessage); message 1000; //定義訊息響應，訊息號與發射端一致
end;
varnum:integer; // 「我的事件」計數
implementation
//接收訊息
procedure tform1.onreceive(var msg: tmessage);
begin
num:=num+1； //接收乙個訊息，計數加1
label .caption :=inttostr(num); //顯示計數
end;
我只需要記錄事件次數，所以很簡單的響應即可，postmessage的後面2個引數還可以用來傳遞更多訊息包括字串以及「很大」的東西，記得一本書上說他的實質是兩個程序共享乙個訊息交換區。
Vue指令 複習用
1.v text 把內容已文字形式展現,偏向於文字的 2.v html v text是把所有的都以文字的形式展現,而v html能夠解析裡面的標籤 3.v cloak 這個指令是用來保持在元素上直到關聯例項結束時進行編譯 通常我們的資料都是以 的形式渲染出來的,那麼這樣的渲染與v html和v te...
CSS 常用標籤（供複習用）
一.css 字型 font size 設定文字大小font family 設定文字字型font style 設定文字字型的樣式 3.1.font style normal 預設值，正常的字型 3.2.font style italic 斜體，對於沒有斜體變數的特殊字型，將應用 oblique。3.3...
錯排問題（個人總結 複習用）
錯排問題是組合數學發展史上的乙個重要問題，錯排數也是一項重要的數。令 的乙個錯排，如果每個元素都不在其對應下標的位置上，即 那麼這種排列稱為錯位排列，或錯排 重排 derangement 我們從分析1 2 3 4的錯排開始 1 2 3 4的錯排有 4 3 2 1，4 1 2 3，4 3 1 2，3 ...