如何使程序为当前窗口

Question

FormStyle设为fsStayOnTop。
procedure TForm3.CreateParams(var Params:TCreateParams);
begin
 inherited;
 with Params do
 begin
  Style:=Params.Style xor WS_DLGFRAME;
  WndParent:=0;//此行
 end; 
end;procedure TForm3.FormCreate(Sender: TObject);
begin
 Width:=36;
 Height:=36;
 SetWindowLong(Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
end;

Answer 1

做个自定义消息，当需要的时候，广播出来，只有你的窗口回处理，
然后根据消息的参数，把哪个需要的窗体用api 置为最前窗口。api你搜索以下，有很多如何设置罪前窗口的帖子。的

Answer 2

在你的Delphi目录下\Delphi5\Demos\RichEdit
下有个Demo版的文字编辑器工程，其中就有MIDI
的用法。
还有在新建工程时可以建一个MIDI的工程。可以
从中学到一些光于MIDI的知识

Answer 3

SetForegroundWindow(应用程序窗口句柄); 这样就OK了

Answer 4

我使用了SETFOREGROUNDWINDOW命令,但是不正确,还有一个SETACTIVEWINDOW,请问应该如何使用,谢谢；