delphi 在线程中运行窗体


本文整理自网络,侵删。

 -------------------------

var
wClass: TWndClass;
Msg: TMsg;

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.

相关阅读 >>

Delphi webbrowser获取iframe页面内容

Delphi将dbgrid数据导出到excel表中

Delphi程序与chm帮助关联的简单实现

Delphi写的播放器核心代码,播放mp3无压力

Delphi下遍历文件夹下所有文件的递归算法

Delphi win32_diskdrive 硬盘 参数说明

Delphi 获得用android应用程序触摸到的位置(坐标)的方法

Delphi windows 编程[17] - 更换菜单: loadmenu、destroymenu、setmenu

Delphi写游戏外挂

Delphi获取程序自身路径的函数

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...