Forum du club des développeurs et IT Pro - Composants VCL https://www.developpez.net/forums/ Utilisation des différents composants VCL (Visual Component Library) fr Sat, 24 Oct 2026 07:46:56 GMT vBulletin 15 https://forum.developpez.be/images/misc/rss.png Forum du club des développeurs et IT Pro - Composants VCL https://www.developpez.net/forums/ <![CDATA[Comment activer la propriété KeyPreview d'un TForm dont je n'ai que le handle ?]]> https://www.developpez.net/forums/showthread.php?t=2185873&goto=newpost Mon, 28 Sep 2026 00:09:58 GMT Bonjour, Je suis sous W11... Bonjour,

Je suis sous W11 avec Delphi 6 Personal Edition.

J'ai créé un contrôle dérive de TScrollBox dans lequel j'ai placé un TImage. Le tout est créé dynamiquement, par programme.
Ca marche très bien.

Mais maintenant, je veux récupérer les touches directionnelles (avec/sans SHIFT) frappées sur ce TImage (qui remplit tout l'espace de la ScrollBox.
Je récupère le clic sans problème, mais j'ai compris qu'il n'y a pas de OnKeyDown event pour un TImage car ce dernier ne descend pas de TWinControl.

Alors, j'ai essayé d'intercepter OnKeyDown sur la ScrollBox. Rien n'est intercepté pour les touches du clavier, seul le clic gauche déclenche cet évènement.

Alors, j'ai vu qu'il y a une propriété KeyPreview pour la Form qui contient ma ScrollBox.
Or, pour accéder la Form, je ne connais que son handle, je n'ai pas accès à l'objet proprement-dit.

Question: comment activer KeyPreview sur une TForm par son handle ?

Question subsidiaire:
serait-ce possible d'intercepter un message Windows indiquant la frappe d'une des touches directionnelles, éventuellement avec les attributs TShiftState ?

L'ensemble du code (création et gestion de la TScrollBox et du TImage) est placé dans une DLL, ainsi que devra l'être le code d'interception des touches. ]]> Composants VCL KlausGunther https://www.developpez.net/forums/d2185873/environnements-developpement/delphi/composants-vcl/activer-propriete-keypreview-d-tform-dont-n-ai-handle/ <![CDATA[Comment récupérer l'image standard d'un TButton ? (ou autre composant)]]> https://www.developpez.net/forums/showthread.php?t=2185582&goto=newpost Thu, 10 Sep 2026 10:12:14 GMT Bonjour, Je suis sous W11... Bonjour,
Je suis sous W11 avec Delphi 6 Personal Edition.

Je suis en train de développer un composant visuel entièrement codé par moi, sans utilisation d'autres composant qu'un dérivé de TScrollBox avec un TImage à l'intérieur.
Tout est alors dessiné sur ce TImage dans un évènement Ondraw.

Je suis déjà allé assez loin en implémentant un mini-Excel avec entre autres des formules de calcul pour des cellules, en gérant les dépendances et recalcul automatique si une cellule utilisée dans une formule quelconque est modifiée. Tout cela fonctionne bien, avec plein d'options graphiques, formats d'affichage etc.

Maintenant, je souhaite afficher un TButton dans mon graphisme, mais SANS utiliser un TButton réel ! Je voudrais afficher l'image standard d'un TButton et réagir programmatiquement lors d'un click sur cette image. Je sais qu'il y a un moyen de récupérer des bitmaps représentant les contrôles visuels, dont le TButton, et de les afficher comme simple graphisme, sans création de boutons, mais je n'arrive plus à mettre la main sur ça. De mémoire, ça doit être une API, non ?

Je serais très heureux si vous pouviez me mettre sur la voie.
Merci d'avance ! ]]> Composants VCL KlausGunther https://www.developpez.net/forums/d2185582/environnements-developpement/delphi/composants-vcl/recuperer-l-image-standard-d-tbutton-composant/ Delphi 10.2 et DWS https://www.developpez.net/forums/showthread.php?t=2185520&goto=newpost Mon, 07 Sep 2026 21:01:18 GMT Quelle version de... Quelle version de https://www.delphitools.info/dwscript/ peut encore s’installer avec mon Delphi 10.2.3 ? ]]> Composants VCL der§en https://www.developpez.net/forums/d2185520/environnements-developpement/delphi/composants-vcl/delphi-10-2-dws/ probleme avec compo JVCL https://www.developpez.net/forums/showthread.php?t=2184978&goto=newpost Tue, 04 Aug 2026 07:08:51 GMT Bonjour,

Lorsque l'on applique un style sur une fenetre, il faut ensuite utiliser le parametre StyleElements = [seBorder]
si on veut modififer le visuel de certain composant (couleur sur un Tedit par exemple)

C'est bien expliqué ici:


Par contre ceci ne fonctionne pas avec les composants de la JVCL ?
Est ce qu' il y a une astuce ?

je suis sur Delphi 12.3 + JVCL3.50


Cordialement ]]> Composants VCL looping https://www.developpez.net/forums/d2184978/environnements-developpement/delphi/composants-vcl/probleme-compo-jvcl/ Problème pour installer GLScene https://www.developpez.net/forums/showthread.php?t=2182957&goto=newpost Tue, 31 Mar 2026 15:00:43 GMT Bonjour.
J'ai réinstaller Windows XP et Delphi 6 (pas le choix).

Pour finir et utiliser un programme de digitalisation de films Super 8, je doit réinstaller GLSCene --> GLAVIRecorder.
J'ai tous les sources, à priori pas de problème. Mais ça plante au moment de l'installation/Compilation des composants avec le message suivant :

Erreur : [Erreur fatale] GLScene.pas(1): Le programme ou l'unité 'GLScene.pas' s'utilise récursivement lui-même

Après recherche j'ai ouvert le fichier Glscene.inc

Je suppose que cela s'applique à des options de compilation selon l'EDI utilisé.


Qu'elle est celle qui s'applique à DELPHI 6 ?


Si quelqu'un peut m'aider merci.

Code:
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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
 
based on Delphi Free Stuff Include File
//                  by Brad Stowers: bstowers@pobox.com
//                  Delphi Free Stuff: http://www.delphifreestuff.com/
//
// 08/03/06 - ur - added Delphi 2006 detection
// 08/07/04 - LR - BCB5 and BCB6 detection
// 30/08/02 - EG - Delphi 7 detection
// 24/01/02 - EG - Linux/Kylix changes (Puthoon)
// 28/12/01 - EG - Added GLS_Graphics32_SUPPORT
// 27/07/01 - EG - Renamed and made GLScene-specific
// 26/06/01 - EG - Added Delphi6 stuff
//
 
{$DEFINE GLSCENE}
 
//
// Additionnal support & dependencies
//
 
// Activate support for Alex Denissov's Graphics32 library (http://www.g32.org)
{.$DEFINE GLS_Graphics32_SUPPORT}
 
// De-Activate assembly routine
{.$DEFINE GEOMETRY_NO_ASM}
 
//
// Platform Detection
//
 
{$IFDEF WIN32}
  {$DEFINE GLS_WIN32}
  {$DEFINE MSWINDOWS}
{$ELSE}
  {$IFNDEF LINUX}
    {$DEFINE GLS_WIN16}
    {$DEFINE MSWINDOWS}
  {$ENDIF LINUX}
{$ENDIF}
 
{$IFDEF MSWINDOWS}
  {$DEFINE GLS_VCL}
{$ELSE}
  {$DEFINE GLS_CLX}
{$ENDIF}
 
{$IFDEF LINUX}
  {$DEFINE GEOMETRY_NO_ASM}
{$ENDIF}
 
{$IFDEF FPC}
  {$DEFINE GEOMETRY_NO_ASM}
  {$TYPEINFO ON}
  {$INLINE ON}
{$ENDIF}
 
{$IFDEF CLR}
  {$DEFINE GEOMETRY_NO_ASM}
  {$UNSAFECODE ON}
{$ENDIF}
 
{$ifdef VER180}
  {$DEFINE GLS_COMPILER_10}
  {$DEFINE GLS_DELPHI_10}
  {$DEFINE GLS_DELPHI}       
{$endif}
 
{$ifdef VER170}
  {$DEFINE GLS_COMPILER_9}
  {$DEFINE GLS_DELPHI_9}
  {$DEFINE GLS_DELPHI}       
{$endif}
 
{$ifdef VER160}
  {$DEFINE GLS_COMPILER_8}
  {$DEFINE GLS_DELPHI_8}
  {$DEFINE GLS_DELPHI}       
{$endif}
 
{$ifdef VER150}
  {$DEFINE GLS_COMPILER_7}
  {$DEFINE GLS_DELPHI}
  {$DEFINE GLS_DELPHI_7}
  {$WARN UNSAFE_TYPE OFF}
  {$WARN UNSAFE_CODE OFF}
  {$WARN UNSAFE_CAST OFF}
{$endif}
 
{$ifdef VER140}
  {$DEFINE GLS_COMPILER_6}
  {$DEFINE GLS_DELPHI_6}
  {$IFDEF BCB}
    {$DEFINE GLS_CPPB}
    {$DEFINE GLS_CPPB_6}
  {$ELSE}      
    {$DEFINE GLS_DELPHI}       
  {$ENDIF}
{$endif}
 
{$IFDEF VER130}
  {$DEFINE GLS_COMPILER_5} 
  {$DEFINE GLS_DELPHI_5}
  {$IFDEF BCB}
    {$DEFINE GLS_CPPB}
    {$DEFINE GLS_CPPB_5}
  {$ELSE}      
    {$DEFINE GLS_DELPHI}       
  {$ENDIF}
{$ENDIF}
 
{$IFDEF VER125}
  {$DEFINE GLS_COMPILER_4}
  {$DEFINE GLS_CPPB}
  {$DEFINE GLS_CPPB_4}
{$ENDIF}
 
{$IFDEF VER120}
  {$DEFINE GLS_COMPILER_4}
  {$DEFINE GLS_DELPHI}
  {$DEFINE GLS_DELPHI_4}
{$ENDIF}
 
{$IFDEF VER110}
  {$DEFINE GLS_COMPILER_3}
  {$DEFINE GLS_CPPB}
  {$DEFINE GLS_CPPB_3}
{$ENDIF}
 
{$IFDEF VER100}
  {$DEFINE GLS_COMPILER_3}
  {$DEFINE GLS_DELPHI}
  {$DEFINE GLS_DELPHI_3}
{$ENDIF}
 
{$IFDEF VER93}
  {$DEFINE GLS_COMPILER_2}  { C++B v1 compiler is really v2 }
  {$DEFINE GLS_CPPB}
  {$DEFINE GLS_CPPB_1}
{$ENDIF}
 
{$IFDEF VER90}
  {$DEFINE GLS_COMPILER_2}
  {$DEFINE GLS_DELPHI}
  {$DEFINE GLS_DELPHI_2}
{$ENDIF}
 
{$IFDEF VER80}
  {$DEFINE GLS_COMPILER_1}
  {$DEFINE GLS_DELPHI}
  {$DEFINE GLS_DELPHI_1}
{$ENDIF}
 
{$IFNDEF GLS_CPPB}
  {$IFNDEF GLS_DELPHI}
    { Don't know what the hell it is.  Could be new version, or could be old BP. }
    {$DEFINE GLS_UNKNOWN_COMPILER}
  {$ENDIF}
{$ENDIF}
 
{$IFDEF GLS_COMPILER_1}
  {$DEFINE GLS_COMPILER_1_UP}
{$ENDIF}
 
{$IFDEF GLS_COMPILER_2}
  {$DEFINE GLS_COMPILER_1_UP}
  {$DEFINE GLS_COMPILER_2_UP}
{$ENDIF}
 
{$IFDEF GLS_COMPILER_3}
  {$DEFINE GLS_COMPILER_1_UP}
  {$DEFINE GLS_COMPILER_2_UP}
  {$DEFINE GLS_COMPILER_3_UP}
{$ENDIF}
 
{$IFDEF GLS_COMPILER_4}
  {$DEFINE GLS_COMPILER_1_UP}
  {$DEFINE GLS_COMPILER_2_UP}
  {$DEFINE GLS_COMPILER_3_UP}
  {$DEFINE GLS_COMPILER_4_UP}
{$ENDIF}
 
{$IFDEF GLS_COMPILER_5}
  {$DEFINE GLS_COMPILER_1_UP}
  {$DEFINE GLS_COMPILER_2_UP}
  {$DEFINE GLS_COMPILER_3_UP}
  {$DEFINE GLS_COMPILER_4_UP}
  {$DEFINE GLS_COMPILER_5_UP}
{$ENDIF}
 
{$IFDEF GLS_COMPILER_6}
  {$DEFINE GLS_COMPILER_1_UP}
  {$DEFINE GLS_COMPILER_2_UP}
  {$DEFINE GLS_COMPILER_3_UP}
  {$DEFINE GLS_COMPILER_4_UP}
  {$DEFINE GLS_COMPILER_5_UP}
  {$DEFINE GLS_COMPILER_6_UP}
{$ENDIF}
 
{$IFDEF GLS_COMPILER_7}
  {$DEFINE GLS_COMPILER_1_UP}
  {$DEFINE GLS_COMPILER_2_UP}
  {$DEFINE GLS_COMPILER_3_UP}
  {$DEFINE GLS_COMPILER_4_UP}
  {$DEFINE GLS_COMPILER_5_UP}
  {$DEFINE GLS_COMPILER_6_UP}
  {$DEFINE GLS_COMPILER_7_UP}
{$ENDIF}
 
{$IFDEF GLS_COMPILER_8}
  {$DEFINE GLS_COMPILER_1_UP}
  {$DEFINE GLS_COMPILER_2_UP}
  {$DEFINE GLS_COMPILER_3_UP}
  {$DEFINE GLS_COMPILER_4_UP}
  {$DEFINE GLS_COMPILER_5_UP}
  {$DEFINE GLS_COMPILER_6_UP}
  {$DEFINE GLS_COMPILER_7_UP}
  {$DEFINE GLS_COMPILER_8_UP}
{$ENDIF}
 
{$IFDEF GLS_COMPILER_9}
  {$DEFINE GLS_COMPILER_1_UP}
  {$DEFINE GLS_COMPILER_2_UP}
  {$DEFINE GLS_COMPILER_3_UP}
  {$DEFINE GLS_COMPILER_4_UP}
  {$DEFINE GLS_COMPILER_5_UP}
  {$DEFINE GLS_COMPILER_6_UP}
  {$DEFINE GLS_COMPILER_7_UP}
  {$DEFINE GLS_COMPILER_8_UP}
  {$DEFINE GLS_COMPILER_9_UP}
{$ENDIF}
 
{$IFDEF GLS_COMPILER_10}
  {$DEFINE GLS_COMPILER_1_UP}
  {$DEFINE GLS_COMPILER_2_UP}
  {$DEFINE GLS_COMPILER_3_UP}
  {$DEFINE GLS_COMPILER_4_UP}
  {$DEFINE GLS_COMPILER_5_UP}
  {$DEFINE GLS_COMPILER_6_UP}
  {$DEFINE GLS_COMPILER_7_UP}
  {$DEFINE GLS_COMPILER_8_UP}
  {$DEFINE GLS_COMPILER_9_UP}
  {$DEFINE GLS_COMPILER_10_UP}
{$ENDIF}
 
{$IFDEF GLS_DELPHI_2}
  {$DEFINE GLS_DELPHI_2_UP}
{$ENDIF}
 
{$IFDEF GLS_DELPHI_3}
  {$DEFINE GLS_DELPHI_2_UP}
  {$DEFINE GLS_DELPHI_3_UP}
{$ENDIF}
 
{$IFDEF GLS_DELPHI_4}
  {$DEFINE GLS_DELPHI_2_UP}
  {$DEFINE GLS_DELPHI_3_UP}
  {$DEFINE GLS_DELPHI_4_UP}
{$ENDIF}
 
{$IFDEF GLS_DELPHI_5}
  {$DEFINE GLS_DELPHI_2_UP}
  {$DEFINE GLS_DELPHI_3_UP}
  {$DEFINE GLS_DELPHI_4_UP}
  {$DEFINE GLS_DELPHI_5_UP}
{$ENDIF}
 
{$IFDEF GLS_DELPHI_6}
  {$DEFINE GLS_DELPHI_2_UP}
  {$DEFINE GLS_DELPHI_3_UP}
  {$DEFINE GLS_DELPHI_4_UP}
  {$DEFINE GLS_DELPHI_5_UP}
  {$DEFINE GLS_DELPHI_6_UP}
{$ENDIF}
 
{$IFDEF GLS_DELPHI_7}
  {$DEFINE GLS_DELPHI_2_UP}
  {$DEFINE GLS_DELPHI_3_UP}
  {$DEFINE GLS_DELPHI_4_UP}
  {$DEFINE GLS_DELPHI_5_UP}
  {$DEFINE GLS_DELPHI_6_UP}
  {$DEFINE GLS_DELPHI_7_UP}
{$ENDIF}
 
{$IFDEF GLS_DELPHI_8}
  {$DEFINE GLS_DELPHI_2_UP}
  {$DEFINE GLS_DELPHI_3_UP}
  {$DEFINE GLS_DELPHI_4_UP}
  {$DEFINE GLS_DELPHI_5_UP}
  {$DEFINE GLS_DELPHI_6_UP}
  {$DEFINE GLS_DELPHI_7_UP}
  {$DEFINE GLS_DELPHI_8_UP}
{$ENDIF}
 
{$IFDEF GLS_DELPHI_9}
  {$DEFINE GLS_DELPHI_2_UP}
  {$DEFINE GLS_DELPHI_3_UP}
  {$DEFINE GLS_DELPHI_4_UP}
  {$DEFINE GLS_DELPHI_5_UP}
  {$DEFINE GLS_DELPHI_6_UP}
  {$DEFINE GLS_DELPHI_7_UP}
  {$DEFINE GLS_DELPHI_8_UP}
  {$DEFINE GLS_DELPHI_9_UP}
{$ENDIF}
 
{$IFDEF GLS_DELPHI_10}
  {$DEFINE GLS_DELPHI_2_UP}
  {$DEFINE GLS_DELPHI_3_UP}
  {$DEFINE GLS_DELPHI_4_UP}
  {$DEFINE GLS_DELPHI_5_UP}
  {$DEFINE GLS_DELPHI_6_UP}
  {$DEFINE GLS_DELPHI_7_UP}
  {$DEFINE GLS_DELPHI_8_UP}
  {$DEFINE GLS_DELPHI_9_UP}
  {$DEFINE GLS_DELPHI_10_UP}
{$ENDIF}
 
{$IFDEF GLS_CPPB_3}
  {$DEFINE GLS_CPPB_3_UP}
{$ENDIF}
 
{$IFDEF GLS_CPPB_4}
  {$DEFINE GLS_CPPB_3_UP}
  {$DEFINE GLS_CPPB_4_UP}
{$ENDIF}
 
{$IFDEF GLS_CPPB_5}
  {$DEFINE GLS_CPPB_3_UP}
  {$DEFINE GLS_CPPB_4_UP}
  {$DEFINE GLS_CPPB_5_UP}  
{$ENDIF}
 
{$IFDEF GLS_CPPB_6}
  {$DEFINE GLS_CPPB_3_UP}
  {$DEFINE GLS_CPPB_4_UP}
  {$DEFINE GLS_CPPB_5_UP}  
  {$DEFINE GLS_CPPB_6_UP} 
{$ENDIF}
 
{$IFDEF GLS_COMPILER_3_UP}
  {$DEFINE GLS_NO_COM_CLEANUP}
{$ENDIF}
 
{$IFDEF GLS_CPPB_3_UP}
  // C++Builder requires this if you use Delphi components in run-time packages.
  {$ObjExportAll On}
{$ENDIF}
]]> Composants VCL varilux56 https://www.developpez.net/forums/d2182957/environnements-developpement/delphi/composants-vcl/probleme-installer-glscene/ Dossier caché est ignoré par TOpenDialog.InitialDir https://www.developpez.net/forums/showthread.php?t=2182393&goto=newpost Mon, 02 Mar 2026 06:22:35 GMT Bonjour à tous, J’ai un... Bonjour à tous,

J’ai un comportement étrange : lorsque je définis TOpenDialog.InitialDir sur un dossier caché (par exemple AppData\Roaming), la boîte de dialogue ne s’ouvre pas dans ce dossier et revient systématiquement ailleurs (souvent le dernier dossier utilisé).

Le dossier existe bien et DirectoryExists renvoie True, mais InitialDir semble être ignoré dès qu’il s’agit d’un répertoire caché.

Lorsque je saisis manuellement le chemin dans la zone Fichier du TOpenDialog et que je valide, j'ouvre bien le dossier caché.
En revanche, lorsque je définis ce même chemin dans InitialDir, le dialogue l’ignore complètement. 

Nom : Capture d'écran 2026-03-02 073744.png Affichages : 93 Taille : 84,7 Ko

Savez‑vous pourquoi Delphi/Windows ignore un dossier caché dans TOpenDialog.InitialDir et comment forcer l’ouverture dans ce dossier ?

Merci d’avance pour vos éclaircissements. ;)
Images attachées
 
]]> Composants VCL XeGregory https://www.developpez.net/forums/d2182393/environnements-developpement/delphi/composants-vcl/dossier-cache-ignore-topendialog-initialdir/ Comment créer les composants de TWebView4Delphi programmatiquement ? https://www.developpez.net/forums/showthread.php?t=2182392&goto=newpost Mon, 02 Mar 2026 00:25:36 GMT Je suis sous W11 avec Delphi... Je suis sous W11 avec Delphi 6 Personal Edition, service packs 1 à 3 installés

Je viens d'apprendre à créer et utiliser (petitement...) WebView4Delphi dans un programme D6.
J'arrive à naviguer, et j'arrive à afficher un fichier SVG et à déplacer la ViewBox à volonté.

Tout cela fonctionne bien si je place les composants dans ma fiche dans l'EDI, puis je les utilise dans mon code Delphi.

Maintenant, je veux créer ces composants dynamiquement, et je veux faire cela dans une DLL de service.
Et ça ne marche pas - rien ne s'affiche.

J'ai joint un fichier ZIP qui contient 3 projets, complets avec codes source, exécutables et fichiers de données:
1. le projet opérationnel avec les composants posés directement dans une fiche à partir de l'EDI : projet FirstTest
2. le projet définissant la DLL de service, avec juste 1 seule fonction CreerWebView : projet WebView4Delphi
3. le projet contenant un programme Delphi appelant la fonction CreerWebView de la DLL : projet Test_Avec_DLL

C'est ce dernier (3) qui n'affiche rien, et je ne comprends pas. Voici le code de la dll WebView4Delphi:
Code:
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
67
68
69
70
71
72
73
library WebView4Delphi;
 
{
  WebView4Delphi
}
 
uses
  SysUtils,Classes, Forms, Windows, Dialogs, Controls,
 
  uWVBrowserBase, uWVBrowser, uWVWinControl, uWVWindowParent,
  uWVTypes, uWVConstants, uWVTypeLibrary,
  uWVLibFunctions, uWVLoader, uWVInterfaces, uWVCoreWebView2Args;
 
type
  TDummy = class
    private
    published
      class procedure AfterCreated(Sender: TObject);
  end;
 
var
  WVWindowParent1: TWVWindowParent;
  WVBrowser1: TWVBrowser;
 
 
{$R *.res}
 
 
function CreateWebView(aDest: HWND): integer; stdcall; export;
begin
  result := 0;
  try
    if assigned(WVWindowParent1) then exit;
    if assigned(WVBrowser1) then exit;
 
    // J'essaie de simuler ce qui se passe lors de la création d'une form contenant ces objets
    WVWindowParent1 := TWVWindowParent.CreateParented(aDest);
    WVWindowParent1.ParentWindow := aDest;
    WVWindowParent1.Left := 10;
    WVWindowParent1.Top := 50;
    WVWindowParent1.Width := 1000;
    WVWindowParent1.Height := 500;
    WVBrowser1 := TWVBrowser.Create(WVWindowParent1);
    WVBrowser1.DefaultURL := 'https://google.fr';
    WVBrowser1.OnAfterCreated := TDummy.AfterCreated;
    WVWindowParent1.Browser := WVBrowser1;
 
    if GlobalWebView2Loader.InitializationError then
      showmessage(GlobalWebView2Loader.ErrorMessage)
     else
      if GlobalWebView2Loader.Initialized then
        WVBrowser1.CreateBrowser(WVWindowParent1.Handle);
 
    result := integer(WVWindowParent1);
  except
    showmessage('Error in CreateWebView');
  end;
end;
exports CreateWebView;
 
class procedure TDummy.AfterCreated(Sender: TObject);
begin
  WVWindowParent1.UpdateSize;
  WVBrowser1.Navigate(WVBrowser1.DefaultURL);
end;
 
begin
  GlobalWebView2Loader                := TWVLoader.Create(nil);
  GlobalWebView2Loader.UserDataFolder := ExtractFileDir(Application.ExeName) + '\CustomCache';
  GlobalWebView2Loader.StartWebView2;
 
 
end.
Est-ce que vous pouvez me montrer où j'ai fauté ?
Fichiers attachés
]]> Composants VCL KlausGunther https://www.developpez.net/forums/d2182392/environnements-developpement/delphi/composants-vcl/creer-composants-twebview4delphi-programmatiquement/ Coment utiliser TWebView4Delphi ? https://www.developpez.net/forums/showthread.php?t=2182379&goto=newpost Sat, 28 Feb 2026 11:53:45 GMT Je suis sous W11 avec Delphi... Je suis sous W11 avec Delphi 6 Personal Edition.

J'ai fait l'installation des Service packs 2 et 3 avec succès.
J'ai installé WebVew4Delphi avec succès.

Je fais mon premier projet pour afficher Google.fr dans mon écran, et rien ne s'affiche.
J'ai placé WebView2Loader.dll en version 32 bits dans le dossier de mon projet.
J'ai placé un contrôle WvWindowParent dans la form 0 ==> WVWindowParent1
J'ai ajouté un WebView4Delphi dans la form 0 ==> WVBrowser1
J'ai mis WVBrowser1 dans la propriété Bowser de WVWindowParent1
J'ai mis 'htpps://google.fr' dans la propriété DefaultURL de WVWindowParent1

Résultat: rien ne s"affiche.

J'ai créé un bouton TButton1, et dans l'évènement On_Click, je charge Navigate avec mon URL:
Code:
WVBrowser1.Navigate('https://google.fr');
Résultat: rien ne s'affiche.

J'ai dû manquer quelque chose de fondamental. Pourriez-vous me mettre sur la piste ? Merci d'avance !
Je projet complet est dans le fichier ZIP ci-joint.
Fichiers attachés
]]> Composants VCL KlausGunther https://www.developpez.net/forums/d2182379/environnements-developpement/delphi/composants-vcl/coment-utiliser-twebview4delphi/ mail avec 365 https://www.developpez.net/forums/showthread.php?t=2182204&goto=newpost Thu, 19 Feb 2026 13:15:05 GMT Bonjour, Nous allons... Bonjour,

Nous allons passer à office 365.

Je me pose des questions sur mes code source qui envoie des mail avec Indy.
A mon avis ça ne sera plus compatible, car on m'a parlé de TLS1.2 ?

J'utilise Delphi XE5: est ce que Indy sur cette version pourra envoyer des mail avec un compte office 365 ?

Cordialement ]]> Composants VCL looping https://www.developpez.net/forums/d2182204/environnements-developpement/delphi/composants-vcl/mail-365-a/ <![CDATA[Etat physique des touches d'un clavier]]> https://www.developpez.net/forums/showthread.php?t=2181348&goto=newpost Wed, 07 Jan 2026 08:20:53 GMT Bonjour. Existe-t-il un moyen... Bonjour. Existe-t-il un moyen de connaitre l'état physique d'enfoncement des touches d'un clavier ?
L'API32 de Windows permet de connaitre l'état logique des touches avec getKeyState ou getAsyncKeyState mais cet état logique ne correspond pas toujours à l'état physique réel d'enfoncement d'un touche. Par exemple, avec les deux touches CTRL gauche et droite, il est quasi impossible de savoir si les deux touches sont enfoncées simultanément ! ]]> Composants VCL f6dqm1 https://www.developpez.net/forums/d2181348/environnements-developpement/delphi/composants-vcl/etat-physique-touches-d-clavier/ Comment savoir si une opération TPicture LoadFromFile a terminé ? https://www.developpez.net/forums/showthread.php?t=2181036&goto=newpost Fri, 19 Dec 2025 01:18:35 GMT Je suis sous W11 avec Delphi... Je suis sous W11 avec Delphi 6 Personal Edition.

Je travaille sur un contrôle composé contenant un TPicture et un TPanel.
Je veux charger un fichier BMP dans le TPicture, puis afficher l'image dans le canvas du TPanel.

Le chargement du fichier par LoadFromFile ne pose pas de problème.
J'utilise une version dérivée de TPanel afin d'avoir accès à la méthode Paint du panel.
Là, j'utilise CopyRect sur ce canvas pour y déposer la bitmap chargée dans le TPicture.

La difficulté est de savoir QUAND l'opération de chargement du fichier est terminée et la bitmap est disponible pour la méthode Canvas.CopyRect sur le panel.

Si je fais un délai de 500 ms entre le LoadFromFile et le CopyRect, l'image s'affiche sans problème.
Sans ce délai, l'image ne s'affiche pas - manifestement, la bitmap n'est pas encore disponible.

J'ai utilisé l'évènement OnChange du TPicture dans lequel j'appelle la méthode Paint du panel dérivé, dans laquelle je fais le CopyRect sur le canvas.

L'évènement se déclenche bien, mais apparemment, il se déclenche dès que le LoadFromFile commence au lieu de se déclencher lorsque l'opération est terminée.
Et donc, même dans ce cas, la bitmap n'est pas disponible.

Question: comment savoir quand l'opération LoadFromFile est terminée ?

A tout hasard, voici les parties significatives du code:
Code:
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
67
68
69
70
71
72
73
74
75
76
 
type TKPicture = class
  private
    fOwner: TComponent;
    fPicture: TPicture;
    fPanel: TKPanel;
    fTag: integer;
    procedure PictureChanged(Sender: TObject);
  published
    constructor CreateNew(aOwner: TComponent; aDest: HWND);
    destructor Destroy; override;
    property Tag: integer read fTag write fTag;
    property Owner: TComponent read fOwner write fOwner;
 
    procedure Localize(aX, aY, aW, aH: integer);
    procedure LoadPicture(aFile: string);
end;
 
constructor TKPicture.CreateNew(aOwner: TComponent; aDest: HWND);
begin
  inherited;
  Owner := aOwner;
  Tag := 0;
  fOwner := aOwner;
  fPicture := TPicture.Create;
  fPicture.OnChange := PictureChanged;
  fPanel := TKPanel.Create(aOwner);
  fPanel.Tag := integer(self);
  fPanel.ParentWindow := aDest;
end;
 
destructor TKPicture.Destroy;
begin
  Tag := 0;
  fPanel.Free;
  fPicture.Free;
  inherited;
end;
 
procedure TKPicture.Localize(aX, aY, aW, aH: integer);
begin
  fPanel.Left := aX;
  fPanel.Top := aY;
  fPanel.Width := aW;
  fPanel.Height := aH;
end;
 
procedure Delay(Milliseconds: Integer);
  {by Hagen Reddmann}
var
  Tick: DWORD;
  Event: THandle;
begin
  Event := CreateEvent(nil, False, False, nil);
  try
    Tick := GetTickCount + DWORD(Milliseconds);
    while (Milliseconds>0) and (MsgWaitForMultipleObjects(1,Event,False,Milliseconds,QS_ALLINPUT)<>WAIT_TIMEOUT) do begin
      Application.ProcessMessages;
      Milliseconds := Tick - GetTickCount;
    end;
  finally
    CloseHandle(Event);
  end;
end;
 
procedure TKPicture.LoadPicture(aFile: string);
begin
  fPicture.LoadFromFile(aFile);
//  Delay(500);                   // **1  avec ce délai, l'image s'affiche lors de l'évènement PictureChanged
//  fPanel.Paint;                  // **2 et même sans déclarer l'écènement PictureChanged, le Paint ici affiche l'image di le délai a été fait
end;
 
procedure TKPicture.PictureChanged(Sender: TObject);
begin
  fPanel.Paint;  
end;
J'affiche bien l'image si j'active la ligne **1.
En l'état, l'image ne s'affiche pas, malgré le déclenchement de PictureChanged.

J'aimerais bien pouvoir me passer de cette procédure Delay et faire mon Paint au moment opportun.
Comment savoir si la bitmap du TPicture est prête ?
En fait, la question se résume à ceci: comment être averti que l'opération LoadFromFile est terminée ? ]]> Composants VCL KlausGunther https://www.developpez.net/forums/d2181036/environnements-developpement/delphi/composants-vcl/savoir-operation-tpicture-loadfromfile-termine/ TPageControl et suppression des « border » https://www.developpez.net/forums/showthread.php?t=2180862&goto=newpost Tue, 09 Dec 2025 09:54:15 GMT Bonjour, J’ai cherché à... Bonjour,

J’ai cherché à supprimer les borders du composant TPageControl pour faire plus moderne et épuré sans la moindre réussite :calim2:

Auriez-vous une idée ou un bout de code qui le permettrait ?

Merci d’avance de vos retours. ]]> Composants VCL der§en https://www.developpez.net/forums/d2180862/environnements-developpement/delphi/composants-vcl/tpagecontrol-suppression-border/ <![CDATA[Dans un TCustomControl, je n'arrive pas à capter les flèches par OnKeyDown]]> https://www.developpez.net/forums/showthread.php?t=2180696&goto=newpost Sat, 29 Nov 2025 12:08:24 GMT Bonjour, Je suis sous W11... Bonjour,

Je suis sous W11 avec Delphi 6 Personal Edition.

J'essaie de créer un nouveau contrôle dérivé de TCustomControl.
Je joins un fichier ZIP contenant le projet complet.

J'arrive à le créer et à dessiner mon contrôle (rudimentaire) dans le canvas qui apparaît à l'écran.
J'arrive à capter le click gauche et mousedown ce qui me permet, dans le OnClick, de connaître les coordonnées du click.
Dans on mémo séparé, j'affiche les coordonnées du click lors de l'évènement OnClick, coordonnées mémorisées lors du OnMouseDown.
J'arrive à détecter les touches frappées par OnKeyPress et à identifier un caractère normal, Return (#13) ou Delete (#8).

Mais, je n'arrive pas à détecter les flèches (droite, gauche, haut, bas) qui sont interceptées avant d'arriver dans mon contrôle, au niveau de Form1.
Le curseur se déplace alors dans la Form1 d'un contrôle à l'autre, ou dans le mémo.
J'ai essayé de modifier le ControlStyle de mon TCustomContrôle (ControlStyle := ControlStyle +[csClickEvents,csCaptureMouse,csAcceptsControls];),
mais cela n'a aucune influence sur le traitement des flèches.
J'ai même essayé de modifier KeyPreview de la Form1 (valeurs True et False), mais le comportement reste inchangé.
Je peux détecter dans OnKeyDown même Shift, Ctrl, Alt, mais pas les flèches. C'est frustrant !

Comment est-ce que je peux obtenir le passage des flèches dans mon TCustomControl de sorte que le OnKeyDown les détecte ?
Voici une capture montrant mon programme après un clic , la frappe de "a", puis un autre clic à un endroit différent, puis la frappe de la touche Return:
Nom : Capture d'écran 2025-11-29 130438.png Affichages : 149 Taille : 15,0 Ko
Images attachées
 
Fichiers attachés
]]> Composants VCL KlausGunther https://www.developpez.net/forums/d2180696/environnements-developpement/delphi/composants-vcl/tcustomcontrol-n-arrive-capter-fleches-onkeydown/ <![CDATA[Comment "Assigner" une font à une autre ?]]> https://www.developpez.net/forums/showthread.php?t=2180652&goto=newpost Wed, 26 Nov 2025 17:46:05 GMT Je suis sous W11 avec Delphi... Je suis sous W11 avec Delphi 6 Personal Edition.

J'essaie dans mon programme de créer plusieurs polices et d'affecter ces polices à différents contrôles VCL.

Je fais quelque chose comme ceci:
Code:
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
var
  Form2: TForm2;
  CellFont: TFont;
  MemoFont: TFont;
implementation
 
{$R *.dfm}
 
procedure TForm2.FormCreate(Sender: TObject);
begin
  CellFont := TFont.Create;
  MemoFont := TFont.Create;
end;
 
procedure TForm2.oFontSelectClick(Sender: TObject);
begin
  FontDialog1.Font.Assign(CellFont);
  if not FontDialog1.Execute then exit;
  CellFont := FontDialog1.Font;
end;
 
procedure TForm2.oSelectFontMemoClick(Sender: TObject);
begin
  FontDialog1.Font.Assign(MemoFont);
  if not FontDialog1.Execute then exit;
  MemoFont := FontDialog1.Font;
end;
Dans mon esprit, cela crée 2 polices indépendantes, chacune paramétrée à un appel à FontDialog1.
Je passe alors CellFont ou MemoFont en paramètre à une procédure.
Là, je veux l'affecter à ma police d'un objet VCL, comme ceci:
Code:
memo.Font.Assign(aFont);
Or, à l'exécution, je reçois ceci:
Nom : Capture d'écran 2025-11-26 183444.png Affichages : 164 Taille : 12,3 Ko

Avant, à la place de Assign, j'affectais les propriétés Name, Size, Color et Style suivantes, comme ceci:
Code:
1
2
dest.Font.name = org.font.name
...
Ca marche pour le permier, mais dès que je veux affecter une autre police à un autre objet, TOUS les objets que j'ai utilisés prennent les attributs de la dernière police modifiée. C'est très frustrant.

J'ai dû manquer un truc élémentaire... je pensais que Assign faisait le travail, selon https://docwiki.embarcadero.com/Libr...s.TFont.Assign:
Citation:
Copies the properties of another TFont object.

Call Assign to set the properties of the font to match the characteristics of the Source object. If Source is another TFont object, Assign matches the font characteristics of the source. Assign does not copy the PixelsPerInch property, so this method can be used to copy a screen font to a printer font, or vice versa.

If the Source parameter is not another TFont object, Assign calls the inherited method so that the font can be copied from any object that can assign font properties in its AssignTo method.
Mais en exécution, le fait de passer ces Font en paramètre et de les utiliser dans une procédure, ça ne marche pas...
Images attachées
 
]]> Composants VCL KlausGunther https://www.developpez.net/forums/d2180652/environnements-developpement/delphi/composants-vcl/assigner-font/ <![CDATA[Problème avec TButton en injection dans une cellule d'un TStringGrid]]> https://www.developpez.net/forums/showthread.php?t=2180523&goto=newpost Tue, 18 Nov 2025 14:22:36 GMT Bonjour, Je suis sous W11... Bonjour,

Je suis sous W11 avec Delphi 6 Personal Edition.

Je suis en train d'injecter (ou d'essayer...) des contrôles dans des cellules d'un contrôle dérivé d'un TStringGrid.

J'ai essayé TButton. Ca marche, le bouton apparaît et il est cliquable.
Mais le clic ne déclenche pas l'évènement OnClick du bouton injecté.
Par contre, appeler programmatiquement la méthode Click du TButton déclenche bien sa routine OnClick.

Pui, j'ai essayé TSpeedButton à la place.
Là encore, le bouton apparaît bien et est cliquable.
Mais cette fois, le clic déclenche bien l'évènement OnClick du bouton injecté.

Conclusion: si je veux un bouton dans un TStringGrid, il faut utiliser TSpeedButton.

Mais pourquoi ? Qu'est-ce qui fait que TSpeedButton fonctionne et pas TButton, en injection dans une cellule d'un TStringGrid ?

Je joins une capture d'écran après le clic sur un des 6 TSpeedButton injectés - la routine évènement OnClick affiche les coordonnées de la cellule cliquée:
Nom : Capture d'écran 2025-11-18 152123.png Affichages : 245 Taille : 28,8 Ko

D'ailleurs, après un clic sur le bouton dans la cellule ligne 3 colonne 2, un peut cliquer sur "Info" et on obtient des informations sur la cellule clickée:
Nom : Capture d'écran 2025-11-18 152900.png Affichages : 220 Taille : 17,7 Ko
Images attachées
  
]]> Composants VCL KlausGunther https://www.developpez.net/forums/d2180523/environnements-developpement/delphi/composants-vcl/probleme-tbutton-injection-cellule-d-tstringgrid/