Rückgabewert von Sendmessage setzen

[Robert Marquardt]

Das macht man mit einer message-Methode.

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
  private
    procedure MyMessage(var Message: TMessage); message MYMESSAGEID;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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

end.

Auf Sendeseite ist es
  if SendMessage(Application.Handle, MYMESSAGEID, 0, 0) <> 0 then Sollte das nicht funktionieren dann Application.MainForm.Handle benutzen.