Rahmenloses Fenster soll Desktop überblenden

[Kamil]

Vielleicht so:

Delphi-Quellcode:

procedure TForm1.FormPaint(Sender: TObject);
begin
  if BorderStyle<>bsNone then
  begin
    BorderStyle:=bsNone;
    WindowState:=wsNormal;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  BorderStyle:=bsSizeable;
  WindowState:=wsMaximized;
end;