packages/ptc/src/wince/base/wincewindowd.inc


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

Type
  TWinCEWndProc = Function(Ahwnd : HWND; AuMsg : UINT; AwParam : WPARAM; AlParam : LPARAM) : LRESULT Of Object;

  TWinCEWindow = Class(TObject)
  Private
    FWindow : HWND;
    FClassName : WideString;
    FClassHInstance : HINST;
  Public
    Constructor Create(Const AClassName, ATitle : WideString;
                       AExStyle, AStyle : DWord;
                       AShow, AX, AY, AWidth, AHeight : Integer;
                       AWndProc : TWinCEWndProc;
                       AData : Pointer = Nil);
    Destructor Destroy; Override;

    Procedure Close;
    Procedure Update;

    Property WindowHandle : HWND Read FWindow;
  End;