Aplica��o A abre Formul�rio da Aplica��o B

Question

� poss�vel fazer um Sistema A abrir um determinado formul�rio em uma Aplica��o B? Como?Obs. Os dois sistemas foram feitos em Delphi e utilizam a mesma base de dados....

Rodrigo_rcp · Answer

[b:4e02fad94f]a[/b:4e02fad94f][code:1:4e02fad94f]procedure TFMRemetente.Button1Click(Sender: TObject); var  h:Thandle; begin h:=FindWindow(�TFMDestinatario�,nil); PostMessage(h,WM_app+10,0,0);                              end; [/code:1:4e02fad94f][b:4e02fad94f]B[/b:4e02fad94f][code:1:4e02fad94f]public     procedure receber(var msg: Tmessage);message WM_app+10;    end; var   FMDestinatario: TFMDestinatario;   implementation {$R *.dfm}  procedure TFMDestinatario.receber(var msg: TMessage); begin TFMDestinatario.Show;end;[/code:1:4e02fad94f]Acho que � +- isso , estou sem o Delphi aqui ent�o se n�o funcionar � s� avisar....

Outl@w · Answer

N�o funcionou... :cry:...

Outl@w · Answer

sobe....

Outl@w · Answer

sobe....

Rodrigo_rcp · Answer

o form que voc� quer mostrar j� esta criado quando � enviado o PostMessage?...

Outl@w · Answer

Sim. E a aplica��o B est� rodando....

Deus · Answer

Para conseguir executar essa tarefa, vai ser bastante simples: siga as instru��es [url=http://www.wamoz.com/inter-app-messages-in-delphi.asp]deste[/url] site aqui, e voc� conseguir� fazer com que duas aplica��es se comuniquem atrav�s de mensagens. :) Espero ter ajudado!

Abra�os, dEUS.

Rodrigo_rcp · Answer

[b:2f7888664b]Aplica��o A:[/b:2f7888664b]

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
PostMessage(FindWindow(nil,�FMPrincipal�),WM_App+10,0,0);
end;

end.

[b:2f7888664b]Aplica��o B:[/b:2f7888664b]

unit Unit1;

interface

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

type
  TFMPrincipal = class(TForm)
  private
    { Private declarations }
  public
   procedure MostrarForm(var msg:TMessage);message WM_app+10; { Public declarations }
  end;

var
  FMPrincipal: TFMPrincipal;

implementation

uses Unit2;


Procedure TFMPrincipal.MostrarForm(var msg:TMessage);
begin
FMOculto.Show;
end;




{$R *.dfm}

end.

A aplica��o �A� envia uma PostMessage para o FMPrincipal da aplica��o �B� que processa a mensagem e mostra o Form que estava oculto.

OBS: Estou considerando que a aplica��o �B� j� esta sendo executada e que o �Form Oculto� j� esta criado.

F�rum Aplica��o A abre Formul�rio da Aplica��o B #201464