窗体如何永远显示在最前面

Question

如题,是子窗体,

Answer 1

formstyle是窗口的属性之一，可以在属性视图中设置也可以在OnFormShow事件中写这一句

Answer 2

protected
    procedure CreateParams(var Params: TCreateParams);override;//显示最前端
procedure TfrmSuspend.CreateParams(var Params: TCreateParams);
begin
  inherited;
  with Params do WndParent:=0;
end;

Answer 3

SetWindowPos(self.handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE + SWP_NOMOVE)

Answer 4

formstyle := fsStayOnTop

Answer 5

在form的formstyle属性,改为fsStayOnTop则这个窗体一旦打开,就显示在最上面

Answer 6

SetWindowPos(self.handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE + SWP_NOMOVE)

Answer 7

你编写程序把它连最小化都没有就可以了，这是原代码，你看看
nit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
var temp:integer;
begin
  systemparametersinfo(spi_screensaverrunning,1,@temp,0);
  //限制功能键
  formstyle:=fsstayontop;
  windowstate:=wsmaximized;
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var temp:integer;
begin
 systemparametersinfo(spi_screensaverrunning,0,@temp,0);//取消对功能键的限制
end;procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;end.