Schließenbutton deaktivieren

[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 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 von FAlter:

Die einfachste Lösung wurde zuerst genannt.

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.