Send message

for at fange en besked i et Delphi program kan man gøre ca. sådan her

const
  WM_MY_MESSAGE = WM_USER + 42;

...

  TForm1 = class(TForm)
    ...
    procedure WMMyMessage(var Message: TMessage); message WM_MY_MESSAGE;
  end;

...

procedure TForm1.WMMyMessage(var Message: TMessage);
begin
  ShowMessage(IntToStr(Message.WParam));
end;

formen kan sende en besked til sig selv

procedure TForm1.Button2Click(Sender: TObject);
begin
  PostMessage(Handle, WM_MY_MESSAGE, 1, 2);
end;

Hvis du skal sende en besked fra et andet program, skal du have fat i programmets handle. Om man kan dette fra VBA er jeg ikke sikker på, men du kan evt. oprette et spørgsmål i VBA kategorien...

Hej Nico
Kan jeg også lave en PostMessage(Handle, WM_MY_MESSAGE, 1, 2);
fra et andet program (Delphi) ?
Så vil jeg teste det, så jeg ihvertfald ved at min del er iorden.

ja det kan du - du skal bare have fat på vinduets handle...

Ja - den var i vinkel - send et svar så skal du få points

:)