hilfe !!

[Daniel B]

Hallo und herzlich Willkommen im Forum!

Das um das X auszuschalten:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject); 
begin 
  EnableMenuItem(GetSystemMenu( Form1.Handle, LongBool(False)), 
                 SC_CLOSE, MF_BYCOMMAND or MF_GRAYED); 
end;

Und das um es ganz verschwinden zu lassen:

Delphi-Quellcode:

procedure TFMain.FormCreate(Sender: TObject); 
Var 
  hMenuHandle:Integer; 
begin 
  hMenuHandle := GetSystemMenu(Handle, FALSE); 
  if (hMenuHandle <> 0) then 
    DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);
end;

Die anderen beide ganz kann man im OI aussschalten, oder gleich alle drei verschwinden lassen, das geht dann unter FormStyle z.B..

Grüsse, Daniel