Forum du club des d�veloppeurs et IT Pro - Langage

afficher l'aide contextuelle fin de ligne dans Tlistbox et Tcombobox

ZonZorg — Sun, 05 Apr 2026 01:34:37 GMT

je voudrai afficher l'aide contextuelle pour visualiser le reste de chaques lignes dans un listbox et combobox

l'exemple zipp� :patisseries.zip

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
 
unit Unit1;
 
interface
 
uses
  Windows,
  Classes , SysUtils , Forms , Controls , Graphics , Dialogs , StdCtrls, Types,Messages;
type
  TForm1 = class(TForm)
    ListBox: TListBox;
    ListCombo: TComboBox;
    Label1: TLabel;
    procedure FormCreate(sender: TObject);
    procedure ListBoxDrawItem(Control: TWinControl; Index: Integer;   Rect: TRect; State: TOwnerDrawState);
    procedure ListBoxMeasureItem(Control: TWinControl; Index: Integer; var Height: Integer);
    procedure ListComboExit(Sender: TObject);
    procedure ListComboEnter(Sender: TObject);
  private
    PROCEDURE AppShowHint(VAR HintStr: STRING; VAR CanShow: Boolean; VAR HintInfo: THintInfo); // gestion de l'aide (dans listtitre)
    procedure ApplicationIdle(sender: TObject; var Done: boolean);
    { Déclarations privées }
  public
    { Déclarations publiques }
  END;
 
 
var
  Form1: TForm1;
  Comboboxexit:Boolean;
implementation
 
{$R *.dfm}
 
procedure TForm1.ListBoxDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
 
PROCEDURE Drawcolored(Canvas: Tcanvas; Atext: STRING; Rect: TRECT; STATE: Townerdrawstate;AColor,Bcolor:Longint);
BEGIN
      WITH Canvas DO
      BEGIN
            IF (odSelected in State) THEN
            BEGIN
                  Font.Color  := Acolor;
                  Brush.Color := Bcolor;
            END
            ELSE
            BEGIN
                  Font.Color  := Bcolor;
                  Brush.Color := Acolor;
            END;
            Pen.Color := Acolor;
            Rectangle(Rect);
            Brush.Style := bsClear;
            Fillrect(rect);
            Textout(Rect.Left + 2 , Rect.Top, Atext);
      END;
END; {Drawcolored}
 
BEGIN
      IF (Control Is  Tlistbox) THEN WITH (Control As  Tlistbox) DO Drawcolored(Canvas,ITEMS[Index],Rect,STATE,Color,Font.Color);
      IF (Control Is Tcombobox) THEN WITH (Control As Tcombobox) DO Drawcolored(Canvas,ITEMS[Index],Rect,STATE,Color,Font.Color);
end;
 
procedure TForm1.ListBoxMeasureItem(Control: TWinControl; Index: Integer;  var Height: Integer);
BEGIN
      IF (Control IS Tcombobox) THEN Height := trunc(((Control As Tcombobox).Itemheight+2));
      IF (Control IS Tlistbox) THEN Height := trunc(((Control As Tlistbox).Itemheight+2));
END;
 
procedure TForm1.ListComboExit(Sender: TObject); begin Comboboxexit:=true; end;
procedure TForm1.ListComboEnter(Sender: TObject); begin Comboboxexit:=false; end;
 
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
PROCEDURE Tform1.Appshowhint(VAR Hintstr: STRING; VAR Canshow: BOOLEAN; VAR Hintinfo: Thintinfo);
VAR   Lstindex,Cpi,Maxlength,Listtitrewidth : INTEGER;
      lngtmp:STRING;
      ComboBoxpos: TRect;
      State: TOwnerDrawState;
 
PROCEDURE hintcolored(Canvas: Tcanvas;VAR Hintinfo: Thintinfo;Itemindex,Lstindex:Integer;lngtmp:String;AColor,Bcolor:Longint);
BEGIN
      WITH Hintinfo DO
      BEGIN
            IF hintpos.X+Canvas.TEXTWIDTH(lngtmp)>screen.DesktopWidth THEN
            BEGIN
                  Cpi:=0;
                  WHILE (hintpos.X+Canvas.TEXTWIDTH(COPY(lngtmp,1,Cpi+1))) AND (CPI(lngtmp)) DO INC(Cpi);
                  lngtmp := COPY(lngtmp,1,CPI-1);
            END;
            IF Cpi>0 THEN
            BEGIN
                  Hintstr:=lngtmp;
                  IF Itemindex = Lstindex THEN
                  BEGIN
                         Hintcolor:=Bcolor;
                         Screen.Hintfont.Color:= AColor;;
                  END
                  ELSE
                  BEGIN
                        Hintcolor:= AColor;
                        Screen.Hintfont.Color:= Bcolor;
                  END;
                  Reshowtimeout := 500;
                  Hidetimeout := 2500;
                  Canshow := TRUE;
            END;
     END;
END;
 
BEGIN
      Canshow := FALSE;
      WITH Hintinfo DO
      BEGIN
            IF (Hintcontrol Is TCombobox) THEN WITH TCombobox(Hintcontrol) DO
            BEGIN
                  GetWindowRect(Handle, ComboBoxpos);
                  hintpos.Y:=ComboBoxpos.Top;
                  Listtitrewidth:=Width-GetSystemMetrics(SM_CXFRAME) - GetSystemMetrics(SM_CXVSCROLL);
                  IF Canvas.TEXTWIDTH(TEXT) > Listtitrewidth THEN
                  BEGIN
                        lngtmp := TEXT;
                        Maxlength := 0;
                        Cpi:=1;
                        WHILE (Canvas.TEXTWIDTH(COPY(lngtmp,1,Cpi))<=Listtitrewidth) AND (Cpi<=LENGTH(TEXT)) DO
                        BEGIN
                              IF TEXT[Cpi]=' ' THEN Maxlength:=Cpi;
                              INC(Cpi);
                        END;
                        lngtmp := COPY(TEXT,Maxlength+1,LENGTH(TEXT));
                        hintpos.X:=ComboBoxpos.Left+2+Canvas.TEXTWIDTH(COPY(TEXT,1,Maxlength));
                        hintcolored(Canvas,Hintinfo,0,integer(Comboboxexit),lngtmp,color,font.color);
                  END;{}
            END;
            IF (Hintcontrol Is TLISTBOX) THEN WITH TLISTBOX(Hintcontrol) DO
            BEGIN
                  Lstindex := Itematpos(Cursorpos, TRUE);
                  IF Lstindex > -1 THEN
                  BEGIN // Listbox Item Under Mouse
                        Listtitrewidth:=Width-GetSystemMetrics(SM_CXFRAME);
                        IF ((Getwindowlong(HANDLE, Gwl_Style)) AND Ws_Vscroll) <> 0 THEN Listtitrewidth:=Listtitrewidth - GetSystemMetrics(SM_CXVSCROLL);
                        IF Canvas.TEXTWIDTH(ITEMS[Lstindex]) > Listtitrewidth THEN
                        BEGIN
                              Hintstr := ITEMS[Lstindex];
                              Maxlength := 0;
                              Cpi:=1;
                              WHILE (Canvas.TEXTWIDTH(COPY(ITEMS[Lstindex],1,Cpi))<=Listtitrewidth) AND (Cpi<=LENGTH(ITEMS[Lstindex])) DO
                              BEGIN
                                    IF ITEMS[Lstindex][Cpi]=' ' THEN Maxlength:=Cpi;
                                    INC(Cpi);
                              END;{}
                              lngtmp := COPY(ITEMS[Lstindex],Maxlength+1,LENGTH(ITEMS[Lstindex]));
                              // positionnement du hint
                              Hintpos := Clienttoscreen(Point(Canvas.TEXTWIDTH(COPY(ITEMS[Lstindex],1,Maxlength))-1, Itemheight * (Lstindex - Topindex)-GetSystemMetrics(SM_CYFRAME)+4));
                              hintcolored(Canvas,Hintinfo,Itemindex,Lstindex,lngtmp,color,font.color);
                        END;
                  END;
            END;
      END;
END;
 
procedure TForm1.FormCreate(SENDer: TObject);
begin
      Listbox.ItemIndex:=0;
      ListCombo.ItemIndex:=0;
      Comboboxexit:=true;
      Application.ShowHint := True;
      Application.OnIdle := ApplicationIdle;
      Application.OnShowHint := AppShowHint;
END;
 
procedure TForm1.ApplicationIdle(sender: TObject; var Done: boolean);
var
  pt: TPoint;
  wnd: HWND;
  lngtmp: array[0..128] of Char;
  cpi: Integer;
 
begin
  GetCursorPos(pt);
  wnd := WindowFromPoint(pt);
  If wnd <> 0 then
    begin
      lngtmp[0] := #0;
      GetClassName(wnd, lngtmp, SizeOf(lngtmp));
      if StrIComp(lngtmp, 'ComboLBox') = 0 then
        begin
          Windows.ScreenToClient(wnd, pt);
          cpi := SendMessage(wnd, LB_ITEMFROMPOINT, 0, Integer(PointToSmallpoint(pt)));
          if cpi >= 0 then
            begin
              SendMessage(wnd, LB_GETTEXT, cpi, Integer(@lngtmp));
              Label1.Caption := lngtmp;
              exit;
            end;
        end;
    end;
end;
 
END.

la fiche:

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
 
object Form1: TForm1
  Left = 541
  Top = 168
  Hint = 'test'
  BorderStyle = bsSingle
  Caption = 'Patisserie'
  ClientHeight = 297
  ClientWidth = 232
  Color = 8534605
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  ShowHint = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 248
    Width = 32
    Height = 13
    Caption = 'Label1'
  end
  object ListBox: TListBox
    Left = 8
    Top = 24
    Width = 217
    Height = 208
    Style = lbOwnerDrawFixed
    Color = 12446463
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 13
    Items.Strings = (
      'pâtisseries françaises typiques :  Le Paris-Brest'
      'pâtisseries françaises typiques :  La Brioche'
      'pâtisseries françaises typiques :  Les Chouquettes'
      'pâtisseries françaises typiques :  Le Chou'
      'pâtisseries françaises typiques :  L’Éclair'
      'pâtisseries françaises typiques :  La Charlotte aux fraises')
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    OnDrawItem = ListBoxDrawItem
    OnMeasureItem = ListBoxMeasureItem
  end
  object ListCombo: TComboBox
    Left = 8
    Top = 2
    Width = 217
    Height = 19
    Style = csOwnerDrawFixed
    Color = 12446463
    DropDownCount = 13
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 13
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    OnDrawItem = ListBoxDrawItem
    OnEnter = ListComboEnter
    OnExit = ListComboExit
    OnMeasureItem = ListBoxMeasureItem
    Items.Strings = (
      'pâtisseries françaises typiques :  Le Paris-Brest'
      'pâtisseries françaises typiques :  La Brioche'
      'pâtisseries françaises typiques :  Les Chouquettes'
      'pâtisseries françaises typiques :  Le Chou'
      'pâtisseries françaises typiques :  L’Éclair'
      'pâtisseries françaises typiques :  La Charlotte aux fraises')
  end
end

cela fonctionne bien dans un listbox par contre je n'arrive pas a le faire dans le menu d�rroulant du tcombobox
il n'y a pas de : Lstindex := Itematpos(Cursorpos, TRUE); dans Tcombobox
ensuite je suis pass� par 'ApplicationIdle' pour savoir quel item est affich� (Label1.Caption) mais je ne sais pas comment l'afficher dans l'aide contextuelle.

merci de vos aides

Images attach�es

Fichiers attach�s

patisseries.zip (213,0 Ko)

fermeture de Fiche non modal

looping — Fri, 20 Mar 2026 09:03:47 GMT

Bonjour,

J'aurais besoin d'une pr�cision sur les fermeture de Fiche non Modal:

je ferme et lib�re la Form 2 de cette mani�re:

Code:

1
2
3
4
5
6
7
8
9
10
 
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if Sender = Form2 then Action:=caFree;
end;
 
procedure TForm2.FormDestroy(Sender: TObject);
begin
if Sender=Form2 then Form2:=nil;
end;

Est ce que le code dans FormDestroy est utile ?

L'appel a �t� fait comme ceci depuis Form1

Code:

1
2
3
4
5
6
 
  form2:=Tform2.Create(Self);
  try
  form2.Show;
  except
  FreeAndNil(form2);

Cordialement

Equivalent d'un case avec String et m�me plus

gbegreg — Sun, 15 Mar 2026 20:38:35 GMT

Bonsoir,

Petite r�flexion du week-end concernant l'instruction case de Delphi qui n'autorise que des types ordinaux. Donc, ne fonctionne pas par exemple avec une string. Il existe plusieurs mani�res de contourner et de parvenir au r�sultat telles que ce qui est propos� dans la FAQ de D�veloppez.

En Java par exemple, l'instruction Switch a �volu� lors des versions r�centes et en plus d'accepter les string, l'instruction switch peut renvoyer une valeur pour initialiser une variable. J'ai donc essay� de trouver une solution qui permette de faire l'�quivalent d'un case mais avec n'importe quel type (et pas en ajoutant que la possibilit� avec une string) et qui permette d'initialiser la valeur d'une variable.

L'id�e est simplement d'utiliser les TDictionary. Dans le projet exemple joint (compatible en l'�tat avec Delphi 13 car utilisation de l'op�rateur ternaire mais facilement modifiable pour le rendre compatible avec Delphi 12 et 11), je pr�sente 3 exemples bas�s sur le principe suivant.
Exemple d'un case potentiel sur une variable de type string pour alimenter une variable de type integer :

Code:

1
2
3
4
5
6
var nb := 0;
case uneString of
  'un': nb := 1;
  'deux': nb := 2;
  'trois': nb := 3;
end;

On peut initialiser la variable nb de la mani�re suivante :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
// Initialiser un TDictionary 
var dSimple:= TDictionary <string, integer>.Create;
dSimple.add('un', 1);
dSimple.add('deux', 2);
dSimple.add('trois', 3);
 
[...]
 
// Initialisation de la variable nb 
var aValue := 0;
var nb := if dSimple.TryGetValue(cbeSimple.Text.ToLower, aValue)
                     then aValue
                     else 0;

Avantages : c'est donc l'�quivalent d'un case sur une variable de type string, qui permet d'initialiser une variable et il serait m�me possible de rajouter dynamiquement des cas non pr�vus dans le code initial (on pourrait initialiser le TDictionary via une requ�te SQL, via lecture d'un fichier de param�trage, via un appel d'API...).

Les deux autres exemples du projet joint sont similaires mais pour lesquels le TDictionary est toujours constitu� d'une cl� de type string (mais n'importe quel autre type serait possible) et le type des valeurs est soit une proc�dure soit une fonction ce qui permet plus de souplesse (n'importe quel traitement est envisageable).

Voil�, si �a peut servir � quelqu'un ;)

Fichier Zip du projet exemple : case-tdictionary.zip

Fichiers attach�s

case-tdictionary.zip (76,1 Ko)

S'agit-il d'un nouveau bug de la classe TControl, ou est-il d�j� connu de tous ?

emailx45 — Thu, 19 Feb 2026 05:56:49 GMT

S'agit-il d'un nouveau bug de la classe TControl, ou est-il d�j� connu de tous*?

Lorsqu'on utilise un objet comme TCustomPanel ou d'autres objets d�riv�s de TControl (en fait, presque tous), et qu'on tente d'effectuer un redimensionnement par effet miroir (o� la propri�t� �*Width*� devient �*Left*� et inversement, et la propri�t� �*Height*� devient �*Top*� et inversement), le contr�le se bloque � certains moments lors du calcul. Pendant 16*instants (ou pixels), il reste fig�, comme on peut le voir dans la vid�o*!

Remarque*: lorsque la souris atteint une certaine valeur, le compteur r�gresse � des valeurs comprises entre +8, 0 et -8 (soit 16 + 1), avec un �cart de 24. Ce cycle se r�p�te pour d'autres valeurs, comme le montre l'image� qui d�montre qu'il s'agit de multiples de 8, ce qui correspond aux bordures de la fen�tre, qui font, sauf erreur de ma part, 8*pixels.

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
 
unit Unit1;
 
interface
 
uses
  System.SysUtils,
  System.Classes,
  Vcl.Controls,
  Vcl.StdCtrls,
  Vcl.ExtCtrls;
 
type
  TMy_PNL_Teste = class( TCustomPanel )
  private
    LCmp: TComponent;
  protected
    procedure Resize; override;
  end;
 
implementation
 
{ TMy_PNL_Teste }
 
procedure TMy_PNL_Teste.Resize;
begin
  inherited;
  LCmp := Parent.FindComponent( 'Label1' );
  if ( LCmp <> nil ) then
    TLabel( LCmp ).Caption := Format( '(%d, %d)', //
      [ Width, Height ] );
end;
 
end.

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
 
unit umy_component_register;
 
interface
 
uses
  System.SysUtils,
  System.classes,
  //
  DesignIntf,
  DesignEditors;
 
procedure Register;
 
implementation
 
uses
  Unit1;
 
procedure Register;
begin
  RegisterComponents( 'My Components', [ TMy_PNL_Teste ] );
end;
 
end.

Je suppose que la m�thode `DoConstrainedResize` est � l'origine de l'erreur de calcul. En effet, si vous observez attentivement, vous constaterez que lors du calcul de la largeur maximale, la largeur minimale n'est pas calcul�e*; autrement dit, la m�thode v�rifie si l'une est hors de l'intervalle, mais pas l'autre. Le m�me comportement est observ� pour la hauteur. Je pense que c'est incorrect, car l'intervalle de valeurs devrait se situer entre la largeur minimale et la largeur maximale, et non pas seulement entre l'une des deux*!

Cependant, comme `NewWidth` et `NewHeight` sont utilis�es et modifi�es par d'autres m�thodes, l'origine exacte de l'erreur reste incertaine.

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
 
procedure TControl.DoConstrainedResize(var NewWidth, NewHeight: Integer);  // Vcl.Control.pas, line 7774, Delphi 13
var
  MinWidth, MinHeight, MaxWidth, MaxHeight: Integer;
begin
  if Constraints.MinWidth > 0 then
    MinWidth := Constraints.MinWidth
  else
    MinWidth := 0;
  if Constraints.MinHeight > 0 then
    MinHeight := Constraints.MinHeight
  else
    MinHeight := 0;
  if Constraints.MaxWidth > 0 then
    MaxWidth := Constraints.MaxWidth
  else
    MaxWidth := 0;
  if Constraints.MaxHeight > 0 then
    MaxHeight := Constraints.MaxHeight
  else
    MaxHeight := 0;
 
  { Allow override of constraints }
  ConstrainedResize(MinWidth, MinHeight, MaxWidth, MaxHeight);
 
  if (MaxWidth > 0) and (NewWidth > MaxWidth) then       <-------
    NewWidth := MaxWidth
  else if (MinWidth > 0) and (NewWidth < MinWidth) then
    NewWidth := MinWidth;
 
  if (MaxHeight > 0) and (NewHeight > MaxHeight) then     <-------
    NewHeight := MaxHeight
  else if (MinHeight > 0) and (NewHeight < MinHeight) then
    NewHeight := MinHeight;
end;

Images attach�es

[D7] Violation d'acc�s

Charly910 — Tue, 03 Feb 2026 10:37:21 GMT

Bonjour � tous,

je cherche � cr�er un TBitmap avec cette fonction :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
{ ========================================================================= }
Function CreateNewBitmap(Width,Height: Word; Color: TColor) : TBitmap ;
var
 bmp : TBitmap;
begin
 bmp := TBitmap.Create;
 try
   bmp.PixelFormat := pf24bit;
   bmp.Width := Width;
   bmp.Height := Height;
   bmp.Canvas.Brush.Color := Color;
   bmp.Canvas.FillRect(Rect(0, 0, Width, Height));
   Result.Assign(Bmp) ;                                          <== Erreur ici
 finally
   bmp.Free;
 end;
end;
{ ========================================================================= }

J'ai une violation d'acc�s sur la ligne point�e surement parce ce que Result n'a pas �t� cr��. Est ce que je dois faire un create sur le Bmp Result ?

A+
Charly

form et constraint

looping — Wed, 14 Jan 2026 09:50:45 GMT

Bonjour,

Un truc que je n'avais pas remarqu�:

Lorsque je r�duis une "form" dans la barre des tache et que je la fais r�apparaitre: je perds mes contraintes en hauteur.

Voici les r�glages utilis�s:

Lorsque j'ouvre la feuille la 1�re fois, pas de probl�me , mes contraintes sont respect�es: je peux r�gler en hauteur de 650 � 905

Par contre si je la r�duis et que je la fais r�apparaitre: les contraintes en hauteurs sont perdues: on peut �tirer en hauteur sans contrainte ?

Je suis en Delphi XE5

Cordialement

Images attach�es

Comment trouver ce qui provoque une Exception D�bordement d'entier

Gouyon — Fri, 09 Jan 2026 07:31:39 GMT

Bonjour

J'ai un gros programme assez complexe qui de temps en temps plante avec une exception d�bordement d'entier.
Le probl�me c'est que je n'arrive pas � savoir o� ce produit cette exception. De plus �a se produit plus ou moins al�atoirement du coup c'est tr�s difficile � reproduire.
En version de debug je m�arr�te sur la procedure _InternalRaiseAtExcept de l'unit� system.
Et si je poursuis le pas � pas je me retrouve dans l'unit� principale de mon programme mais impossible d'examiner les variables pour voir laquelle a d�clench� l'exception.
Existe t'il un moyen de voir ce qui d�clenche cette exception ou des outils d'analyse de code qui permettent de signaler les probl�mes potentiel

Affichage champ vectoriel

j.p.mignot — Wed, 07 Jan 2026 12:57:43 GMT

J'ai un fichier de n lignes et 6 colonnes.

Chaque ligne continent Y, Y, Y, Vx, Vy, Vz o� [X,Y,Z] repr�sentent les coordonn�es d'un point dans l'espace et [Vx, Vy, Vz] les coordonn�es d'un vecteur en [X,Y,Z]

On peut �crire cela V(X,Y,Z) = ( Vx, Vy, Vz) ou f(P)=V ceci pour n points (X,Y,Z)

est-il possible de repr�senter ce champ vectoriel avec des outils de delphi (comme open-gl ou autre).
D�ailleurs la r�ponses pourrait �tre hors delphi.

Voir la "longueur" d'un vecteur en 3D+perspective �tant quasi impossible, j'imagine pouvoir tracer un array de fl�ches ou c�nes, tous de m�me norme, orient� dans la direction de V en chaque point P et coder la norme de V en chaque point par la couleur de l'objet qui le repr�sente

Merci pour vos suggestions.

Probl�me de compilation

petitcoucou31 — Sun, 16 Nov 2025 20:14:51 GMT

Bonjour � tous,

Je suis actuellement sous W10, Delphi RIO , Pack composants TMS. Aucune modification � l'environnement de dev n'a �t� apport�e, ni mise � jour....

J'ai seulement fait une recopie int�grale de ma structure de d�veloppement pour creer une nouvelle version.

Voila mon probl�me.

J'ai une DLL (parmi d'autres) que je compile sans erreur depuis plusieurs ann�es, mais depuis quelques jours m�me si la compilation est correcte, les modifications que j'y apporte ne sont pas prises en compte dans la DLL compil�e.

Voici mes observations:

Quand je regarde dans le r�pertoire de destination des DLL de l'application, la date et l'heure de la compilation de la DLL sont correctes.
Le chemin de destination des DLL compil�es est correct.
Le nom de l'h�te (pour son ex�cution) qui utilise la DLL est correct.
Quand je retire la DLL en question, l'application d�tecte bien son absence

Tous cela laisse penser que la DLL que je compile se trouve bien � l'endroit ou l'application doit la trouver.

Remarque :

Ni les modifications dans le code, ni celles dans la fiche (par exemple ajout d'un composant) ne sont prises en compte.

J'ai essay� de modifier deux autres DLL de cette application qui suit exactement le m�me processus de cr�ation des fiches, de dialogue ... , tous ce passe bien et parmi les 30 DLL qui sont associ�es � cette application, elle semble �tre la seule � faire cela.

J'ai ouvert le source de la DLL dans l'�diteur Delphi et j'ai supprim� Tous les fichiers en rapport a cette DLL, et sauvegard� l'ensemble pour remplacer des fichiers qui serait corrompu...!

Si je compile cette DLL dans une version pr�c�dente de l'application, elle prend en compte les modifications, et quand je d�place la DLL compil�e dans la version actuelle de l'application le fonctionnement est conforme.

Et la je suis a court d'id�e, je n'arrive toujours pas a visualiser mes modifications, ni visuelle dans la fiche, ni fonctionnelle dans le code, quand je suis dans la structure de ma derni�re version de l'application

Des id�es, des pistes ?

Bonne soir�e.

Police syst�me diff�rente entre D7 et D10

f6dqm1 — Sun, 16 Nov 2025 19:05:05 GMT

Bonjour. Je viens de d�couvrir que le m�me code pour lire la police syst�me ne me retourne pas ma m�me valeur suivant que je compile sous D7 ou sous D10.2.
Le code est le suivant :

Code:

1
2
3
4
5
6
7
8
9
var 
    dc:HDC;
    result:integer;
begin
    dc:=GetDC(0);
    result:=GetDeviceCaps(dc,LOGPIXELSX);
    ReleaseDC(0,dc);
    ....
end;

Si mes param�tres d'affichage Windows (Windows10) sont � 100%, pas de souci, les deux compilations me renvoient result=96 (normal).
Si je passe � 125% en param�tre d'affichage, la compilation D7 me renvoie toujours 96 (???) et la compilation D10 me renvoie 120 (normal).
Une id�e ?
Gab

mail avec jvmail

looping — Fri, 24 Oct 2025 07:51:55 GMT

Bonjour,

Lorsque j'envoie un mail avec le compo "jvmail" , Outlook s'ouvre bien , et je peux envoyer mon mail.
Par contre , Outlook passe au premier plan , et avant d'envoyer le mail, je ne peux pas acc�der � d'autre fen�tres, ou revenir � mon application: je dois absolument envoyer le mail.

C'est un comportement que me reprochent souvent mes utilisateurs.
Est ce qu'il y a moyen de rendre Outlook en arri�re plan ?

Cordialement

Numero build auto

looping — Tue, 07 Oct 2025 08:54:53 GMT

Bonjour,

Sur Delphi XE5, j'ai activ� l'incr�mentation auto du num�ro de build.
Mais sans succ�s. Le chiffre ne change pas.

D'apr�s une page d'aide Embarcadero , il faut cr�er la variable d'environnement "SAVEVRC" et mettre sa valeur � TRUE.
Ce que j'ai fait et le fichier *.vrc est bien cr�e dans le r�pertoire du projet.

Mais le build ne s'incr�mente toujours pas .... !
Est ce qu'il manque quelque chose ?

Cordialement

bug sur enchainement de fen�tre

looping — Thu, 02 Oct 2025 15:00:08 GMT

Bonjour,

J'ai parfois un bug bloquant qui survient lorsque je navigue entre diff�rentes fen�tres.

Quand je sors du bug , l'interface Delphi (XE5) ouvre un nouvel onglet avec l'unit� VCL.menus et �a pointe une erreur dans la routine suivante:

Code:

1
2
3
4
5
6
 
function TMenuItem.GetCount: Integer;
begin
  if FItems = nil then Result := 0
  else Result := FItems.Count;
end;

Surement en rapport avec les menus ? Mais je vois pas ?

Merci

Delphi Rad Studio 12 - obtenir le chemin absolu du fichier principal de mon projet � l'execution

dibak — Sat, 27 Sep 2025 17:32:44 GMT

Bonjour !
S'il vous plait, serait-il possible d'avoir le chemin complet de mon fichier projet (monprojet.dproj) pendant la phase d'execution de mon proramme.

merci d'avance de vos r�ponses.
cordialement,
Dibak

B-Tree ou R/B-Tree avec cl�s en format string, bas� sur disque ?

KlausGunther — Sat, 27 Sep 2025 13:17:22 GMT

Bonjour,

Je suis sous Windows 11 avec Delphi 6 PE.

Je cherche une impl�mentation d'un B-Tree ou d'un Red-Black-Tree en delphi avec des cl�s string, mais bas� sur disque, pas en m�moire.
J'ai bien trouv� un R/B-Tree op�rationnel avec D6 PE, mais il est bas� m�moire.

Je parle bien d'une unit� ou d'un composant impl�mentant un tel arbre, pas d'une base de donn�es compl�te comme SQLite ou similaire.