06 2010 档案
摘要：例如以下代码：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs;type TForm1 = class(TForm) procedure one(); function two(x,y:integer):integer; private...
阅读全文
摘要：切换输入语言、切换键盘布局、CH中文（中国）、EN英语（美国）的区别“切换输入语言”是指在安装的不同语言间切换，如中文（中国）、英语（美国）等。“切换键盘布局”是指切换不同的中文输入法，即中文下面的不同汉字输 入法。一般，ctrl+空格是在中文模式和英文模式之间切换，比如，当前是五笔，按一下换成英文，再按一下又是五笔，第三次按就回到英文。ctrl+s...
阅读全文
摘要：/** 文件功能： linux 下套接字简化操作函数* 文件名称： linux_socket.h* 建立时间： 2007 年 07 月 19 号* 创建作者： wlzqi* 使用语言：C 或 C++ 语言* 使用环境： Linux + Windows* 函数要求： * + 函数相对比较底层* + 只使用系统ＡＰＩ和Ｃ库，不能使用任何第三方库* + 不可以用全局变量* + 使用比较频繁* + 具有模...
阅读全文
摘要：//带默认值的参数只能在后面function MyFun(a:Integer; b:Integer=1; c:Integer=2): Integer;begin Result := a + b + c;end;procedure TForm1.Button1Click(Sender: TObject);var x: Integer;begin x := MyFun(1); ShowMessage(...
阅读全文
摘要：program delphi; useswindows,messages;consthellostr='Hello World!';{$R delphi.res}//窗口消息处理函数.function MyWinProc(hWnd:THandle;uMsg:UINT;wParam,lParam:Cardinal):Cardinal;stdcall;var hdca,hdcb:THandle; //...
阅读全文
摘要：假设你的消息这样定义： Const WM_YOURMSG=WM_USER+100; 你的过程定义可以这样： procedure YourProc(var MSG:TMessage);message WM_YOURMSG; 这样，当你的窗口收到该消息时，将调用这个过程。 例如： unit Unit1; interface uses Windows, Messages, SysUtils,...
阅读全文
