Schau Dir mal AllocateHWnd an.

So habe ich es versucht:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  FMyThread := TMyThread.Create(false);
end;

procedure TForm1.WndProc(var Msg: TMessage);
begin
  if assigned(FMyThread) then
  begin
    OutputDebugString(PWideChar('TForm1.WndProc - Msg: #' + IntToStr(Msg.Msg)));
    PostMessage(FMyThread.GetWNDHandle,Msg.Msg,Msg.WParam,Msg.LParam);
  end;
  inherited;
end;

zusammenfalten · markieren

Delphi-Quellcode:

type
  TMyThread = class(TThread)
  private
    FWNDHandle: Cardinal;
    procedure WndProc(var Msg: TMessage);
  protected
    procedure Execute; override;
  public
    property GetWNDHandle: Cardinal read FWNDHandle;
  end;

implementation

uses
  Windows, SysUtils;

procedure TMyThread.Execute;
begin
  FWNDHandle := AllocateHWnd(WndProc);

  while not Terminated do
  begin
    //suspend();
  end;

  DeallocateHWnd(FWNDHandle);
end;

procedure TMyThread.WndProc(var Msg: TMessage);
begin
  OutputDebugString(PWideChar('TMyThread.WndProc - Msg: #' + IntToStr(Msg.Msg)));
end;

Aber es scheint nichts im Thread anzukommen

probiers mal so

zusammenfalten · markieren

Delphi-Quellcode:

unit Unit2;

interface

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

type
  TMyThread = class(TThread)
  private
    FWNDHandle: Cardinal;
    procedure WndProc(var Msg: TMessage);
  protected
    procedure Execute; override;

  public
    Constructor Create(CreateSuspended: Boolean);Reintroduce;overload;
    Constructor Create; Reintroduce;overload;
    Destructor Destroy; override;
    property GetWNDHandle: Cardinal read FWNDHandle;
  end;

  TForm2 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
  FMyThread :TMyThread;
    { Private-Deklarationen }
  public

  Fmsg:TMessage;
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}
constructor TMyThread.Create(CreateSuspended: Boolean);
begin
  inherited Create(CreateSuspended);
  FWNDHandle := AllocateHWnd(WndProc);
end;

constructor TMyThread.Create;
begin
  inherited Create;
  FWNDHandle := AllocateHWnd(WndProc);
end;
destructor TMyThread.Destroy;
begin
  DeallocateHWnd(FWNDHandle);
  inherited;
end;

procedure TMyThread.Execute;
begin


  while not Terminated do
  begin
    Sleep(10);
  end;


end;

procedure TMyThread.WndProc(var Msg: TMessage);
begin
  OutputDebugString(PWideChar('TMyThread.WndProc - Msg: #' + IntToStr(Msg.Msg) + '-'+ IntToStr(Msg.WParam)));
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  FMyThread := TMyThread.Create(false);
end;

procedure TForm2.Button2Click(Sender: TObject);

begin
  Fmsg.Msg := 12345;
  FMsg.WParam := 2345;
  SendMessage(FMyThread.GetWNDHandle,FMsg.Msg,FMsg.WParam,FMsg.LParam);
end;

end.

Wenn man nicht aufpasst, kann SendMessage zu einem Deadlock führen, ich würde lieber PostMessage verwenden.

@DeddyH
hatte der TE eh drin, ist mir beim Debuggen passiert und übersehen worden

Hmmm... Wird so das Fenster nicht im Kontext des Hauptthreads erzeugt?

Das Fenster wird im Constructor des TThread Objekts erzeugt. Und der Constructor läuft ja im Kontext des Hauptthreads, oder?

Somit würde doch sowohl das neue Fenster als auch die WndProc im Haupthread laufen, auch wenn die WndProc zum TThread gehört?

Oder habe ich da jetzt einen Denkfehler?


Wie kann ich das verifizieren?

Im TThread Objekt kann ich das mit OutputDebugString(PWideChar('ThreadID: ' + IntToStr(Self.ThreadID))); machen, weil ThreadID eine Eigenschaft von TThread ist.

Wie kann ich die ThreadID in einer Methode von TForm abgeleiteten Objekts herausbekommen?

Das ist ein MessageOnly-Window, das nicht an irgendwelche Steuerelemente gebunden ist. Es läuft somit auch nicht im Kontext des MainThreads. Und was meinst Du mit der 2. Frage? Du kannst doch auf ThreadInstanz.ThreadId (lesend) zugreifen, oder meinst Du etwas anderes?

So, bevor ich's wieder vergeß...

Hab den Code auch mal mit ein paar Debuginfos versehn. (siehe Ereignisprotokoll Strg+Alt+V)

[edit]
Für D2010 und älter müßte man die zweite Threadklasse entfernen, welche mit in der Unit rumliegt.