大家好,请教如何让我的程序窗口始终在所有窗口最下面.........................???

Question

 SetWindowPos(form1.hWnd, HWND_BOTTOM, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE);

Answer 1

//没找到什么好的事件，只能加到消息处理中，否则只能回去一次，第二次还会到前台了，
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;type
  TForm1 = class(TForm)
  private
    procedure WMNCHITTEST(var Msg:TMessage);message WM_NCHITTEST ;
  public
  end;var
  Form1: TForm1;implementation{$R *.DFM}{ TForm1 }procedure TForm1.WMNCHITTEST(var Msg: TMessage);
begin
  inherited;
  SetWindowPos(form1.handle, HWND_BOTTOM, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE);
end;end.