此例示範兩個視窗如何透過自定訊息達到溝通的目的.
同時亦示範如何傳遞指標.
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;
               (
geocities.com/huanlin_tsai)