CLIENT8
原始翎风CLIENT8位 (7) 对于@(pcm^)的理解
procedure TfrmMain.ClientGetMyMagics(body: string);var i: integer; data: string; pcm: PTClientMagic;begin for i := 0 to g_MagicList.Count - 1 do Dispo ......
原始翎风CLIENT8位 (4) frmMain 下的 OnIdle 事件
原始翎风CLIENT8位frmMain 下的 OnIdle 事件 在frmMain的Create 中Application.OnIdle := AppOnIdle; //程序空闲事件 的方法 procedure AppOnIdle (Sender: TObject; var Done: Boolea ......