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
