一个令人发昏的窗体问题，折磨我好久了，请教有经验的前辈指点。

Question

<delphi>
form1
  成员：button1,dbgrideh1
  属性：form1.FormStyle := fsNormal
form2
  成员：dbgrideh2
  属性： form2.FormStyle := fsStayOnTop点击form1.button1时，form2.show();
然后，我需要从form1.dbrideh1中拖动记录到form2.dbgrideh2中，
当鼠标点击form1.dbgrideh1选择记录时，form2却消失了。
请问有经验的前辈，怎样在拖动时让form2不消失以完成拖动记录的操作？
谢谢

Answer 1

不是已经 ontop 了么?怎么会消失呢?

Answer 2

是啊，设置了FormStyle := fsStayOnTop  就可以了啊！ 我试过了，不会消失啊！

Answer 3

可以把第二个窗体的的父窗体设为第一个窗体,把这个加上，这样Form2就会一直在Form1的上面，而且不是fsStayOnTopprocedure TForm2.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.WndParent := Form1.Handle;
end;

Answer 4

form1.button1var frm2:TForm2;frm2:=TForm2.create(self);
frm2.show;
frm2.parent:=self;

Answer 5

你的窗体2的FormStyle属性没设对吧，设对了不会有问题的。
你在form2.show后面加上
form2.FormStyle := fsStayOnTop;
试试！应该是你没设着这个属性。