DLL et Creation Dynamique

Question

Hi,
J'ai une fiche principale (FORM1) et j'aimerai via une DLL y rajouter dynamiquement un bouton qui appelera une procedure perso a la DLL.

// Programme principale //
procedure Affichebouton(Sender : TObject); external 'plugin.dll';

var
   Form1 : TForm;

procedure Button1.Onclick(Sender : TObject);
begin
    AfficheBouton(Form1);
end;

// Dll //

procedure AfficheBouton(Form:TForm);
var
   Lance : TButton;
begin
   Lance = TButton.Create(Form);
   with Lance do
   begin
      Parent := Form;
      Left := 80;
      Top := 41;
      Height := 25;
      width := 75;
      caption := '&Lire';
   end;
end;

Cette procedure affiche l'erreur Tfont non assignable a TFont ???
Ou est mon erreur ? y a t'il plus simple ?
De plus je ne sais pas comment assigner la propriete OnClick depuis la DLL...

En vous remerciant,
 
meandcat

cs_neko · Answer

J'avou que je vois pas bien pourquoi le Parent:=Form ne marche pas...
Mais je sais comment passer outre

procedure AfficheBouton(Form:TForm); stdcall;
var
   Lance : TButton;
begin
   Lance := TButton.Create(Form);
   With Lance Do Begin
      ParentWindow := Form.Handle;
      Left := 80;
      Top := 41;
      Height := 25;
      width := 75;
      caption := '&Lire';
      OnClick:=OnClick;
   End;
end;

bouh

meandcat · Answer

Bien, merci, d&#233;ja un point de r&#233;solu....
Me reste a comprendre pourquoi le OnClick en question n'appelle pas celui cre&#233; dans la DLL.
vu que pour le programme principale la procedure ne sera pas connu, comment la declarer dynamiquement dans le programme principal ou utiliser un Pointer sur la procedure event a utiliser.

Merci encore a Neko pour son aide.

(si quelqu'un a un meilleur procedure je la prend)

merci

meandcat

DLL et Creation Dynamique

2 réponses

Votre réponse

Discussions similaires