くだすれDelphi（超初心者用）その１5

>>266
こんな感じでどうですか? 十分にテストしてないのでご了承ください。
Form1 がメインフォーム、Form2 がメッセージ用のサブフォームです。

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Label1.Caption := 'メッセージをセット';
  SetWindowPos(Form2.Handle, HWND_TOPMOST, 0, 0, 0, 0,
    SWP_SHOWWINDOW or SWP_NOACTIVATE or SWP_NOMOVE or
    SWP_NOSIZE); // 非アクティブで最前面に表示
end;

上記の方法で表示すると Form2 の Close が効かなくなるので、
WM_SYSCOMMAND に応答して以下のコードを書いてください。

procedure TForm2.WMSysCommand(var Message: TWMSysCommand);
begin
  if Message.CmdType = SC_CLOSE then
    ShowWindow(Handle, SW_HIDE); // 非表示にする
  inherited;
end;