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,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 von agm65:

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

Warum nicht im 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

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

[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 von Hobby-Programmierer:

Ausserdem solltest Du vielleicht MessageDlg o.ä. benutzen.

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 ?

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