Schließenbutton deaktivieren

[MisterNiceGuy]

Hi,
wie kann ich den Minimieren-,Maximieren- und den Schließenbutton deaktivieren?
(Oben rechts)

[Sharky]

Zitat:

Zitat von MisterNiceGuy

Hi,
wie kann ich den Minimieren-,Maximieren- und den Schließenbutton deaktivieren?
(Oben rechts)

Schaue dir mal die Eigenschaft BorderIcons deiner TForm an.

[MisterNiceGuy]

Jups, danke aber ich wollte die eigentlich so enablen (Auch den Schließenbutton), hast du dafür auch eine Lösung?

[Mario]

Deaktivieren kannst Du diesen mit normalen Mitteln nicht, aber unbrauchbar machen. Im OnClose die Action einfach auf caNone setzen.

[MisterNiceGuy]

kannst du mir sagen wie man das macht? Einfach im Prozedurkopf ändern?

Edit:
Danke habs schon!

[Steve]

Delphi-Quellcode:

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

Aber vorsicht - dann lässt sich das Fenster auf normalem Weg gar nicht mehr schließen :!:

Gruß
Stephan

[alcaeus]

Zitat:

Zitat von Mario

Deaktivieren kannst Du diesen mit normalen Mitteln nicht

Schon mal Nero beim Brennen gesehen?
Irgendwie kann man die disablen. Siehe dazu auch Anhang!

Greetz
alcaeus

[MisterNiceGuy]

Jap und genau das will ich :)

[LCS]

Hi
wenn mans weiss, eigentlich ganz einfach :mrgreen:

Code:

...
var
   hMen  : HMENU;
...
   //Ausschalten
   hMen   := GetSystemMenu(Self.Handle, LongBool(0));
   EnableMenuItem(hMen, SC_CLOSE, MF_BYCOMMAND or MF_GRAYED);

   //Einschalten
   hMen   := GetSystemMenu(Self.Handle, LongBool(0));
   EnableMenuItem(hMen, SC_CLOSE, MF_BYCOMMAND and not MF_GRAYED);

Gruss Lothar

[stonimahoni]

hi leute

bin noch ein kleiner delphi anfänger - sprich so feinheiten kenn ich noch net alle.
daher ne frage : wie binde ich den quelltext von dir ein LCS ?
weil ich bekomm ne fehlermeldung : [Fehler] : Undefinierter Bezeichner: 'Self' und [Fehler] : 'END' erwartet, aber ',' gefunden

was soll ich damit anfangen ?
bei dem fehler mit dem self geht er auf das erste self ein und bei dem zweiten fehler meint er das komma nach dem handle :(

plz help me :(



grüsse

stoni

[Sharky]

Hai stonimahoni,

ersteinmal: "Herzlich Willkommen in der Delphi-PRAXIS".

Die Fehler kommen weil du den Code in eine Methode deines Formulares einbinden musst. Das geht z.B. so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
   hMen  : HMENU;
Begin
   //Ausschalten
   hMen   := GetSystemMenu(Self.Handle, LongBool(0));
   EnableMenuItem(hMen, SC_CLOSE, MF_BYCOMMAND or MF_GRAYED);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
   hMen  : HMENU;
begin
   //Einschalten
   hMen   := GetSystemMenu(Self.Handle, LongBool(0)); 
   EnableMenuItem(hMen, SC_CLOSE, MF_BYCOMMAND and not MF_GRAYED);
end;

Also einfach 2 Buttons auf deine Form und jeweils den Code in das .OnClick Ereigniss der Buttons setzen.

[himitsu]

Du kannst den Code natürlich auch in's onCreate-Ereignis des Form's reinmachen.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var hMen: HMENU; 
Begin 
   //Ausschalten 
   hMen   := GetSystemMenu(Self.Handle, LongBool(0)); 
   EnableMenuItem(hMen, SC_CLOSE, MF_BYCOMMAND or MF_GRAYED); 
end;

PS: mit Alt+F4 läßt sich dein Programm auch noch beenden ;)

[stonimahoni]

hi

danke für das herzliche willkommen hier :)

und danke für eure antworten Sharky und himitsu.

eigentlich könnt ich mir grad in den a**** beissen, dass ich mit dem in eine methode ienbinden nicht selber drauf gekommen bin *grummel* ich hornochse - man man man

@ himitsu
das mit dem "Alt+F4 läßt sich dein Programm auch noch beenden" hab ich in den griff bekommen ;)
aber danke für den hinweis.

danke nochmals für eure hilfe

werd mich sicher nochmal melden beim nächsten problem *gg*


bis dahin

grüsse

stoni

[FAlter]

Warum soll ich es mir einfach machen?

Die einfachste Lösung wurde zuerst genannt.

Zitat:

Zitat von Sharky

Schaue dir mal die Eigenschaft BorderIcons deiner TForm an.

Dort darf nämlich kein biSystemMenu vorkommen, und schon ist der Button deaktiviert.

[alcaeus]

Hi Felix,

Zitat:

Zitat von FAlter

Die einfachste Lösung wurde zuerst genannt.

Zitat:

Zitat von Sharky

Schaue dir mal die Eigenschaft BorderIcons deiner TForm an.

Dort darf nämlich kein biSystemMenu vorkommen, und schon ist der Button deaktiviert.

das stimmt nicht so ganz. Schaltest du biSystemMenu ab, so wird der Button nicht deaktiviert, sondern nicht angezeigt. Dies ist ein kleiner, aber feiner Unterschied.

Greetz
alcaeus

[himitsu]

@FAlter
dann ist aber auch das Programmícon (linke Ecke) auch mit weg :(

[FAlter]

Ups, habe ich mit dem Minimieren-Button verwechselt. Der wird nur deaktiviert. Sorry.