Form unschliessbar und onTop machen?

[littleDave]

Das ist nicht schwer:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    { ... }
    procedure FormCreate(Sender: TObject);
  private
    { Private-Declarations }
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;

implementation

{ ... }

var
  MitRand : boolean = True;

procedure TForm1.FormCreate(Sender: TObject);
begin
  if MitRand then 
     // Wenn du nen Fensterrahmen haben willst, dann musst du "Minimieren" deaktivieren
     BorderIcons      := BorderIcons - [biMinimize]
  else
     // Oder gleich "Keinen Fensterrahmen" setzen
     BorderStyle      := bsNone;

  // Nun noch nach ganz oben
  FormStyle        := fsStayOnTop;
end;

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited;
  // Flags setzen
  Params.Style     := Params.Style or WS_OVERLAPPED; 

  // Parent auf "Desktop" setzen
  Params.WndParent := GetDesktopWindow;              
end;

Durch das Setzen von Params.WndParent auf "Desktop" erscheint für eine Form ein neuer Eintrag in der Taskleiste. Das kannst du auch verhinden, jedoch möcht ich dir das nicht vorkauen.

Grüße