[gelöst] MessageDlg: X ignorieren

[catweasel]

Hallo zusammen

Ich habe hier ein kleines Problem mit dem MessageDlg.

Ein SynEdit-Feld soll geruckt werden, allerdings nur wenn da auch was drinsteht.
Dazu habe ich am Anfang eine Abfrage eingebaut die die Anzahl der Zeilen abfragt und wenn die Antwort 0 ist, soll nach
einer kurzen Mitteilung mit MessageDlg der Vorgang abgebrochen werden.

das habe ich erst so umgesetzt:

Code: Alles auswählen

// SynEdit leer?
if ToDoSynEdit.Lines.Count=0 then 
     if MessageDlg('Drucken','Das Editfeld ist leer und wird daher nicht gedruckt!',mtError,[mbOK],0) = mrOK then exit;
// Drucken
if PrintDialog1.Execute then begin
[...]
end;

Das funktioniert auch soweit - WENN der User den OK-Button drückt und nicht das X um den Dialog zu schließen. In dem Fall geht das Programm zum nächsten Schritt und druckt.


Mein Workaround funktioniert zwar, sieht aber irgendwie verboten aus
Geht das nicht eleganter?

Code: Alles auswählen

// SynEdit leer?
if ToDoSynEdit.Lines.Count=0 then
      case MessageDlg('Drucken','Das Editfeld ist leer und wird daher nicht gedruckt!',mtError,[mbOK],0) of
        mrOK: exit;
        else  exit;
      end;
// Drucken
if PrintDialog1.Execute then begin
[...]
end;

Gruß
Michael

[wp_xyz]

Warum fragst du den gedrückten Button überhaupt ab? Du willst doch nur eine Meldung anzeigen und dann vor dem Drucken rausgehen, egal was der Benutzer angeklickt hat.

Code: Alles auswählen

// SynEdit leer?
if ToDoSynEdit.Lines.Count=0 then begin
  MessageDlg('Drucken','Das Editfeld ist leer und wird daher nicht gedruckt!',mtError,[mbOK],0);
  exit;
end;
// Drucken
if PrintDialog1.Execute then begin
[...]
end;

[catweasel]

Warum fragst du den gedrückten Button überhaupt ab? Du willst doch nur eine Meldung anzeigen und dann vor dem Drucken rausgehen, egal was der Benutzer angeklickt hat.

Code: Alles auswählen

// SynEdit leer?
if ToDoSynEdit.Lines.Count=0 then begin
  MessageDlg('Drucken','Das Editfeld ist leer und wird daher nicht gedruckt!',mtError,[mbOK],0);
  exit;
end;
// Drucken
if PrintDialog1.Execute then begin
[...]
end;

Danke, das war einfach zu einfach bei der Hitze

Gruß
Michael

[m.fuchs]

Und noch besser ohne Exit:

Code: Alles auswählen

if ToDoSynEdit.Lines.Count=0 then
  MessageDlg('Drucken','Das Editfeld ist leer und wird daher nicht gedruckt!',mtError,[mbOK],0)
else begin
  // Drucken
  if PrintDialog1.Execute then begin
  [...]
  end;
end;

[wp_xyz]

Und noch besser ohne Exit

In diesem Fall einverstanden mit dem "besser". Aber in vielen Fällen ist die konsequente Anwendung der "Goto"-ähnlichen Befehle "Exit", "Continue", "Break" die einzige Möglichkeit unübersichtliche Einrückungsstrukturen zu vermeiden. Zum einen wird die verfügbare Zeile mit jeder Einrückung kürzer, und zum anderen kann man den ELSE-Zweig nur noch schwer zuordnen.