delphi schließen-kreuz im fenster sperren

[paetz]

hi,
weiß jemand, wie man das schließen-kreuz eines formulars sperren oder besser noch unsichtbar machen kann?

borderstyle := bsnone fällt dabei aus, weil ich der titel des formulars weiterhin sichtbar sein soll.

[hhcm]

Versuchs mal damit. MainForm ist natürlich gegen den Namen deines Forms zu tauschen. FormCreate muss auch nicht sein, bietet sich nur an.

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

[paetz]

danke, das klappt soweit, das Kreuz ist enabled=false, aber gibts auch nen Weg, es komplett zu entfernen, und trotzdem die Titelleiste des Fensters zu erhalten?

[DonManfred]

danke, das klappt soweit, das Kreuz ist enabled=false, aber gibts auch nen Weg, es komplett zu entfernen, und trotzdem die Titelleiste des Fensters zu erhalten?

Form1.BorderIcons := [biMinimize, biMaximize]; // bisystemMenu entfernt.

müsste eigentlich funktionieren