此例示範兩個視窗如何透過自定訊息達到溝通的目的.
同時亦示範如何傳遞指標.

1. New 兩個 Form, Form1 上面放一個 Button

2. 撰寫 Form1 的 Button1.Click 事件:

  procedure TForm1.Button1Click(Sender: TObject);
  var
    s: array [0..100] of char;
  begin
    StrPCopy(s, 'Hello from Form1');
    PostMessage(Form2.Handle, WM_USER+100, integer(@s), 0);
  end;

3. 在 Form2 的類別定義的 public 區段中加入宣告:

  procedure OnMsg(var Msg: TMessage); message WM_USER+100;

  函式主體:
  procedure TForm2.OnMsg(var Msg: TMessage);
  var
    p: PChar;
  begin
    p := PChar(Msg.WParam);
    ShowMessage(p);
  end;

以下示範如何送字串到 Memo 物件.
  s := '蔡煥麟';
  for i := 1 to Length(s) do
  begin
    SendMessage(Memo1.Handle, WM_IME_CHAR, integer(s[i]), 0);
  end;

    Source: geocities.com/huanlin_tsai/faq

               ( geocities.com/huanlin_tsai)