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

Modifier une unit� de Delphi (FMX.Styles) et faire en sorte qu'elle s'applique

SergioMaster — Fri, 21 Aug 2026 08:04:27 GMT

Bonjour,

J'ai d�couvert une lacune dans une unit� "standard" (FMX.Styles).
Apr�s �tude et test dans une unit� classique dans le r�pertoire du programme, j'ai voulu modifier l'unit� fournie par Embarcadero, donc directement dans le r�pertoire source (C:\Program Files (x86)\Embarcadero\Studio\xxxx\source)
Bien s�r, je sais que le fichier est prot�g� en �criture mais avec Notepad++ en mode administrateur pas de souci ;)
Le hic c'est que, si le source est bien modifi� je n'ai pas le r�sultat attendu. Certainement un probl�me de dcu(s) � recompiler mais comment faire (sachant que cette unit� est utilis� par FMX.Controls et quelques autres)?
J'ai soumis le bogue sur le portail qualit� mais, en attendant la prochaine version, il serait plus agr�able d'utiliser l'unit� "standard" que mon unit� bidouill�e.

Quelqu'un a d�j� eu ce genre de souci ?

Renommer un r�pertoire en conservant le contenu

mballasse — Thu, 23 Jul 2026 06:46:02 GMT

Bonjour � toutes et tous,

Je poste ici ce message car je s�che litt�ralement.

Mon besoin est tr�s simple (me semblait-il au d�part) :

J'ai un R�pertoire : D:\Fichiers\20260712_DA_998_LIBELLEA qui contient des sous-r�pertoires Email, PDF, Photos, Signatures et ZIP.
Chacun de ces sous-r�pertoires peut contenir (ou pas) des fichiers (.eml dans le sous-r�pertoire Email, .pdf dans le sous-r�pertoire PDF, .jpg dans le sous-r�pertoire Photos, .jpg dans le sous-r�pertoire Signatures et .zip dans le sous-r�pertoire Zip)

J'ai besoin de renommer le r�pertoire D:\Fichiers\20260712_DA_998_LIBELLEA en D:\Fichiers\20260712_DA_336B_LIBELLEB en conservant bien �videmment la structure et les fichiers comme dans le r�pertoire Source.

J'ai bien essay� de multiples solutions :
RenameFile de Delphi,
MoveDirectory de la librairie Jcl
des fonctions telle que celle-ci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
  function MoveDir(SrcDir, DstDir: string): Boolean;
  var
    FOS: TSHFileOpStruct;
  begin
    ZeroMemory(@FOS, SizeOf(FOS));
    with FOS do
    begin
      wFunc  := FO_MOVE; // FO_COPY;
      fFlags := FOF_NOCONFIRMATION or FOF_SIMPLEPROGRESS or FOF_SILENT or FOF_ALLOWUNDO;
      pFrom  := PChar(IncludeTrailingPathDelimiter(SrcDir) + '*.*'#0);
      pTo    := PChar(DstDir + #0);
    end;
    Result := (SHFileOperation(FOS) = 0);
  end;

Rien n'y fait, cela me duplique bien l'arborescence, mais pas le contenu des sous-r�pertoieres
Ai je loup� un truc tellement �vident que je ne l'ai pas vu
Ou y a t il une solution dui fonctionne ?

Pour information, voici mon environnement de d�veloppement : Windows 11 Pro, Delphi XE6 Update 1 avec librairies, Jcl/Jvcl et RxUnits (je sais cela fait double emploi, mais je n'ai pas encore eu le temps de tout migrer vers Jcv/Jvcl)

Par avance merci pour votre aide

Tri de liste avec TList.Sort : diff�rence entre 32 et 64 bits ?

pascal07 — Sun, 05 Jul 2026 17:21:57 GMT

Bonjour

Avec la proc�dure TList.Sort,
j'utilise le code suivant ( en bas ) pour trier mes listes d'objet.
sous Delphi 10, 32 bits: OK, depuis des ann�es

En Delphi 10, 64 bits, �a ne fonctionne plus ! Le tri n'est pas r�alis�.

Commet modifier le code ?
Que se passe t'il ?

J'ai des dizaines de tri de ce type dans mes logiciels...

Merci, Pascal07300

==================== mon code exemple =============

Exemple 32 bits : Tri d'une liste de TFolio, par Nom ou par ordre alphab�tique du Nom.

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
 TFOLIO = class
      Nom:string;
      Ordre:integer;
    ...
 
 
// ACode = 1 : Tri par ordre alphabétique Nom
// ACode = 2 : tri par Ordre ( = Index dans la liste des folios )
procedure TListFolio.TrierSelonOrdre (ACode:integer;ATriAlpha:TTriAlpha);
 
  function LocalCompare1 (F0,F1:TFolio): Integer;
  begin
    Result := AnsiCompareText (F0.Nom,F1.Nom);
  end;
 
  function LocalCompare2 (F0,F1:TFolio): Integer;
  begin
    Result := CompareValue (F0.Ordre,F1.Ordre);
  end;
 
begin
  case ACode of
    1 : Sort (@LocalCompare1);
    2 : Sort (@LocalCompare2);
  end;
end;

Sans virus.www.avast.com

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