probleme mit einer messagebox..

[Hobby-Programmierer]

... ich nochmal

Delphi-Quellcode:

if Application.MessageBox('Hey Ollum hast du korekt bock auf tool dicht mache ?', 'Programm Beenden', MB_ICONWARNING or MB_YESNO ) = ID_YES then
  Close
 else
  showmessage('test');

funktioniert ! Dein Fehler muss also woanders liegen. Um ein 'UnterFormular' zu schliessen musst Du es auch beim Namen nennen,

Delphi-Quellcode:

Form2.Close

sonst schliesst Du wie hier schon erwähnt, das gesamte Programm.

[morri]

wenn du das doch im formclose aufrufst, dann kommt das close doch auf jeden fall !

Erst kommt das, was du schreibst, und dann das formclose.
Schreib es mal woanders rein.
in einen Button von mir aus..

[Hobby-Programmierer]

Zitat:

Zitat von agm65

form1.show bringt leider auch nichts ..rufe direkt im form close auf

Warum nicht im

Delphi-Quellcode:

FormCloseQuery

wie ich oben schon schrieb?

[himitsu]

Form.Close wird ja aufgerufen, wenn das Schließen voll in Gang ist ... du kannst also nichts mehr machen :warn:

Form.CanClose ist das, was du willst,
das hat auch 'nen Parameter, wo du angeben kannst, ob geschlossen werden soll, oder nicht :zwinker:

[sh17]

oder ins CloseQuery und bei NO CanClose auf false setzen

[Peinhard]

Du meinst in TForm.OnClose? Dann müßtest du die var Action entsprechend setzen, also auf caNone wenn nichts passieren soll, default für ein SDI-Form ist (sic!) caHide. Eigentlich aber wäre OnCloseQuery der bessere Ort (CanClose entsprechend setzen).

[agm65]

okay danke

[SirThornberry]

auch im OnClose kann man das schließen noch verhindern. Einfach die Action auf "caNone" setzen.

[Martin K]

Auch wenn's ein wenig OT ist:

Zitat:

Zitat von Hobby-Programmierer

Ausserdem solltest Du vielleicht MessageDlg o.ä. benutzen.

Zitat:

Zitat von Flips

IMHO würde ich lieber den MessageDlg verwenden.

Warum denn ?
Was habt ihr gegen MessageBox ?

[agm65]

hey diese scheiß boxen funktionieren beide nicht richtig...wenn ich auf ja klicke dann macht er nein und bei nein krieg ich das fenster nicht mehr weg ..was mach ich falsch ?

Delphi-Quellcode:

if MessageDlg('Wollen sie wirklich beenden ?', mtConfirmation,[mbYes,mbNo],0) = mrYes then close;

hierbei macht er auf nein close und bei ja geht das fenster nicht mehr weg ?

diese dummen dinger