HanDs
NO.2

[Delphi文章] 在单独线程中运行窗体 





学习中请遵循国家相关法律法规,黑客不作恶。没有网络安全就没有国家安全

本站需要登陆后才能查看

function WindowProc(hWnd,Msg,wParam,lParam:Integer):Integer; stdcall;
begin
 if Msg = WM_DESTROY then PostQuitMessage(0)
 else if Msg = WM_lBUTTONDOWN then DoSomething;
 Result := DefWindowProc(hWnd,Msg,wParam,lParam);
end;

function MyWindow(Ptr: Pointer):Longint;stdcall;
begin
wClass.lpszClassName:= 'CN';
wClass.lpfnWndProc :=  @WindowProc;
wClass.hInstance := hInstance;
wClass.hbrBackground:= 1;

RegisterClassA(wClass);

CreateWindow(wClass.lpszClassName,'My Window',
              WS_OVERLAPPEDWINDOW or WS_VISIBLE,
              10,10,530,100,0,0,hInstance,nil);
while GetMessage(Msg,0,0,0) do
   DispatchMessage(Msg);
end;

begin
CreateThread(nil, 0, @MyWindow, nil, 0, thrID);
end.


本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/jzj_jony/archive/2006/02/07/594034.aspx


学习中请遵守法律法规,本网站内容均来自于互联网,本网站不负担法律责任
单独 线程 运行 窗体
#1楼
发帖时间:2016-7-9   |   查看数:0   |   回复数:0
游客组