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

Probl�me avec l'ajout d'un label aux points d'une s�rie de type TPoint

j.p.mignot — Mon, 01 Jun 2026 10:02:49 GMT

Lorsque je trace une fonction y=f(x) via 2 tableaux Xi, yi j'obtiens (par exemple dans le cas pr�sent la densit� spectrale d'�nergie avec la fr�quence)

Tout se passe bien. On notera les �chelles de l'axe x (fr�quences)

Maintenant j'estime certains pics via des fit paraboliques. On obtient alors

L'�chelle x est toujours OK
Les maximums ont �t� rep�r�s par l'adjonction de points via:
punkt1.Addxy(d,d6);
Maintenant pour des facilit�s de lecture du graphe j'ai voulu rep�rer chacun de ces maxima par le N� d'ordre (correspondant � la fen�tre de la l�gende.
J�ai alors utilis�:
punkt1.Addxy(d,d6,inttostr(n_fit_realized), $555555);
Le r�sultat obtenu est alors:

Les N� de pics sont biens report�s mais cela a aussi "ruin�" l'axe x... toutefois "quelque part" il reste OK car les autres courbes sont bien positionn�es.
(Toutes les courbes se r�f�rent au m�me axe bottomaxis)

Comment puis-je afficher les N� tout en pr�servant mon axe x?

Merci par avances pour vos remarques et suggestions.

Images attach�es

Question sur une fonction test:Tsringlist;

ZonZorg — Wed, 27 May 2026 19:23:51 GMT

j'ai une fonction test:Tsringlist;
je me demande si il faut liberer la fonction apres
en faisant un test.free

example

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
function test:Tstringlist;
begin
    result:=Tstringlist.Create;
    result.add('un');
    result.add('deux');
    result.add('trois');
end;
 
begin
    T1:=Tstringlist.Create;
    T1.AddStrings(test);
{ici -->}  test.Free;
    T1.Free;
end.

je sais que l'on peut faire T1.add mais c'est juste (dans mon example) pour savoir si le Tstringlist est liber� apres la fonction (ou pas) ?.

[D7] Hint avec Image

Charly910 — Wed, 27 May 2026 11:50:58 GMT

Bonjour,
j'ai un Checklistbox, dont les items sont des nom de fichiers image Jpeg ou Bmp. J'aimerais que lorsque le pointeur de la souris survole un item, on affiche une vignette de l'image.

J'ai vu qu'il existe THintWindows, mais je ne trouve pas d'exemple et je ne sais pas comment faire. Il faudrait surement que je fasse une classe d�riv�e de THintWindows.

Quelqu'un a t il un exemple pour que je puisse d�marrer ?

A+
Charly

Recherche de fuite m�moire avec FastMM

SergioMaster — Sun, 03 May 2026 07:17:21 GMT

Bonjour,

cela fait un bail que je n'ai pas utilis� FastMM et je n'arrive pas � g�n�rer le rapport

je joint pour ceux qui connaissent, le fichier FastMM4Options.inc modifi�.

L'unit� de mon projet commence bien par FastMM4.

Code:

1
2
3
4
5
6
7
8
program testenumobject;
 
// en note ce qui a été modifié  
{.$define FullDebugMode}
{.$define LogMemoryLeakDetailToFile}
 
uses
  FastMM4,

et pourtant je ne trouve nulle part le fichier :arf: Je dois avoir oubli� quelque chose mais quoi ?
comme je ne me souviens plus de la dmarche que je suivais, je ne sais plus si :
Il faut d�clarer le fichier inc dans le projet
Il faut mettre le fichier inc dans le repertoire de l'application ou celui des sources
etc...

Question subsidaire, j'ai FastMM4 mais j'ai vu qu'il y avait la version FastMM5 de dispo dois-je plut�t utiliser cette derni�re ?

Images attach�es

Fichiers attach�s

FastMM4Options.inc.txt (20,6 Ko)

[D12 +] utilisation du type record

SergioMaster — Wed, 29 Apr 2026 08:51:53 GMT

Bonjour,

Jusque l� je n'avais jamais vraiment utilis� de Record voici celui que j'ai cr�� (vous m'excuserez pour les noms de propri�t� ce n'est qu'un essai

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
unit dialoguetypes;
 
interface
type  specialdirs = Record
  private
    Fname: String;
    Ficonnumber: integer;
    Ffullname: String;
    procedure Setfullname(const Value: String);
    procedure Seticonnumber(const Value: integer);
    procedure Setname(const Value: String);
  public
   property name : String read Fname write Setname;
   property fullname : String read Ffullname write Setfullname;
   property iconnumber : integer read Ficonnumber write Seticonnumber;
   constructor Create(aname,apath : string; aicon : integer=1);
  end;
implementation
 
{ specialdirs }
 
constructor specialdirs.Create(aname, apath: string; aicon: integer=1);
begin
name:=aname;
fullname:=apath;
iconnumber:=aicon;
end;
 
procedure specialdirs.Setfullname(const Value: String);
begin
  Ffullname := Value;
end;
 
procedure specialdirs.Seticonnumber(const Value: integer);
begin
  Ficonnumber := Value;
end;
 
procedure specialdirs.Setname(const Value: String);
begin
  Fname := Value;
end;
 
end.

voil� comme je voudrais l'utiliser, sauf que j'ai un probl�me (sinon je n'aurais pas fait de post)

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
  TForm1 = class(TForm)
..
private
   ... 
   property pinneddirs : TList read Fpinneddirs write Setpinneddirs;
..

procedure TForm1.Setpinneddirs(const Value: TList);
var anItem : TTreeviewItem;
    d : specialdirs;
begin
  Fpinneddirs := Value;
  for var i:=0 to Fpinneddirs.count-1 do
    begin
      d:=Fpinneddirs[i];
      anitem:= TTreeviewItem.Create(self);
      anItem.Parent:=TreeView1;
      anItem.Text:=d.name;   // PLANTON voir image, les valeurs ne sont pas bonnes
      anItem.Index:=i;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var d : specialdirs;
begin
PinnedDirs:=TList.Create([d.Create('test','c:\test',1),d.Create('2test','C:\test2')]);
end;

Images attach�es

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