Anwendung --> Kreuz deaktivieren oder unsichtbar machen

[Susanne]

hallo,

bei einer Anwendung gibt es ja immer dieses Kreuz rechts oben zum Schliessen der Anwendung. Gibt es eine Möglichkeit, dieses zu deaktivieren, so dass es entweder nicht mehr sichtbar ist, oder soviel drauf geklickt werden kann, ohne dass etwas passiert?

[malo]

Schau dir mal im OI die BorderIcons an. BiSystemMenu auf false stellen und schon ist das X weg

edit: haha, erster

[Jelly]

Ja, setze mal Bordericons.biSystemmenu deiner Form auf false.

[Aenogym]

hi susanne,

wenn du borderIcons.biSystemmenu auf false stellst, sind auch minimieren und maximieren verschwunden.

um nur das kleine X auszublenden, nutze folgenden code:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  h: THandle;
begin
  h := GetSystemMenu(Handle, False);

  if h <> 0 then
  begin
    DeleteMenu(h, SC_CLOSE, MF_BYCOMMAND);
    DrawMenuBar(Handle);
  end;
end;

Aenogym

[omata]

Hallo Susanne,

das deaktivieren des Kreuzes reicht eigentlich nicht.

Über Alt+F4 könnte die Anwendung immer noch beendet werden.

Aber im Ereignis OnClose gibt es den Parameter Action. Wenn du dort caNone zurückgibst, kann die Anwendung nicht mehr beendet werden.

(nicht ganz sicher, da im Moment kein Delphi zur Hand: Im Ereignis OnQueryClose gibt es den Parameter CanClose der das selbe macht)

MfG
Thorsten

[malo]

Zitat von omata:

Aber im Ereignis OnClose gibt es den Parameter Action. Wenn du dort caNone zurückgibst, kann die Anwendung nicht mehr beendet werden.

Achtung hierbei, dass man das Programm hinterher überhaupt noch schließen kann !!!

Dafür einfach eine globale Boolsche Variable erstellen und auf False setzen. Wenn du das Programm wirklich schließen willst, die Variable auf true setzen. Und dann im OnClose Action nur auf CaNone setzen, wenn die Variable auf false steht, sonst normal schließen lassen

[Jelly]

Zitat von malo:

Dafür einfach eine globale Boolsche Variable erstellen

Tsetse... Das ist aber nicht gerade OO-like.

[malo]

Zitat von Jelly:

Zitat von malo:

Dafür einfach eine globale Boolsche Variable erstellen

Tsetse... Das ist aber nicht gerade OO-like.

Muss man das jetzt verstehen?

[Susanne]

vielen vielen lieben Dank für die schnellen Antworten. Ich habe BiSystemMenu jetzt erst mal auf False gesetzt.