Den "X"-Button in der Form deaktivieren

[BAMatze]

Hallo,

hab mal wieder eine Frage. Ich möchte bei einer Form in meinem Programm dem Benutzer die Möglichkeit nehmen, ein selbst programmiertes Hilfe-Fenster mit dem "X"-Button oben rechts zu schließen. Er soll in diesem Fenster dazu gezwungen werden über 3 Buttons eine Entscheidung zu fällen. Da ist es schlecht, wenn man diese mit dem "X"-Button umgehen kann.

Danke für eure Hilfe im Voraus

BAMatze

[Codewalker]

Schau Dir mal das Ereignis OnCanClose von deinem Form an - das sollte dir weiterhelfen. Der var-Parameter "CanClose" gibt an, ob das Form geschlossen wird oder nicht.

[DeddyH]

Oder so versuchen: EnableMenuItem(GetSystemMenu(Handle,false),SC_CLOSE,MF_BYCOMMAND or MF_GRAYED or MF_DISABLED);

[Larsi]

Oder deaktiviere einfach alle BorderIcons im OI.

[turboPASCAL]

OT

und ich mache dann das fenster mit alt+f4 zu

[Luckie]

Weg bekommt man ih nicht, wenn man die anderen beiden Schaltflächen behalten möchte. Aber man kan nihn deaktivieren, in dem man den entsprechenden Menüpunkt aus dem Systemmenü entfernt:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  hMenu: THandle;
begin
  hMenu := GetSystemMenu(Handle, false);
  if hMenu <> 0  then
  begin
    if DeleteMenu(hMenu, 6, MF_BYPOSITION) then
      DrawMenuBar(Handle)
    else
      ShowMessage(SysErrorMessage(GetLastError));
  end
  else
    ShowMessage(SysErrorMessage(GetLastError));
end;

Aber sinnvoller wäre es wahrscheinlich wirklich mit dem Ereignis der Form OnCloseQuery zu arbeiten.

[turboPASCAL]

Zitat von Larsi:

Wer will denn die anderen beiden Schaltflächen behalten? Will er doch gar nicht.

Ein Versteckter beitrag ?
Bei mir ist der obere von Larsi SW_HIDE.

// Edit: war bis zur Löschung.

[Luckie]

Hm, ich habe da eben einen leeren Beitrag von Larsi gelöscht. Was war das jetzt?

aber zum Thema, wo steht, dass er die anderen beiden Schaltflächen zum Maximieren und Minimieren auch nicht haben will?

[andyvdeu]

Vielliecht hilft das ?

Delphi-Quellcode:

procedure DisableCaptionCloseButton(const FormHandle: THandle);
var
  hMnu: THandle;
begin
  hMnu := GetSystemMenu(FormHandle, FALSE);
  EnableMenuItem(hMnu, SC_CLOSE, SC_CLOSE or MF_GRAYED);
end;

procedure EnableCaptionCloseButton(const FormHandle: THandle);
var
  hMnu: THandle;
begin
  hMnu := GetSystemMenu(FormHandle, FALSE);
  EnableMenuItem(hMnu, SC_CLOSE, SC_CLOSE or MF_ENABLED);
end;

[edit=Sharky]Delphi-Tags eingefügt. Mfg, Sharky[/edit]

[Tyrael Y.]

Mal ne ganz andere Heransgehensweise...

Lass das X stehen und definiere dafür einen Standardwert.

zb. Formular hat drei Buttons

MacheAktion1 MacheAktion2 Abbrechen

...in diesem Fall wäre X = Abbrechen