Delphi 下用Windows API 创建窗体
//Delphi下调用WindowsAPI创建窗体.////模板-------BYHottey2004-4-13-0:18//
// 作者网站:http://asp.itd*r**p.com/hottey //
PRogramdelphi;
uses
windows,
messages;
const
hellostr='HelloWorld!';
{$Rdelphi.res}
//窗口消息处理函数.
functionMyWinProc(hWnd:THandle;uMsg:UINT;wParam,lParam:Cardinal):Cardinal;exp
ort;stdcall;
var
hdca,hdcb:THandle;//设备描述表句柄.
rect:TRect;//矩形结构.
font:HFont;
ps:TPaintStruct;//绘图结构.
begin
result:=0;
caseuMsgof
WM_PAINT:
begin
hdca:=BeginPaint(hWnd,ps);
SetBkMode(hdca,Transparent);
SetBkColor(hdca,GetBkColor(hdca));
GetClientRect(hWnd,rect);//获取窗口客户区的尺寸.
DrawText(hdca,Pchar(hellostr),-1,rect,DT_SINGLELINEorDT_CENTERorDT
_VCENTER);
//TextOut(hdc,100,40,hellostr,Length(hellostr));
EndPaint(hWnd,ps);
end;
WM_CREATE:
begin
hdcb:=GetDC(hWnd);
font:=CreateFont(45,0,0,0,FW_normal,0,0,0,ansi_charset,out
_default_precis,clip_default_precis,
default_quality,34,PChar('Arial'));
SelectObject(hdcb,font);
ReleaseDC(hWnd,hdcb);
end;
WM_DESTROY:
PostQuitMessage(0)
else
//使用缺省的窗口消息处理函数.
result:=DefWindowProc(hWnd,uMsg,wParam,lParam);
end;
end;
//主程序开始.
var
Msg:TMsg;//消息结构.
hWnd,hInst:THandle;//Windows窗口句柄.
WinClass:TWndClassEx;//Windows窗口类结构.
begin
hInst:=GetModuleHandle(nil);//gettheapplicationinstance
WinClass.cbSize:=SizeOf(TWndClassEx);
WinClass.lpszClassName:='MyWindow';//类名.
WinClass.style:=CS_HREDRAWorCS_VREDRAWorCS_OWNDC;
WinClass.hInstance:=hInst;//程序的实例句柄.
//设置窗口消息处理函数.
WinClass.lpfnWndProc:=@MyWinProc;//窗口过程.
WinClass.cbClsExtra:=0;//以下两个域用于在类结构和Window
s内部保存的窗口结构
WinClass.cbWndExtra:=0;//中预留一些额外空间.
WinClass.hIcon:=LoadIcon(hInstance,MakeIntResource('MAINICON'));
WinClass.hIconsm:=LoadIcon(hInstance,MakeIntResource('MAINICON'));
WinClass.hCursor:=LoadCursor(0,IDC_Arrow);
//GetStockObject获取一个图形对象,在这里是获取绘制窗口背景的刷子,返回一个白色刷
子的句柄.
WinClass.hbrBackground:=HBRUSH(GetStockObject(white_Brush));
WinClass.lpszMenuName:=nil;//指定窗口类菜单.
//向Windows注册窗口类.
ifRegisterClassEx(WinClass)=0then
begin
MessageBox(0,'RegisterationError!','SDK/API',MB_OK);
Exit;
end;
//建立窗口对象.
hWnd:=CreateWindowEx(
WS_EX_OVERLAPPEDWINDOW,//扩展的窗口风格.
WinClass.lpszClassName,//类名.
'HelloWindow',//窗口标题.
WS_OVERLAPPEDWINDOW,//窗口风格.
CW_USEDEFAULT,//窗口左上角相对于屏幕
左上角的初始位置x.
0,//....右y.
CW_USEDEFAULT,//窗口宽度x.
0,//窗口高度y.
0,//父窗口句柄.
0,//窗口菜单句柄.
hInst,//程序实例句柄.
nil);//创建参数指针.
ifhWnd< >0then
begin
ShowWindow(hWnd,SW_SHOWNORMAL);//显示窗口.
UpdateWindow(hWnd);//指示窗口刷新自己.
SetWindowPos(hWnd,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE+SWP_NOSIZE);
end
else
MessageBox(0,'WindownotCreated!','SDK/API',MB_OK);
//主消息循环程序.
whileGetMessage(Msg,0,0,0)do
begin
TranslateMessage(Msg);//转换某些键盘消息.
DispatchMessage(Msg);//将消息发送给窗口过程.
end;
end.
>其实Windows编程是每个学写程序的人都要掌握的,学Delphi时也最好能先学习Windos编
程(最少要知道).以上代码虽说不如在Delphi中直接来个New- >Form来的快,但它能告诉你本
质的东西.能让你更好的了解消息循环以及其他.而这些正是让New出来的窗体给掩盖的部分
.
>注:以上代码是我从Windows程序设计上通过C++语法直译过来的(),测试后没有问题.若我
的注解有什么错误的地方,请各位指正!^_^
hottey于2004-5-19作者网站:http://asp.itd*r**p.com/hottey (附例程)