[ethangio]

Disculpa si no me explique bien, pero lo que estoy haciendo es esto.

Tengo mi aplicacion EXE y quiero que en una libreria DLL tener un procedimiento o funcion que me cree un Tedit (edit)

ejemplo:
Mi DLL

Código Delphi [-]
library Project1;

uses
  SysUtils, Classes, StdCtrls, Forms, Windows, Controls, Dialogs,
  CommCtrl;

{$R *.res}

procedure CreaEdit(Self: TWinControl); stdcall; export;
var
Edit1, Edit2: TEdit;
Label1: TLabel;
begin
Edit1:=TEdit.Create(Self);
Edit1.Parent:=Self;
Edit1.Top:=20;
Edit1.Left:=50;
Edit1.Name:='Caja1';
Edit1.Text:='Hola Fui creado desde codigo...';

Edit2:=TEdit.Create(Self);
Edit2.Parent:=Self;
Edit2.Top:=60;
Edit2.Left:=50;
Edit2.Name:='Caja2';
Edit2.Text:='Hola Fui creado desde codigo ...';

Label1:=TLabel.Create(Self);
Label1.Parent:=Self;
Label1.Top:=100;
Label1.Left:=50;
Label1.Name:='label1';
Label1.Caption:='Hola Fui creado desde codigo ...';

ShowMessage('Segun se ejecuta...');
end;

exports CreaEdit;

end.

Mi EXE

Código Delphi [-]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

procedure CreaEdit(Form1: TForm1); stdcall; external 'Project1.dll';


implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  CreaEdit(Form1);
end;

end.