schließen-button blockieren?

[Sandra121289]

hallo!
ich möchte gerne den schließen-button, der in jedem windows-fenster standardmäßig mit dabei ist blockieren, sodass man um das programm zu schließen nur noch den von mir eingefügten button benutzen kann! weiß jemand wie das geht?
danke im voraus

[zecke]

Nun die Form auswählen und im OI bei 'BorderIcons', 'biSystemMenu' auf 'false' setzen. Dann sind allerdings auch die Anderen Icons (minimieren, maximieren..) weg.

Etwas Anderes kenne ich nicht


2. edit: Willkommen in der DP

[MrKnogge]

Moin und herzlich willkommen in der DP

neben obiger Variante kannst du auch folgendes machen:

Delphi-Quellcode:

  if DeinButtonWurdeGedruekt = true then
    CanClose := true
  else
    CanClose := false;

DeinButtonWurdeGedruekt muss hierbei standardmäßig false sein, und durch dein Button dann auf true gesetzt werden.

Aber ich denke, du möchtest den Button deaktivieren, weil neben der Close-Anweisung noch weitere Befehle in deinem Button abgearbeitet werden sollen. Diese könntest du auch in das Ereigniss "OnClose" packen. So werden sie jedesmal beim Beenden deiner Anwendung ausgeführt (ausgenommen Alt+F4 natürlich)

Gruß

[Sandra121289]

danke
hat alles geklappt =)

[Hawkeye219]

Hier ist noch eine Möglichkeit:

Delphi-Quellcode:

procedure SetCloseButton (aForm: TForm;  aEnabled: Boolean);
const
  cFlags : array [Boolean] of Cardinal = (MF_GRAYED, MF_ENABLED);
var
  Menu : THandle;
begin
  Menu := GetSystemMenu(aForm.Handle, False);
  if (Menu <> 0) then
    EnableMenuItem(Menu, SC_CLOSE, MF_BYCOMMAND or cFlags[aEnabled]);
end;

Gruß Hawkeye

[Luckie]

Warum muss hier die Benutzeroberfläche wieder verstümmelt werden? Wenn man die Schliessenschaltfläche im Systemmenü deaktiviert, kann das Fenster auch nicht über Alt+F4 geschlossen werden. Warum sollte der Bnutzer das Fenster nicht über die Schliessenschaltfläche im Sytemmenü schliessen können? Es gibt für mich keinen Grund, der dagegen spräche.