寻人启事 (20分)

看电视见过不少寻人启事：一行消息从屏幕上面自右向左徐徐而过。
或者电视台发布重要的或临时性的消息时，都有消息划过。

我的问题是如何在电脑屏幕上类似的输出消息？

分数不多，表表心意。但请诸位帮忙！

如果是要在程序界面中实现你说的效果，最方便的方法是用rxlib中的SecretPanel

作成一程序,发给网上邻居每一位朋友.他们收到的效果就象寻人启事一样.
总是显示在最前面.

有个思路，做个不规则窗体，以文字为边界，程序很简单，希望能用！

unit Unit2;

interface

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

type
TForm2 = class(TForm)
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
Wi:integer;
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

{$R *.DFM}

procedure TForm2.FormCreate(Sender: TObject);
var
rgn: HRGN;
Te:string;
H:integer;
begin
Canvas.Font.Name := '宋体';
Canvas.Font.Style:=[fsBold];
Canvas.Font.Size := 20;
Te:='寻人启事：dongfeg已经走失三天，望知情者通知www.delphibbs.com，面酬！ ';
H:=Canvas.TextHeight(' ');
Wi:=Canvas.TextWidth(Te);
left:=screen.Width;
top:=screen.Height -H-50;
Width:=Wi;
Color:=clBlue;
FormStyle:=fsStayOnTop;
BeginPath(Canvas.Handle);
SetBkMode(Canvas.Handle, TRANSPARENT);
Canvas.TextOut(20, 20, Te);
EndPath(Canvas.Handle);
rgn := PathToRegion(Canvas.Handle);
SetWindowRgn(Handle, rgn, true);
Timer1.Interval:=50;
Timer1.Enabled :=true;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
left:=left-1;
if left<Wi*(-1) then
begin
Timer1.Enabled :=false;
Visible:=false;
left:=screen.Width;
Visible:=true;
Timer1.Enabled :=true;
end;
end;

end.

如果要发给网上邻居上的朋友可以用
net send /DOMAIN:域名或组名 寻人启事：dongfeg已经走失三天，望知情者通知www.delphibbs.com，面酬！
这样，如果是win2000，就会弹出一个消息框，是win98就没辙了，除非对方运行了winpop

呵呵,我很好.只是现在外面出差.
诸位的关心,多谢了.
jackz兄弟,回去我试一下阿.

对呀！

对，2000和nt可以用netsend

谢谢jackz。
此种方法在本机的效果不错。但我想在网上邻居的朋友看到的寻人启事
的效果和在本机看到的一样，而不是弹出一消息框。

这怎么实现呢？

这个效果在别的机器上是不会出现的，除非也运行了这个程序。
如果非要在别的机器上看见这个效果，只有在对方机器上运行这个程序（程序很小，不占多
少资源，如果有需要，没有理由拒绝使用吧 ：） ），程序再修改一下，用Winsock，往端
口上发字符，客户端接收到就运行显示，关于Winsock的使用你在BBS上搜一下，很多的！

谢谢JACKZ。

放假了，新年快乐！

结束讨论了