Discussion :

[retwas]

Bonjour,

J'ai un TButton dans mon EXE qui appel une fonction de DLL.

La fonction de ma DLL créée et ouvre une TForm en StayOnTop.

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
procedure yTop(s: string); stdcall; export;
var
   fv : tform;
   e : tedit;
begin
   try
      fv := tform.Create(nil);
      fv.Width := 500;
      fv.Height := 200;
      fv.FormStyle := fsStayOnTop;
      fv.Name := 'aa';
 
      e := TEdit.Create(fv);
      e.Parent := fv;
      e.Width := 200;
      e.Height := 25;
 
      fv.ShowModal;
   finally
   end;
end;

En test, compilé en Debug je ne rencontre aucun problème.

Par contre en production compilé en Release .. quand je clic sur la fenêtre de la DLL cela a pour effet de ramener aussi en avant plan la fenêtre de l'exe.

En release je compile avec l'option « Lier avec les packages d’exécution » et en package j'utilise la variable d'environnement $(PACKAGES_EXEC) (qui contient package1;package2;etc..).

Si je décoche l'option « Lier avec les packages d’exécution » c'est tout bon je retrouve le comportement que j'ai en Debug.
Si je laisse l'option coché mais que j'enlève les packages cela fonctionne aussi, du coup je pensais qu'il y avait un package dans le lot qui posait problème.

Sur les 15 packages, si j'en ajoute un et peut import lequel dans "Package d'exécution" je rencontre le problème du début.

Du coup je ne comprend pas .. si j'enlève les packages c'est ok, si j'en ajoute un ça déconne.



Si vous avez une idée, merci

[ShaiLeTroll]

As-tu lié TApplication.Handle dans le DLL ?

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