Anwendung --> Kreuz deaktivieren oder unsichtbar machen

[Aenogym]

hi susanne,

wenn du borderIcons.biSystemmenu auf false stellst, sind auch minimieren und maximieren verschwunden.

um nur das kleine X auszublenden, nutze folgenden code:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  h: THandle;
begin
  h := GetSystemMenu(Handle, False);

  if h <> 0 then
  begin
    DeleteMenu(h, SC_CLOSE, MF_BYCOMMAND);
    DrawMenuBar(Handle);
  end;
end;

Aenogym