正常情况下,MOUSE一指向TOUTLOOKBAR,则FORM就跟到后面去了,所以设:

1,bar.options.bofocusonmouseenter:=false;

2,调用FORM的代码

procedure TForm1.Action1Execute(Sender: TObject);
begin
  if form2=nil then
  begin
   form2:=tform2.create(nil);
  form2.show;

 end
  else
  begin
  showwindow(form2.handle,sw_restore);
  form2.setfocus;
  end;

end;

3,form的设置

form.formstyle:=fsstayontop;

form.formclose中

if form<>nil then freeandnil(form)

如果用按钮关闭则

release;
 form2:=nil;

---------------------------------

以上可实现,FORM的重复出现,且可以断续输入内容.