Discussion :

[Oeildelynx]

Bonjour à tous,

Lors du changement de style de mon application via une sélection dans un combobox et la validation par un TBitBtn, j'obtiens l'erreur suivante :
"Violation d'accès à l'adresse 005FA857 dans le module "FindPic.exe" lecture de l'adresse 00000010".

Le code utilisé est le suivant :

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
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Menus, IBDatabase, DB, IBCustomDataSet, IBQuery, jpeg,
  ExtCtrls, ComCtrls, clipbrd, XPStyleActnCtrls,
  ActnList, ActnMan, ShellAPI, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, Vcl.Themes,
  IdGlobal, IdHash, IdHashMessageDigest;
 
  private
    { Private declarations }
  public
    { Public declarations }
  fdefaultStyleName:String;
  end;
 
procedure TForm1.ValiderClick(Sender: TObject);
begin
 if Assigned(TStyleManager.ActiveStyle) then
 begin
   TStyleManager.TrySetStyle(ChoixTheme.Text);
 end
 else
 begin
   TStyleManager.TrySetStyle(fdefaultStyleName);
 end;
end;

A la suite de cette erreur, le thème graphique de l'application est bien modifié, la violation d'accès n'est pas bloquante, mais seulement pas très jolie.
Je n'arrive pas à trouver d'où cela peut provenir. L'un d'entre-vous aurait-il une idée, ou saurait-il comment pouvoir diagnostiquer les violations d'accès et les corriger ?

Vous remerciant par avance pour votre réponse.

Josh'

[Ph. B.]

Bonjour,

Lors du changement de style de mon application via une sélection dans un combobox et la validation par un TBitBtn, j'obtiens l'erreur suivante :
"Violation d'accès à l'adresse 005FA857 dans le module "FindPic.exe" lecture de l'adresse 00000010".

Le code utilisé est le suivant :
...

Le code présenté ne couvre qu'une petite partie du code utilisé...
D'autre part, quelle version de Delphi est utilisée ?

A la suite de cette erreur, le thème graphique de l'application est bien modifié, la violation d'accès n'est pas bloquante, mais seulement pas très jolie.
Je n'arrive pas à trouver d'où cela peut provenir. L'un d'entre-vous aurait-il une idée, ou saurait-il comment pouvoir diagnostiquer les violations d'accès et les corriger ?

En traçant pas à pas l'exécution de votre application...

Sinon, un test rapide avec Delphi XE2 et XE8 (en complétant le code fourni) ne fait apparaitre aucune erreur...