1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
uses
Vcl.ComCtrls, CommCtrl;
procedure TForm3.FormCreate(Sender: TObject);
var
WC:TWndClass;
W : THandle;
PC: THandle;
Tab: TTCITem;
begin
// fenêtre non-vcl
FillChar(WC, SizeOf(WC),0);
WC.lpfnWndProc := @DefWindowProc;
WC.hInstance := hInstance;
WC.lpszClassName := 'TEST';
WC.hbrBackground := CreateSolidBrush($0000ff);
WinAPI.Windows.RegisterClass(WC);
W := CreateWindowEx(
0,
'TEST',
'hello',
WS_OVERLAPPEDWINDOW or WS_VISIBLE,
10,10,400,250,
0,0,hinstance,nil);
// Init des PageControl
InitCommonControl(ICC_TAB_CLASSES);
// PageControl sur cette fenêtre
PC := CreateWindowEx(
0,
WC_TABCONTROL,
nil,
WS_CHILD or WS_CLIPCHILDREN or WS_TABSTOP or WS_VISIBLE or TCS_TABS,
10, 10, 200, 100,
w,
0, hInstance,
nil
);
FillChar(Tab, SizeOf(Tab), 0);
Tab.mask := TCIF_TEXT;
Tab.pszText := 'Hello';
SendMessage(PC, TCM_INSERTITEM, 0, NativeUInt(@Tab));
SendMessage(PC, TCM_INSERTITEM, 1, NativeUInt(@Tab));
SendMessage(PC, WM_SETFONT, Font.Handle, 0);
// PageControl sur la Fiche
PC := CreateWindowEx(
0,
WC_TABCONTROL,
nil,
WS_CHILD or WS_CLIPCHILDREN or WS_TABSTOP or WS_VISIBLE or TCS_TABS,
10, 10, 200, 100,
Handle,
0, hInstance,
nil
);
FillChar(Tab, SizeOf(Tab), 0);
Tab.mask := TCIF_TEXT;
Tab.pszText := 'Hello';
SendMessage(PC, TCM_INSERTITEM, 0, NativeUInt(@Tab));
SendMessage(PC, TCM_INSERTITEM, 1, NativeUInt(@Tab));
SendMessage(PC, WM_SETFONT, Font.Handle, 0);
end; |
