FstayOnTop положение формы, как в AIMP

[bulldog5293]

вот попробуй

procedure TForm1.Button1Click(Sender : TObject);
var
  f : TForm;
  b : TButton;
begin
  f := TForm.Create(Application);
  b := TButton.Create(f);
  b.Parent := f;
  b.Caption := 'OK';
  b.Top := 10;
  b.Left := 10;
  b.ModalResult := mrOK;
  b.Cancel := True;
  f.ShowModal;
  f.Free;
end;

[dmitriegorovih]

А если понадобится вернуть старое положение формы, что писать?

тогда вот так попробуйте

type
  TForm2 = class(TForm)
    Button1: TButton;
  procedure CreateParams(var Params: TCreateParams); override;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

 procedure Tform2.CreateParams(var Params: TCreateParams);
 begin
 inherited CreateParams(Params);
 if form2.FormStyle=fsStayOnTop then begin
 Params.ExStyle:= Params.ExStyle or WS_EX_TOPMOST;
Params.WndParent:= GetDesktopWindow;
end;
 end;
procedure TForm2.Button1Click(Sender: TObject);
begin
form2.FormStyle:=fsnormal;
end;

[phphel]

bulldog5293, вроде работает.
Но у меня форму создавать динамически нельзя...
Но все равно спс за вариант.

dmitriegorovih, благодарю, + в репу