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

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.

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

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

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

Edit:
Danke habs schon!

markieren

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

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

Jap und genau das will ich

Hi
wenn mans weiss, eigentlich ganz einfach

markieren

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

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