F�rum DELPHI TNOTIFYEVENT #365638

29/10/2008

Gostaria de executar uma fun��o na minha DLL passando um Owner como um TForm como par�metro .
A fun��o, criaria componentes neste owner, e executaria os m�todos da DLL.
A cria��o do componente est� feita, o problema � que ele n�o consegue executar os eventos

Neste exemplo crio um TButton, em um TForm, por�m, N�o consegui fazer funcionar um m�todo(OnClick) neste objeto.

Quem quiser envio o c�digo por e-mail.

{------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------}
C�DIGO DA DLL
{------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------}

library DLL;

uses
  SysUtils, Classes, Forms, Controls, StdCtrls;
{$R *.res}
type
  TMarcButton = class(TButton)
  public
    procedure Click; override;
    constructor Create(AOwner : TComponent); override;
  end;

function CreateButton(APP : TApplication;AParentOwner : TWinControl):TButton;stdcall;
var
  Button : TMarcButton;
begin
  Button := TMarcButton.Create(APP);
  Button.ParentWindow := AParentOwner.Handle;
  Button.Top      := 100;
  Button.Left     := 100;
  Button.Caption  := �Teste�;
  Button.Visible  := True;
  Button.Enabled  := True;
  Button.Show;
  Result := Button;
end;

exports
  CreateButton;

{ TMarcButton }

constructor TMarcButton.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
end;

procedure TMarcButton.Click;
begin
 Self.Caption := timetostr(Time)
end;

{------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------}
C�DIGO DA APLICA��O
{------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------}

  TCreateButton = function (APP : TApplication;    AParentOwner : TWinControl):TButton;stdcall;

var
  Form1: TForm1;

implementation
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  DllHandle : HWND;
  CreateButton : TCreateButton;
  B : TButton;
begin
  DllHandle := LoadLibrary(Pchar(�DLL.dll�));
  try
    @CreateButton := GetProcAddress(DllHandle, �CreateButton�);
    b := CreateButton(Application, Self);
    //Aqui ele executa.. mas se clica no objeto n�o executa
    B.Click
  finally
//    FreeLibrary(DllHandle);
  end;
end;

Marcadans

Curtir t�pico

+ 0

Responder