如何做出类似msn的效果，弹出的窗体总是在其他窗体的前面？

Question

同上

Answer 1

修改Form的FormStyle属性为fsStayOnTop

Answer 2

就在属性里面改就可以了呀~~~~~就是这个：FormStyle选择ontop就行

Answer 3

在弹出的Form onFormShow中加入：
setwindowpos(handle,hwnd_topmost,0,0,0,0,swp_nomove or swp_nosize);
这样最保险

Answer 4

setwindowpos(handle,hwnd_topmost,0,0,0,0,swp_nomove or swp_nosize);

Answer 5

Form的parent为Desktop
FormStyle选择ontop

Answer 6

我认为可以在formcreate()中调用
       form1.bringtofront;函数；

Answer 7

以前看到的
procedure TForm1.FormCreate(Sender: TObject);
begin
  form1.BorderStyle := bsDialog;
  form1.Width := 200;
  form1.Height := 160;
  form1.Left := screen.Width - form1.Width;
  form1.Top := screen.Height;
  timer1.Interval := 10;
  timer1.Enabled := true;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if form1.Top > (screen.Height - form1.Height) then
    form1.Top := form1.Top - 1
  else
    timer1.Enabled := false;
end;

Answer 8

FORM的属性设置问题 晕这也有人问啊？

Answer 9

Publicprocedure Createparams(Var Params:TCreateParams);override;...procedure TFormDrop.Createparams(var Params:TCreateParams);beginInherited CreateParams(Params);With Params dobeginEXStyle:=ExStyle or WS_EX_TOPMOST OR WS_EX_ACCEPTFILES or WS_DLGFRAMEwndParnet:=GetDesktopWindow; //关键一行，用SetParent都不行！！end;end;　procedure SetFormOnTop(Form: TForm; const bFlag: Boolean);beginif bFlag thenSetWindowPos(Form.handle, HWND_TOPMOST, 0, 0, 0, 0, swp_nomove or swp_nosize)elseSetWindowPos(Form.handle, HWND_NOTOPMOST, 0, 0, 0, 0, swp_nomove or swp_nosize);end;