Aplicação A abre Formulário da Aplicação B
16/12/2003
0
Obs. Os dois sistemas foram feitos em Delphi e utilizam a mesma base de dados.
Outl@w
Posts
16/12/2003
Rodrigo_rcp
procedure TFMRemetente.Button1Click(Sender: TObject); var h:Thandle; begin h:=FindWindow(´TFMDestinatario´,nil); PostMessage(h,WM_app+10,0,0); end;
[b:4e02fad94f]B[/b: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;Acho que é +- isso , estou sem o Delphi aqui então se não funcionar é só avisar.
17/12/2003
Rodrigo_rcp
17/12/2003
Deus
Abraços, dEUS.
18/12/2003
Rodrigo_rcp
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.
Clique aqui para fazer login e interagir na Comunidade :)
