fsStayOnTop funzt nicht immer

[TheMiller]

Hey,

habe das Problem, dass ich Form1 auf fsStayOnTop stellen kann. Dann ist es auch immer onTop. Habe ich jetzt Form 16 (ja ich weiß, es sind zu viele Forms) auf StayOnTop, funzt es nicht...

[EDIT]: Die Eigenschaft habe ich zur Designtime eingestellt. Dann öffnet sich Form16 und dann Excel. Während Excel die Daten geliefert bekommt, soll Form 16 über Excel liegen...

Hier gleich der Code...

Delphi-Quellcode:

unit Unit16;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ComCtrls, PB2;

type
  TForm16 = class(TForm)
    Label1: TLabel;
    Timer1: TTimer;
    MarqueeProgressBar1: TMarqueeProgressBar;
    procedure FormActivate(Sender: TObject);
    procedure FormHide(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form16: TForm16;

implementation

{$R *.dfm}

procedure TForm16.FormActivate(Sender: TObject);
begin
  Self.Repaint;
  Self.Refresh;
  MarqueeProgressBar1.Active:=True;
  MarqueeProgressBar1.DoubleBuffered:=True;
end;

procedure TForm16.FormHide(Sender: TObject);
begin
  MarqueeProgressbar1.Active:=False;
end;

end.

Danke im Voraus