![]() |
Schließenbutton deaktivieren
Hi,
wie kann ich den Minimieren-,Maximieren- und den Schließenbutton deaktivieren? (Oben rechts) |
Re: Schließenbutton deaktivieren
Zitat:
|
Re: Schließenbutton deaktivieren
Jups, danke aber ich wollte die eigentlich so enablen (Auch den Schließenbutton), hast du dafür auch eine Lösung?
|
Re: Schließenbutton deaktivieren
Deaktivieren kannst Du diesen mit normalen Mitteln nicht, aber unbrauchbar machen. Im OnClose die Action einfach auf caNone setzen.
|
Re: Schließenbutton deaktivieren
kannst du mir sagen wie man das macht? Einfach im Prozedurkopf ändern?
Edit: Danke habs schon! |
Re: Schließenbutton deaktivieren
Delphi-Quellcode:
Aber vorsicht - dann lässt sich das Fenster auf normalem Weg gar nicht mehr schließen :!:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin Action := caNone; end; Gruß Stephan |
Re: Schließenbutton deaktivieren
Liste der Anhänge anzeigen (Anzahl: 1)
Zitat:
Irgendwie kann man die disablen. Siehe dazu auch Anhang! Greetz alcaeus |
Re: Schließenbutton deaktivieren
Jap und genau das will ich :)
|
Re: Schließenbutton deaktivieren
Hi
wenn mans weiss, eigentlich ganz einfach :mrgreen:
Code:
Gruss Lothar
...
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); |
Re: Schließenbutton deaktivieren
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 |
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:52 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz