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...

zusammenfalten · markieren

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

Bitte löscht diesen Thread... Es war mal wieder schwachsinnig von mir. Habe so oft die Eigenschaften umgestellt, dass ich selbst nicht mehr mitkam. Es stand natürlich nicht auf fsStayOnTop..

Danke