Schließenbutton deaktivieren

[MisterNiceGuy]

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

[Sharky]

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

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