"Always in Back"

[Lasse2002]

Diese Funktion wird automatisch von Delphi aufgerufen. Damit das allerdings dann auch tatsächlich passiert, mußt du sie als override deklarieren.

Delphi-Quellcode:

type
  TForm1 = class(TForm)
   // [...]
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;

[Logic]

Du sorry bei mir klappt das nicht, wenn ich es hier hin mache:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    XPManifest1: TXPManifest;
    RadioButton1: TRadioButton;
    protected
    procedure CreateParams(var Params: TCreateParams); override;
    end;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

kommt die Fehlermeldung:

Zitat:

[Error] Unit1.pas(20): '=' expected but identifier 'public' found
[Error] Unit1.pas(22): ';' expected but 'END' found
[Error] Unit1.pas(27): '.' expected but 'IMPLEMENTATION' found
[Error] Unit1.pas(16): Unsatisfied forward or external declaration: 'TForm1.CreateParams'
[...]

und wenn ich es hier hin mache:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    XPManifest1: TXPManifest;
    RadioButton1: TRadioButton;

  private
    { Private declarations }
  public
    { Public declarations }
  protected
  procedure CreateParams(var Params: TCreateParams); override;
  end;
  end;

kommt die:

Zitat:

[Error] Unit1.pas(23): 'IMPLEMENTATION' expected but ';' found
[Error] Unit1.pas(28): '.' expected but 'IMPLEMENTATION' found
[...]

[fkerber]

Hi!

Wenn ich das richtig sehe, hast du da das "end;" nach dem Funktionskopf zu viel.


Ciao Frederic

[Logic]

Hey danke, hat funktioniert... nur das Problem ist, dass mit dem Code das Form immer im Vordergrund bleibt mhh und ich will doch eigentlich genau das Gegenteil...

[Logic]

hat jemand ne Idee?

[FarAndBeyond]

Falls hier nochmal jemand landet und zum gleichen Thema 'ne Lösung braucht:

Das macht man ohne Params und ohne Timer einfach so:

Delphi-Quellcode:

Privat
Procedure WindowPosChanging(Var MSG: TWMWindowPosMsg); Message WM_WINDOWPOSCHANGING;

Procedure TForm1.WindowPosChanging(Var MSG: TWMWindowPosMsg);
 Begin
  If MSG.WindowPos.Flags And SWP_NOZORDER = 0
  Then MSG.WindowPos.HWNDInsertAfter := HWND_BOTTOM;
  Inherited;
 End;

Dann bleibt das Ding hinten auch wenn man auf die Form klickt...
(in D7 gehts ausgezeichnet)

Nur weil das Thema alt ist heißt das nicht, dass es von Google oder der internen Suche nicht mehr gefunden wird...
Daniel kann es ja wieder in die Versenkung kicken...
Information ist wichtiger als Herumgezicke... nur um das mal gleich vorneweg zu nehmen...