正文

nativewindow_01

CodeSkill  CodeSkill  2022-08-14  140

关键词：

1、

　　“{$O-}”关闭优化

　　“{$O-}”打开优化

2、

unit NativeWindow;

interface

uses
  Windows, Messages, SysUtils;

procedure CreateWindow;

implementation

function ProcWindow(_hWnd :HWND;
                    _uMsg :UINT;
                    _wParam :WPARAM;
                    _lParam :LPARAM):longint;stdcall;
var
  hDc1 :HDC;
  ps :PAINTSTRUCT;
begin
  if (_uMsg = WM_LBUTTONUP) then
  begin
    MessageBox(0, ‘Up‘, ‘1‘, 0);
  end
  else if (_uMsg = WM_PAINT) then
    begin
    hDc1 := BeginPaint(_hWnd, ps);
    TextOut(hDc1, 0, 0, ‘ASDFG zxcvb‘, strlen(‘ASDFG zxcvb‘));
    EndPaint(_hWnd, ps);
    Result := 0;
    Exit;
    end
  else if (_uMsg = WM_DESTROY) then
  begin
    DestroyWindow(_hwnd);
    PostQuitMessage(0);
  
    Result := 0;
    Exit;
  end;
  Result := DefWindowProc(_hWnd, _uMsg, _wParam, _lParam);
end;

{$O-}
procedure CreateWindow;
var wndcls :WNDCLASS;
    hInstance :THandle;
    hWnd1 :HWND;
    iErr :integer;
begin
  hInstance := Windows.GetModuleHandle(nil);

  ZeroMemory(@wndcls, sizeof(wndcls));
    wndcls.cbClsExtra    := 0;
    wndcls.cbWndExtra    := 0;
    wndcls.hbrBackground := HBRUSH(GetStockObject(WHITE_BRUSH));    // 背景画刷
    wndcls.hCursor        := LoadCursor(0, IDC_CROSS);
    wndcls.hIcon        := LoadIcon(0, IDI_ERROR);    // 窗口图标
    wndcls.hInstance    := hInstance;
    wndcls.lpfnWndProc    := @ProcWindow;
    wndcls.lpszClassName:= ‘zc20110929‘;
    wndcls.lpszMenuName := nil;
    wndcls.style        := CS_HREDRAW or CS_VREDRAW;
  RegisterClass(wndcls);

  hWnd1 := CreateWindowEx(
        WS_EX_CLIENTEDGE,
        wndcls.lpszClassName,
        ‘ZC Window‘,
        WS_OVERLAPPEDWINDOW,
        100, 100,
        400, 300,
        0,
        0, //g_hMenu,
        hInstance,
        0);
  if (hWnd1 = 0) then
    iErr := GetLastError;

//    ShowWindow(hWnd1, SW_SHOWNORMAL);
    UpdateWindow(hWnd1);
end;
{$O+}

end.

3、

AIR - 设置 NativeWindow 的大小以包括系统镶边

】AIR-设置NativeWindow的大小以包括系统镶边【英文标题】：AIR-setsizeofNativeWindowtoincludesystemchrome【发布时间】：2012-02-1407:44:09【问题描述】：如何找出系统chrome的大小，以便我可以指定窗口大小以达到我想要的舞台大小？如果我的... 查看详情

react-nativewindows环境搭建记录

1.安装jdk，SDKJdk下载地址：http://www.oracle.com/technetwork/cn/java/javase/downloads/jdk8-downloads-2133151-zhs.htmlSdk下载地址：http://www.android-studio.org/jdk要1.8或以上。然后配置对应的环境变量。需要注意的一点是：jdk和jre不能安装到同一个目录下... 查看详情

利用nativewindow监视wndproc消息（好像是一个字典，没搞明白）

http://blog.csdn.net/lovefootball/article/details/1784882在写Windows应用程序的时候，经常会碰到需要修改例如MessageBox或者FileDialog的外观此时我们需要监视WndProc的消息当然也可以直接调用API实现，具体方法请参考http://www.codeproject.com/csharp/GetS... 查看详情

react-nativewindows系统红屏报assets缺失500错误(代码片段)

指定版本，react-native是facebook用mac系统开发的，windows系统兼容较差，新版本更是问题很多，相对老版本更加稳定react-nativeinitdemo--version0.55.4assets缺失：android/app/src/main下新建assets文件夹项目根目录执行：react-nativebundle--platformandroid... 查看详情

Flex：中心窗口？

...问题描述】：我试图在flex中将启动的窗口居中，有一个NativeWindow.x和NativeWindow.y但flex使用没有这些属性的Window类，所以有人知道如何将窗口居中吗？谢谢！！【问题讨论】：【参考方案1】：我想通了：window.nativeWindow.x=(Screen.mainS... 查看详情

01背包

<spanstyle="color:#3333ff;">/*__________________________________________________________________________________________________*copyright:GrantYuan**algorithm:01背包**time:2014.7.18**__ 查看详情

java_01_01_js

1、js的String对象 *属性：length，字符串的长度 *方法 **与html相关的方法 ***bold()：加粗字符串 ***fontcolor() 查看详情

BigQuery：按表名分组

...分组【英文标题】：BigQuery:Groupbytablename【发布时间】：2014-02-1914:40:14【问题描述】：我的数据集(ds1)如下所示：2014_01_01_tableA2014_01_01_tableB2014_01_02_tableA2014_01_02_tableB查询：SELECTdate,COUNT(1)AScounterFROM[ds1.2014_01_01_tableA] 查看详情

项目管理文件夹模板

...体系建立的项目管理文件夹模板├─00_项目管理│├─00_01_项目计划│├─00_02_工作周报│├─00_03_会议纪要│├─00_04_重要邮件│└─00_05_其它项目管理文件├─01_系统需求│├─01_01_客户调研│└─01_02_需求分析├─02_系统... 查看详情

01类内置方法

#写一个单例类#__名子__#类中的特殊方法、内置方法#双下方法#魔法方法#__call__flask#__new__特别重要写一个单例类#__len__#__str__/__repr____call__#__call__flaskclassA:def__call__(self,*args,**kwargs):print("执行__call__方法")##a=A()#a()#对象加()执行call 查看详情

01_正则表达式_01_匹配

【正则表达式简述】含义：符合一定规则的表达式作用：专门用于操作字符串特点：用一些特殊的符号来表示一些代码的操作，这样可以简化书写。学习正则表达式就是学习一些特殊符号的使用。有点：极大简化了对字符串的复... 查看详情

有道词典_每日一句_2020/01

01月Let‘sembrace2020forrealizingourdreamsandlivingabetteryear.更好2020，让梦想落地，让更好发生。——202-.01.01Sometimesyouhavetotrustyourgut.有时要相信自己的直觉。——2020.01.02 其他：有道词查看详情

使用带有 2 个组件的 Python 可视化转换后的数据

...VisualizingtransformeddatawithPythonwith2components【发布时间】：2016-07-1500:41:29【问题描述】：这是我试图通过首先运行PCA来分析的示例文件：A01_01A01_02A01_03A01_04A01_05A01_06A01_07A01_08A01_09A01_10A01_11A01_12A01_13A01_ 查看详情

javascriptif_05_01_callback示例(代码片段)

查看详情

svn_学习_01_tortoisesvn使用教程

二、参考资料1.TortoiseSVN新人使用指南2. 查看详情

调试.方便调试的技巧_01

1、例子代码：（VC6.0sp4）#include<stdio.h>#defineMAX(a,b)((a)>(b)?(a):(b))#defineM01()\__try{#defineM02()}__finally{#defineM03()}voidmain(){M01()inti=MAX(3,5);printf("AAA,i:%d ",i);return;printf(" 查看详情

01_3_创建一个servlet

01_3_创建一个Servlet1.创建一个Servletimport java.io.IOException;import java.io.PrintWriter; import javax.servlet.ServletException;import javax.servlet.http.HttpServlet;import jav 查看详情

01_2_namespace命名空间

01_2_Namespace命名空间1. Namespace_命名空间namespace决定了action的访问路径，默认为””，可以接收所有路径的actionnamespace可以写为/，或者/xxx,或者/xxx/yyy，对应的action访问路径为/index.action，/xxx/index.action，或者/xxx/yyy/index.action。na... 查看详情