ActiveX - Non blocking calls

[Bernd Ua]

Hi,

Zitat:

Gibt es einen Trick direkt per ActiveX, den Client vollständig "weiterleben" zu lassen, ohne Clientcode ändern zu müssen?
Oder muss ich im ActiveX-Server womöglich eine eigene Threadverwaltung bauen?

Threads wären natürlich die beste Wahl, aber schneller bzw einfacher gehts vielleicht mit einem
asynchronen PostMessage an das Anzeigefenster.

Code:

const
  CM_MyMsg = WM_User + 4000;

type
  TForm1 = class(TForm)
  private
    procedure MyMsg (var Message : TMessage); message CM_MYMsg;
  public
    { Public-Deklarationen }
  end;
...

procedure TForm1.MyMsg(var Message: TMessage);
begin
  Message.Result := 0;
  Show;
end;

Aufruf könnte dann so aussehen

Code:

procedure ActiveXServerdings.ShowHelpWnd;
begin
  with TForm1.Create(nil) do
    PostMessage(Handle,CM_MYMsg,0,0);
end;

Grüsse Bernd