在单独线程中运行窗体

最新推荐文章于 2023-06-10 16:54:34 发布

jzj_jony

最新推荐文章于 2023-06-10 16:54:34 发布

阅读量774

点赞数

分类专栏：本人作品 delphi 心得文章标签： integer function

本文链接：https://blog.csdn.net/jzj_jony/article/details/594034

版权

delphi 心得同时被 2 个专栏收录

21 篇文章 0 订阅

订阅专栏

本人作品

8 篇文章 0 订阅

订阅专栏

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.