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

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

Moin und herzlich willkommen in der DP

neben obiger Variante kannst du auch folgendes machen:

markieren

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ß

danke
hat alles geklappt =)

Hier ist noch eine Möglichkeit:

markieren

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

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.