Discussion :

[Paul TOTH]

Bonjour,

qui peut m'expliquer la différence de rendu entre un TPageControl (WC_TABCONTROL) sur une fiche et dans une fenêtre crée à la main ?

la zone à droite des onglets est grisée dans le second cas. Vu qu'ils sont créés de la même façon dans la même application, j'imagine que c'est lié à TForm.

Sous Delphi XE2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

Merci