Problème :

Delphi 7 :

Une Form avec un ComboBox

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;
 
type
  TForm1 = class(TForm)
    Cb_Test: TComboBox;
    StatusBar: TStatusBar;
    Button1: TButton;
    procedure Cb_TestChange(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Cb_TestChange(Sender: TObject);
begin
     StatusBar.SimpleText:= Cb_Test.Text;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
     with Cb_Test.Items do
     begin
          Clear;
          Add('');
          Add('A');
          Add('B');
          Add('C');
          Add('D');
     end;
end;
 
end.
Aprés compilation ce code tout simple fonctionne sans problème sur une machine XP (heureusement)

Mais si on place le programme sur une machine Windows 2000 et que l'on sélectionne l'élément vide du combobox un message d'erreur apparait :
Violation d'accés à l'adresse xxxxxx dans le module 'ntdll.dll'.

Quelqu'un a t'il déja rencontré ce problème ?

Merci !