Discussion :

[Charly910]

Bonjour et bonne année à tous,

j'ai un petit problème avec Delphi 7, sous win32 et Windows 10 , avec XpMan. Je joins une petite appli toute simple qui le montre :

Project1.zip

quand j'ajoute XpMan à ma fiche principale et que j'exécute, si j'appuie sur la touche Alt Gr, le bouton Fermer disparait de la fiche. Quelqu'un pourrait il me dire comment contourner ce bug, sans enlever XPman (qui donne le look W10 à mon bouton) ?

Cela fait un moment que je développe en D7 et parfois avec XPman, et je n'avais jamais remarqué ce bug (peut être qu'il ne se produisait pas avant W10 ?)

A+
Charly

[Invité]

Bonsoir,

De ce que je vois cela est corrigé (remonté sous Vista à l'époque) ou du moins peux être contourné en touchant un peu au source

http://qc.embarcadero.com/wc/qcmain.aspx?d=37403

[guillemouze]

Oui cela est présent depuis windows 7 (pas vérifié sur vista).
Moi j'ai utilisé ce correctif la il me semble : https://marc.durdin.net/2012/01/revi...unit-pas-code/

[Charly910]

Bonjour,

j'ai essayé la solution de Retwas. J'ai téléchargé VistaAltFixUnit.pas sur http://cc.embarcadero.com/item/24282
j'ai ajouté au projet l'unité VistaAltFixUnit.Pas et le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Uses  ....  , VistaAltFixUnit ;
...
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  TVistaAltFix.Create(Self);
end;

ça ne fonctionne pas, j'ai toujours le bug
(je n'ai pas essayé d'installer le composant)

A+
Charly

[Charly910]

@guillemouze : merci pour le lien, mais j'ai essayé avec VistaAltFixUnit2 et cela ne corrige pas le bug.

PS : quel rapport avec Vista ? je suis sous W10

A+
Charly

[Charly910]

J'ai trouvé une solution pas géniale, mais qui fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
{ mettre Form1.KeyPreview à True }
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (Shift = [ssAlt, ssCtrl])  then
  begin
     Button1.Invalidate ;
  end;

Inconvénient, il faut le mettre dans chaque Form et pour tous les boutons !

Si quelqu'un a mieux ...

A+
Charly

Ps : et aussi pour tous les CheckBox et RadioButton !!!