Forum du club des d�veloppeurs et IT Pro - Composants VCL

Probl�me pour installer GLScene

varilux56 — 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}

Dossier cach� est ignor� par TOpenDialog.InitialDir

XeGregory — Mon, 02 Mar 2026 06:22:35 GMT

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. 

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

Comment cr�er les composants de TWebView4Delphi programmatiquement ?

KlausGunther — Mon, 02 Mar 2026 00:25:36 GMT

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

WebView4Delphi.zip (852,4 Ko)

Coment utiliser TWebView4Delphi ?

KlausGunther — Sat, 28 Feb 2026 11:53:45 GMT

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

FirstTest.zip (337 octets)

mail avec 365

looping — Thu, 19 Feb 2026 13:15:05 GMT

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

Etat physique des touches d'un clavier

f6dqm1 — Wed, 07 Jan 2026 08:20:53 GMT

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 !

Comment savoir si une op�ration TPicture LoadFromFile a termin� ?

KlausGunther — Fri, 19 Dec 2025 01:18:35 GMT

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 ?

TPageControl et suppression des � border �

der�en — Tue, 09 Dec 2025 09:54:15 GMT

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.

Dans un TCustomControl, je n'arrive pas � capter les fl�ches par OnKeyDown

KlausGunther — Sat, 29 Nov 2025 12:08:24 GMT

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:

Images attach�es

Fichiers attach�s

TestTCustomcontrol.zip (215,9 Ko)

Comment "Assigner" une font � une autre ?

KlausGunther — Wed, 26 Nov 2025 17:46:05 GMT

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:

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

Probl�me avec TButton en injection dans une cellule d'un TStringGrid

KlausGunther — Tue, 18 Nov 2025 14:22:36 GMT

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:

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:

Images attach�es

Comment corriger les effets de scintillement sur un TPainBox

XeGregory — Fri, 14 Nov 2025 16:58:02 GMT

Bonjour,

Y a-t-il une solution pour corriger les effets de scintillement observ�s sur un composant TPainBox ?

Merci ;)

Images attach�es

Styles et les contr�les cr��s dynamiquement

Invit� — Thu, 13 Nov 2025 09:37:37 GMT

Bonjour,

Dans une application des contr�les sont cr��s dynamiquement et doivent rest�s flottants pour (non recens�s : parent = nil) pour �viter de perturber l'arbre d'alignement des contr�les du parents, mais si un style est s�lectionn� ces contr�les provoquent des violations d�acc�s et autres probl�mes selon le contr�le du fait qu'ils appellent le parent qui est � nil

Ex:

Code:

1
2
3
4
5
6
7
   with TButton.Create(Self)do
   begin
       Top := 20;
       Left := 300;
       Caption := 'test';
       ParentWindow := Self.Handle;
   end;

Si on clique sur ce bouton il aura une violation d�acc�s

Peut-on mettre en pause 1 TTimer ?

qi130 — Fri, 07 Nov 2025 14:49:08 GMT

Bonjour,

A priori pas (je n'ai rien trouv�) :roll:

Je veux le mettre en pause, c�d suspendre le d�compte et pouvoir le reprendre l� o� il en �tait.

Merci pour vos id�es.

Probl�me avec OnEnter et OnExit sur les TEdit et d�riv�s

KlausGunther — Sat, 25 Oct 2025 11:48:00 GMT

Je suis sous W11 avec Delphi 6 Personal Edition.

Je n'arrive pas � m'en sortir avec les �v�nements OnEnter et OnExit d'un TEdit ou d'un objet d�riv� de TEdit.

Je sais (ou crois savoir) que OnEnter est d�clench� lorsque le TEdit "gagne" le focus.
Je sais (ou crois savoir) que OnExit est d�clench� lorsque le TEdit "perd" le focus.

D'apr�s ce que je vois, un TEdit cr�� dans l'IDE se comporte effectivement comme �a.

Or, un TEdit (ou un TEdit d�riv�) cr�� par programme ne g�n�re aucun de ces deux �v�nements, quelque soit le contexte.
Ces objets cr��s par programme g�n�rent bien les �v�nements OnClick et OnKeyPress, mais JAMAIS OnEnter ni OnExit.

Je joins un projet de d�mo dans un fichier ZIP pour montrer le probl�me. Ce programme cr�e 4 objets:
- un TEdit cr�� par l'EDI Delphi
- un TEdit standard cr�� par programme dans le OnCreate de la form principale
- un TMyEdit d�riv� de TEdit cr�� par programme dans le OnCreate de la form principale
- un TMemo cr�� par l'IDE Delphi (servant � recevoir une ligne de texte pour chaque �v�nement d�clench�)

Au lancement, le TEdit cr�� par l'IDE a le focus, et la ligne corrrespondante appara�t dans le m�mo

Ensuite, on frappe la touche TAB. Effet etendu: OnExit dans le premier TEdit, OnEnter dans le TEdit cr�� par programme, curseur dans ce dernier.
Or, on a bien OnExit sur le premier TEdit, mais OnEnter dans le TMemo, et le curseur est dans ce dernier.

Une nouvelle frappe de TAB revient vers le TEdit cr�� par l'IDE, avec les �v�nements correspondants.

Les deux objets cr��s par programme ne sont jamais atteints par TAB.

Maintenant, un clic dans un de ces objets cr�� par programme g�n�re bien un OnClick sur cet objet, mais PAS de OnEnter !
Pire: la touche TAB ne semble avoir aucun effet: ni �v�nement g�n�r� ni focus d�plac�
Et m�me le clic dans un autre objet quelconque ne g�n�re pas de OnExit sur l'objet cr�� par programme o� �tait le curseur...

J'ai encore d� rater quelque chose d'important. Pourriez-vous me mettre sur la voie ? Merci d'avance !

Voici une capture d'�cran:

Images attach�es

Fichiers attach�s

FocusTest.zip (203,5 Ko)