Discussion :

[Jayceblaster]

Bonjour je suis en train de créer une DLL avec Delphi. Cette DLL crée une form dynamiquement et cette form dispose d'un bouton (créé lui aussi dynamiquement) mais je n'arrive pas a définir sont événement BoutonClick....

Comment dois je faire?

Merci d'avance

[anapurna]

salut

comment fait tu pour pas y arriver
si tu as acces a ta form

Code :

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

form.monbouton.onclick := MyEvtClick ;

@+ Phil

[Jayceblaster]

MyEvtClick????
et c'est quoi ca?

[anapurna]

salut

dans le programme appelant la dll
tu creer un methode

Code :

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

1
2
3
4
TmaMainForm.MyEvtClick(sender : Tobject)
begin
  // ici le code que je veut executer 
end;

@+ Phil

[Jayceblaster]

ben le code associé a l'écénement OnClick de mon bouton je peux pas l'écrire dans la DLL?

[anapurna]

salut

bon reprenon du debut tu as une dll qui est une form avec un bouton
tu veut charger dynamiquement cette form
si tes evenement sont connure a l'avance pas de soucis tu peut le creer sur ta form


@+ Phil

PS : Regarde sur developpez y'a un truc sur les pluggin qui devrait t'interesser

[Jayceblaster]

oui mes evenement sont connu d'avance

[Jayceblaster]

j'arrive a le faire dans un projet de type VCL mais pas dans une DLL:

en VCL je fais:

Code :

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

1
2
3
4
5
6
 
private
  procedure MonClickBouton(Sender: TObject);
....
  //définition de l'événement
  monBouton.OnClick := MonClickBouton;

mais je n'arrive pas a faire pareil dans le cas d'une DLL

[anapurna]

salut

c'est quoi le message d'erreur ?

@+ Phil

[Jayceblaster]

ben en fait ce qui me bloque c'est parce que c'est dans une DLL est que je ne sais pas comment déclarer la procédure privé.
Dans une DLL c'est une suite de fonction privées que l'on exporte "export"

[anapurna]

salut

pourquoi veut tu l'exporter ?
si elle est definie dans ta form tu n'as pas besoin de l'exporter on exporte quand on as besoin d'y acceder par code

@+ phil

[Jayceblaster]

ben non je ne veux pas experter mon evénement je sais pas ou déclarer ma procédure privée associé a mon événement dans la DLL

Code :

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

1
2
 
procedure MonClickBouton(Sender: TObject);

[Jayceblaster]

personne ne peut m'aider?
Alors je réexplique le prob :

Dans cette DLL je crée une form dynamiquement (avec un webBrowser) sur laquelle je crée un bouton. En fait je tiens a associer une fonction privé d'impression à l'événement OnClick de mon bouton.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure Imprimer(Sender: TObject);
 var
     vaIn, vaOut: OleVariant;
 begin
     WebBrowser_Affichage.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);
 end;
 
 ............dans une autre fonction de la DLL j'ai:
  //définition de l'événement OnClick du bouton
  Button_Imprimer.OnClick := Imprimer;

Mais j'ai une erreur de compilation au niveau de la derniere ligne et je ne comprend pas pourquoi

[Jipété]

personne ne peut m'aider?

Arf ! C'est dimanche !

Mais j'ai une erreur de compilation au niveau de la derniere ligne...

Cool...
Et c'est quoi, cette erreur ? (perdons du temps...)

JP

[Jayceblaster]

voici l'erreur:
E2009: Incompatible types:'method pointer and regular procedure'

[aityahia]

tu décalare ta procédure comme partie de ta form dans Private ou Public
j'ai fait le test en la déclarant a l'extérieur j'ai eu le meme méssage que toi

par contre quand je la décalre comme proceudre public de la form sa marche .

déclaration .

Code :

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

1
2
3
4
Public
 
  procedure Imprimer(Sender: TObject);
end;

Code :

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

1
2
3
4
5
6
procedure TForm1.Imprimer(Sender: TObject);
 var
     vaIn, vaOut: OleVariant;
 begin
     WebBrowser_Affichage.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);
 end;

............dans une autre fonction de la DLL j'ai:
//définition de l'événement OnClick du bouton

Code :

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

  Button_Imprimer.OnClick := Imprimer;

[Jayceblaster]

par contre quand je la décalre comme proceudre public de la form sa marche .

mais de quelle forme parle tu aityahia. la seul form que j'ai est celle créée dynamiquement dans la DLL. Oui je suis dans une DLL je n'ai donc pas de forme....
Ton bout de code marche tres bien lorsque tu es dans un projet VCL par exemple ou la effectivement tu as une form....

Personne ne peut m'aider sur ce coup....?