Discussion :

[rdr2510]

Comment on fait pour enclencher l’événement d'un TButton.OnClick à l’intérieur de library DLL?

Dans le library DLL, ce code permet d'ajouter un TButton sur une page de TPageControl de l'application HOST.
Ce code marche sans problème sauf le click d'événement du bouton ne marche pas. Il n'y a pas d'événement déclenché.

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
library Plugin;
 
uses
  System.SysUtils, Forms,
  System.Classes, Vcl.ExtCtrls, StdCtrls, Vcl.ComCtrls, dialogs;
 
{$R *.res}
 
Type
  TEventHandlers = class
  Private
     B: TButton;
     procedure OnClick(Sender: TObject) ;
  Public
    Constructor Create(TS: TTabSheet);
    Destructor Destroy; Override;
  end;
 
Var E: TEventHandlers;
 
Constructor TEventHandlers.Create(TS: TTabSheet);
begin
  B:= TButton.Create(TS);
  B.OnClick:= OnClick;
  B.ParentWindow:= TS.Handle;
  B.Caption:= 'OK';
  B.Top:= 50; B.Left:= 50;
end;
 
Destructor TEventHandlers.Destroy;
begin
  Inherited Destroy;
  B.Free;
end;
 
Procedure TEventHandlers.OnClick;
Begin
  ShowMessage('Dll');
End;
 
Procedure PluginButton(TS: TTabSheet); stdCall;
Begin
  TS.Caption:= 'New TAB';
  E:= TEventHandlers.Create(TS);
End;
 
Procedure FreeButton; stdCall;
Begin
  if Assigned(E) then E.Free;
End;
 
exports PluginButton, FreeButton;
 
begin
 
end.

[phoenixgreg]

Hello,

tu passes bien ton TabSheet ? Et comment ?

Constructor TEventHandlers.Create(TS: TTabSheet);

[Andnotor]

Parce que les messages ne sont pas traités par la bonne boucle de messages. En déclarant Forms, tu crées une deuxième instance de TApplication propre à la dll.
Il faut par conséquent lier cette instance à celle de l'exe en assignant Application.Handle (dll) égal à Application.Handle (exe).

Il faut exporter une procédure supplémentaire pour cette initialisation.

Mise à part, ce code n'est pas très propre...

[rdr2510]

ok je vais essaie ca et je vous tient au courant.
merci.