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.

**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:

zusammenfalten · markieren

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 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

Werd jetzt die Lösung von turboPASCAL benutzen. Dank an alle!

**robinWie**

Das hier ist eine sehr einfache möglichkeit

markieren

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!

Schließenbutton abschalten

Schließenbutton abschalten

Re: Schleißenbutton abschalten

Re: Schleißenbutton abschalten

Re: Schleißenbutton abschalten

Re: Schleißenbutton abschalten

Re: Schleißenbutton abschalten

Re: Schleißenbutton abschalten

Re: Schleißenbutton abschalten

Re: Schleißenbutton abschalten

Re: Schleißenbutton abschalten

Forumregeln

konda Registriert seit: 20. Dez 2005 253 Beiträge Turbo Delphi für Win32	#2 Re: Schleißenbutton abschalten 13. Mär 2006, 15:43 Vielleicht kannst du über das OnCloseQuery-Ereigniss so eine Art deaktivierten Zustand erreichen.
	Zitat

Mena Registriert seit: 7. Mai 2004 Ort: Wiltingen 9 Beiträge Delphi 5 Enterprise	#3 Re: Schleißenbutton abschalten 13. Mär 2006, 15:50 Nicht schön, aber wirkungsvoll: Ich setze in so einem Fall im FormClose die Action auf caNone. Grüße von Mena Ich muss nicht alles wissen, aber ich kann alles lernen.
	Zitat

alzaimar (Moderator) Registriert seit: 6. Mai 2005 Ort: Berlin 4.956 Beiträge Delphi 2007 Enterprise	#5 Re: Schleißenbutton abschalten 13. Mär 2006, 17:01 Oder: MyForm.Formstyle := fsDialog ??? "Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!" (Monty Python "Joke Warefare")
	Zitat

Cyberbob Registriert seit: 24. Jan 2005 Ort: Karben 626 Beiträge Delphi XE7 Architect	#6 Re: Schleißenbutton abschalten 13. Mär 2006, 17:42 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 Christian
	Zitat

alzaimar (Moderator) Registriert seit: 6. Mai 2005 Ort: Berlin 4.956 Beiträge Delphi 2007 Enterprise	#7 Re: Schleißenbutton abschalten 13. Mär 2006, 18:35 Peinlich, ist BorderStyle und der 'X'-Button ist sichtbar... Einfach ignorieren... "Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!" (Monty Python "Joke Warefare")
	Zitat

Cyberbob Registriert seit: 24. Jan 2005 Ort: Karben 626 Beiträge Delphi XE7 Architect	#8 Re: Schleißenbutton abschalten 13. Mär 2006, 18:50 Werd ich machen Werd jetzt die Lösung von turboPASCAL benutzen. Dank an alle! Christian
	Zitat

robinWie Registriert seit: 26. Okt 2005 Ort: Lippcity 404 Beiträge Delphi 2005 Personal	#9 Re: Schleißenbutton abschalten 13. Mär 2006, 19:35 Das hier ist eine sehr einfache möglichkeit markieren 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. Robin W. Ein Computer kann (fast) alles.... Man muss es ihm nur beibringen
	Zitat

Cyberbob Registriert seit: 24. Jan 2005 Ort: Karben 626 Beiträge Delphi XE7 Architect	#10 Re: Schleißenbutton abschalten 13. Mär 2006, 22:56 Das ist aber keine genügende Lösung für mich! Christian
	Zitat