Den "X"-Button in der Form deaktivieren

[Luckie]

Weg bekommt man ih nicht, wenn man die anderen beiden Schaltflächen behalten möchte. Aber man kan nihn deaktivieren, in dem man den entsprechenden Menüpunkt aus dem Systemmenü entfernt:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  hMenu: THandle;
begin
  hMenu := GetSystemMenu(Handle, false);
  if hMenu <> 0  then
  begin
    if DeleteMenu(hMenu, 6, MF_BYPOSITION) then
      DrawMenuBar(Handle)
    else
      ShowMessage(SysErrorMessage(GetLastError));
  end
  else
    ShowMessage(SysErrorMessage(GetLastError));
end;

Aber sinnvoller wäre es wahrscheinlich wirklich mit dem Ereignis der Form OnCloseQuery zu arbeiten.