Schließenbutton abschalten

[Cyberbob]

Hallo DPler,

mit BorderIcons := BorderIcons - [biMaximize]; Kann ich ja den Maximieren-Button ausblenden oder hidden. Mit dem Minimize-Button geht das auch. Wie stell ich das jedoch mit dem Close-Button an. Sodass nur dieser Deaktiviert ist?
SystemMenu auf False zu setzen ist auch keine wirkliche lösung

Danke im Vorraus, cyberbob

[edit=Luckie]Tippfehler im Titel korrigiert. Mfg, Luckie[/edit]

[konda]

Vielleicht kannst du über das OnCloseQuery-Ereigniss so eine Art deaktivierten Zustand erreichen. :firejump:

[Mena]

Nicht schön, aber wirkungsvoll: Ich setze in so einem Fall im FormClose die Action auf caNone.

Grüße von Mena

[turboPASCAL]

Versuche es mal so:

Delphi-Quellcode:

var
  AppMenu: HMENU;
begin
  AppMenu:=GetSystemMenu({FormX.}Handle, False);

  // "ausschalten"
  EnableMenuItem(AppMenu, SC_CLOSE, MF_BYCOMMAND or MF_GRAYED);

  // "einschalten"
  EnableMenuItem(AppMenu, SC_CLOSE, MF_BYCOMMAND or MF_ENABLED);
end;

[alzaimar]

Oder: MyForm.Formstyle := fsDialog ???

[Cyberbob]

Zitat:

Zitat von alzaimar

Oder: MyForm.Formstyle := fsDialog ???

Das gibts bei meinem Delphi garnicht (Delphi 6) Nur BorderStyle und da ist der Schließenbutton noch sichtbar und das will ich ja nicht

[alzaimar]

Peinlich, ist BorderStyle und der 'X'-Button ist sichtbar... Einfach ignorieren...

[Cyberbob]

Werd ich machen :mrgreen:
Werd jetzt die Lösung von turboPASCAL benutzen. Dank an alle!

[robinWie]

Das hier ist eine sehr einfache möglichkeit

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caNone;
end;

Mann kann den Schließenbutton zwar noch klicken, aber es passiert nix.

[Cyberbob]

Das ist aber keine genügende Lösung für mich!