[Delphi 7] Problème avec XpMan

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 :

Pièce jointe 232154

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

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 :aie:

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

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/

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:

---

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

@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

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

Code:

---

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 !!!

Sinon je pense que l'on peut faire :

Code:

---

1 2 3 4 5 6 7 8 9

{ mettre Form1.KeyPreview à True } Procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Var i : Integer ; Begin If (Shift = [ssAlt, ssCtrl]) Then For i:=0 to ControlCount-1 do Controls[i].Invalidate ; End;

---

car tous les Controls ont une méthode Invalidate ?

ça à l'air de fonctionner et d'être invisible à l'exécution.

A+
Charly

Bonjour,
bonne et heureuse année 2017 à toutes et à tous.

il semble qu'un simple appel à Invalidate dans le OnCreate suffit !!! ;)

Code:

---

1 2 3 4

procedure TForm1.FormCreate(Sender: TObject); begin Invalidate; end;

---

ps: en fait c'est la touche Alt qui provoque l'erreur et du coup AltGr aussi

@+

Bonjour Cirec et bonne année à toi aussi

J'essaye de ce pas ...

A+
Charly

j'ai remis le keypreview à False et enlevé le OnKeydown

J'ai ajouté Invalidate dans le onCreate de la form, mais cela ne fonctionne pas : les boutons disparaissent si on appuie sur Alt ou sur AltGr ?

Cela me semble d'ailleurs plus logique de le mettre dans le OnKeyDown ? le Oncreate n'a lieu qu'une seule fois à la création de la fiche ?

A+
Charly

Alors là ...

le problème est encore plus bizarre ... chez moi la bidouille fonctionne parfaitement à tous les coups jusqu'à ce que je démarre ton exemple de départ et là ... quand je relance le miens, ça ne fonctionne plus !!! vraiment étrange

enfin bref ... là j'ai un exemple qui semble fonctionner même en démarrant le tiens entre ;)

Code:

---

1 2 3 4 5 6 7 8 9 10 11

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); var I: Integer; begin if (Shift = [ssCtrl]) or (Shift = [ssAlt]) then begin for I := 0 to ControlCount - 1 do Controls[I].Invalidate end; end;

---

j'ai mis le code dans OnKeyDown parce que dans le OnKeyUp le alt tout seul n'est pas détecté et on voit les composants disparaitre et réapparaitre ça fait pas beau ... mais si tu préfères le KeyUp tu peux faire :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); var I: Integer; begin if (Shift = [ssCtrl]) or (Key = VK_MENU) then begin for I := 0 to ControlCount - 1 do Controls[I].Invalidate; end; end;

---

mais si tu as des boutons dans un autre panel, par exemple, tu devras les gérer sur le même principe ... enfin si ça fonctionne chez toi ... je méfie maintenant :mouarf:

un truc du genre:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); var I: Integer; begin if (Shift = [ssCtrl]) or (Shift = [ssAlt]) then begin // Traite les boutons sur la fiche for I := 0 to ControlCount - 1 do // et on peut même ne cibler que les TButton par Ex. if Controls[I] is TButton then Controls[I].Invalidate; // Traite les boutons sur le panel2 for I := 0 to Panel2.ControlCount - 1 do if Panel2.Controls[I] is TButton then Panel2.Controls[I].Invalidate; end; end;

---

@+

Bonjour,
Effectivement c'est le premier de tes codes que j'avais déjà proposé qui fonctionne bien. Mais tu as raison s'il y a des controls dans des panels, il faut les traiter en plus à part, ce qui n'est pas très pratique.

Dommage que la première solution issue du bug signalé à Embarcadero ne fonctionne pas chez moi.

Merci pour ton aide

A+
Charly

Citation:

---

Dommage que la première solution issue du bug signalé à Embarcadero ne fonctionne pas chez moi.

---

juste pour info je viens de tester l'unité "VistaAltFixUnit.pas" sans l'installer et elle fonctionne parfaitement chez moi, sous D7 bien sur.

C'est quand même étrange !!! :aie:

@+

J'ai réessayé :

j'ajoute VistaAltFixUnit.pas au projet,
j'ajoute VistaAltFixUnit dans les uses de l'interface,
j'ajoute le oncreate de la form :

Code:

---

1 2 3 4

procedure TForm1.FormCreate(Sender: TObject); begin TVistaAltFix.Create(Self); end;

---

ça ne marche pas : les boutons disparaissent avec AltGr ???

A+
Charly