[D2010] Problème de clic sur bouton dans une DLL

[Lung]

Depuis que mes DLL ont été migrées de Delphi 6 à Delphi 2010, le clic sur les boutons (TBitBtn) fonctionnent mal. En fait, il faut cliquer deux fois (pas un double-clic).
Le premier clic donne le focus, et le deuxième clic fait réellement le clic sur le bouton (il s'enfonce).

J'ai remarqué que les boutons de la barre d'outils de la fenêtre de prévisualisation de QuickReport avaient désormais le même problème.

Par contre, aucun problème avec un exe normal (seulement dans les DLL).
Ce problème est très génant pour les utilisateurs qui utilise très fréquement certains boutons : ca leur fait perdre du temps (et c'est agaçant).

Quelqu'un aurait l'ombre d'une idée (parce que là, je ne vois pas ce que je peux y faire) ?

[ShaiLeTroll]

Joue avec MainFormOnTaskBar, au lieu que TApplication soit l'objet de la Barre des Taches, c'est ton MainForm

Est-ce des fenêtres ancrées ?
via Windows.SetParent, j'ai constaté des problèmes de Focus aussi
via TControl.Parent, nettement mieux mais nécessite BPL avec RTL Dynamique en C++Builder ou FastShareMem\Brlndmm.dll en Delphi
via Dock ?

Est-ce des fenêtres NON ancrées ?

Tu peux tenter ceci, la fenêtre ainsi créée aura son propre bouton dans la barre des taches

Code c++ :

1
2
3
4
5
6
//---------------------------------------------------------------------------
void __fastcall T***Form::CreateParams(Controls::TCreateParams &Params)
{
  inherited::CreateParams(Params);
  Params.WndParent = GetDesktopWindow();
}

Tu as l'inverse en affectant un Handle genre HInstance au TApplication.Handle DANS la DLL, j'ai plus l'astuce exacte en tête

[Lung]

Envoyé par ShaiLeTroll

Joue avec MainFormOnTaskBar, au lieu que TApplication soit l'objet de la Barre des Taches, c'est ton MainForm

Je ne vois pas le rapport avec mon problème.
J'ai essayé quand même, mais ça ne change rien.

Envoyé par ShaiLeTroll

Est-ce des fenêtres ancrées ?

Je ne comprend pas la question.
Si tu demandes comment mes fenêtres sont affichées, j'en ai une qui est maximisée avec :

Code :

SendMessage(Handle, WM_SYSCOMMAND, SC_MAXIMIZE, 0);

Envoyé par ShaiLeTroll

Tu peux tenter ceci, la fenêtre ainsi créée aura son propre bouton dans la barre des taches

Code c++ :

J'ai essayé, mais ça ne change rien.

Code :

1
2
3
4
5
procedure TFormColisage.CreateParams(Params: TCreateParams);
begin
   inherited CreateParams(Params);
   Params.WndParent := GetDesktopWindow;
end;

Envoyé par ShaiLeTroll

Tu as l'inverse en affectant un Handle genre HInstance au TApplication.Handle DANS la DLL, j'ai plus l'astuce exacte en tête

Je ne comprend pas bien non plus.
Au début de mes DLL, je leur fournis le Handle de l'exe appelant, pour qu'elles partagent le même élément dans la barre Windows (c'est plus propre).

Code :

   Application.Handle := HandleApp;

Cà a pas de rapport avec mon problème, si ?

[ShaiLeTroll]

Envoyé par Lung

Je ne vois pas le rapport avec mon problème. ?

Cela change la gestion de la prise de Focus par la MainForm, fait une application en D6 et la même en D2010
une MainForm et un form secondaire créée et affiché à la volée, regarde la différence de prise de focus !
D6 : la MainForm passe par dessus les autres fenêtres
D210 : La MainForm reste toujours en dessous

Envoyé par Lung

J'ai essayé quand même, mais ça ne change rien.

Dommage

Envoyé par Lung

Je ne comprend pas la question.
Si tu demandes comment mes fenêtres sont affichées, j'en ai une qui est maximisée .

Donc j'en déduiis que tes fenêtres sont affichées par Show ou ShowModal sans ancrage !

Ta fenêtre s'appelle TFormColisage, j'avais créée une TFrmColisage en 2001 lorsque j'étais apprenti le monde est petit

Envoyé par Lung

Je ne comprend pas bien non plus.
... partagent le même élément dans la barre Windows

Eh bien tu comprends plus que tu ne le crois, as-tu essayé de retirer cette ligne ?
Cela change la gestion de prise de focus des fenêtres, et comme en D2010 la gestion de la barre windows a justement changé (voir MainFormOnTaskBar)

Avec CreateParams, tu peux cacher l'icone de la fenêtre sans jouer avec le Handle

Dans le projet dont je m'occupe, on a beaucoup de fenêtre contenu dans des DLL, l'EXE appel des fonctions qui se chargent de l'instanciation, ShowModal et libération, on a presque exclusivement des BitBtn, pas de problème de Focus
Et pourtant, je ne trouve pas le fameeux Application->Handle = ...Je ne sais pas comment mon responsable a masquer cela
Le plus proche serait la ligne dans le constructeur ancêtre de TOUTES les fenêtres de nos applications :

Code :

DefaultMonitor = dmDesktop;

Seules les fenêtres ancrées avec l'API SetParent lors du passage de BCB2007 à BCBXE2 provoquait un problème de focus, le OnExit d'un TDBEdit par exemple n'était pas provoqué par le clic sur un BitBtn (lui directement dans le Parent) du coup pas de modification du DataLink->DataField ...

J'ai aussi eu un phénomène de prise de focus pénible comme le tien mais avec des TComboBox, il fallait cliquer deux fois pour l'ouvrir
En passant par la propriété Parent impliquant l'échange d'un TWinControl entre EXE et DLL au lieu d'un Handle, le problème était résolu

[Lung]

Envoyé par ShaiLeTroll

Donc j'en déduiis que tes fenêtres sont affichées par Show ou ShowModal sans ancrage !

Oui, je les affiche avec un ShowModal.
(A part Show ou ShowModal, il existe quoi d'autre ? )

Envoyé par ShaiLeTroll

Eh bien tu comprends plus que tu ne le crois, as-tu essayé de retirer cette ligne ?

Si tu parles du Application.Handle := HandleApp; situé dans la DLL, j'ai essayé de l'enlever, mais ça ne change rien.

Envoyé par ShaiLeTroll

Dans le projet dont je m'occupe, on a beaucoup de fenêtre contenu dans des DLL, l'EXE appel des fonctions qui se chargent de l'instanciation, ShowModal et libération, on a presque exclusivement des BitBtn, pas de problème de Focus

J'ai ça aussi : c'est une fonction de ma DLL (appelée par l'exe), qui se charge de créer, afficher (par un ShowModal), et détruire la fenêtre.

Envoyé par ShaiLeTroll

J'ai aussi eu un phénomène de prise de focus pénible comme le tien mais avec des TComboBox, il fallait cliquer deux fois pour l'ouvrir
En passant par la propriété Parent impliquant l'échange d'un TWinControl entre EXE et DLL au lieu d'un Handle, le problème était résolu

J'ai pas compris : tu passais un TComboBox en paramètre à ta DLL ?

[ShaiLeTroll]

Envoyé par Lung

Oui, je les affiche avec un ShowModal.
(A part Show ou ShowModal, il existe quoi d'autre ? )

Show\Hide n'est qu'un raccourci pour l'affectation de Visible à true\false
l'important n'était pas Show ou ShowModal mais le terme "sans ancrage"

Envoyé par Lung

J'ai pas compris : tu passais un TComboBox en paramètre à ta DLL ?

Non
Suis-je aussi peu clair des mes propos ?

L'échange d'objet entre EXE et DLL a l'air de te choquer, pour les BPL ont été justement conçus pour cela !
Je vais t'expliquer mon propre contexte, mais je previens, cela va te paraître comme osé !

Ma DLL contient plusieurs fenêtres,
Ces fenêtres contiennent diverses contrôles comme TDBEdit, TDBCheckBox, TDBRadioGroup et TComboBox ainsi que des TBitBtn d'ailleurs

J'évoquais un problème de focus similaire au tient, sur les ComboBox pour les déployer (Drop Down), il fallait cliquer dedans puis sur le bouton

Cette fenêtre TForm (la fenêtre contenant la combo)utilisée comme une Frame (d'où le terme fenêtre avec ancrage),
en lui spécifiant un Parent une TForm se comporte comme une Frame, c'est visuellement indétectable.
Cela me permet de "choisir" l'écran adaptée à la situation, c'est dans le cadre d'une gestion de périphérique
Chaque marque\modèle ayant ses particularités, un seul écran dans l'EXE pour configurer par exemples les Caméras, depuis l'exe, on défini les valeurs de base comme un nom, la marque et le modèle
la marque indiquera la Dll associé, le modèle une classe (interface) dans la DLL
chaque modèle a un écran de configuration différent que j'intègre dans la fenêtre de l'Exe comme une Frame

Ma fenêtre est mappée par une interface c++ (équivalent d'une classe abstraite en delphi, interface au sens POO) que la DLL fourni à l'EXE, l'interface expose différentes méthodes, il y a évidemment une séparation IHM\Métier, il y a une interface pour l'écran relié à une interface métier, tous ces objets étant créés par la DLL est utilisée par l'EXE
En plus, j'utilise aussi des DelphiInterface, le GUID, le Support en parallèle des pseudo-interface C++ mais je m'écarte !

Ce bug de focus n'apparaissait qu'avec unz TForm (la fenêtre contenant la combo) ancrée par l'API SetParent encapsulé par ma méthode SetParentHandle en lui passant un Handle d'un TScrollBox
Echanger un Handle me semblait moins violent que d'échanger un TWinControl
Mais en XE2, le comportement de l'ancrage était moins bon par Windows.SetParent(Handle) que par TControl.SetParent(TWinControl).


J'ai donc renommé SetParentHandle en SetParentVCL avec comme paramètre un TWinControl (souvent un ScrollBox ou un Panel), ce control est affecté à la propriété Parent de ma fenêtre, cela l'intègre comme une Frame (nécessite un BorderStyle à bsNone)

Eh oui, j'échange un TWinControl entre EXE et DLL ce qui est tout à fait possible avec les BPL d'execution et la RTL Dynamique (ShareMem pour les Delphiste)
A savoir que l'affectation dans la DLL de la propriété Parent de la TForm avec ce TWinControl modifie la propriété Controls[] de ce dernier, donc allocation mémoire et tout le tralala mais comme ce code est contenu dans les BPL, il n'y a pas de problème de mémoire

Pour les fenêtres non ancrées, je n'ai jamais vu ce problème de focus, désolé, je suis à cours d'idée !

[Lung]

Je comprend mieux.

Envoyé par ShaiLeTroll

Cette fenêtre TForm (la fenêtre contenant la combo)utilisée comme une Frame (d'où le terme fenêtre avec ancrage),
en lui spécifiant un Parent une TForm se comporte comme une Frame, c'est visuellement indétectable.

J'ai déjà fait ça aussi.

Envoyé par ShaiLeTroll

Mais en XE2, le comportement de l'ancrage était moins bon par Windows.SetParent(Handle) que par TControl.SetParent(TWinControl).

Bon à savoir.

Envoyé par ShaiLeTroll

Pour les fenêtres non ancrées, je n'ai jamais vu ce problème de focus, désolé, je suis à cours d'idée !

Je vais envoyer un message à Embarcadero (un de plus). On verra ce que ça donnera ...