Form avec menu dans une DLL [Résolu]

Signaler
Messages postés
1
Date d'inscription
mardi 21 mars 2006
Statut
Membre
Dernière intervention
21 mars 2006
-
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
-
Bonjour,

Mon problème est de le suivant.

J ai une DLL qui affiche un Form avec un objet TMainmenu.
Celle-ci fonctionne parfaitement entre programme écrit en Delphi.

Mais pas quand j'appelle ma DLL d un autre programme (PROGRESS)
En effet, la DLL ce lance mais a la fermeture, le programme appelant me donne une erreur 216 !
Est ce normal ? Y a t il une solution ?

Meric d avance.

Voici la source de la DLL :

library testform;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
procedure showform;stdcall;
var Form:TForm1;
begin
Form:=Tform1.create(application);// création de la fiche
Form.ShowModal;// affichage de la fiche
Form.Free;// libération de la mémoire
end;


exports
showform;
begin
end.

--------------------

unit Unit1;
Interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
tintin1: TMenuItem;
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
end.

1 réponse

Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
31
Ton code ci-dessus a l'air tout à fait correct et l'erreur ne peut provenir de là (quoique on ne sait pas ce que contient Unit2).
Voir :
Runtime error 216 sur des PC équipés de processeur Intel P4

May Delphi be with you !

<HR color=#008000>
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.