Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by bombilein,
19. Aug 2004
zu 1.
tmp ist von Typ Integer
zu 2.
würde ich auch tippen... aber wo finde ich die anderen Konstanten
:gruebel:
Ich fand nur mrYes etc.
gruß
scm
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by bombilein,
19. Aug 2004
Wie man erkennen kann, verwende ich QDialogs.
Wenn ich nur Dialogs folgendermaßen verwende, geht es einwandfrei:
if MessageDlg('Wollen Sie speichern. ',
mtConfirmation, , 0) = mrYes then
Aber wieso geht das mit QDialogs nicht?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by bombilein,
19. Aug 2004
Ich führe folgende Anweisungen aus, wenn ich das Programm schließen möchte:
if(DataObject.bModifiedSincLastSave) then begin
tmp := MessageDlg(csWarningText, mtConfirmation, , 0, mbYes);
case tmp of
mrYes : SaveClick(self); // Speichern
mrCancel: Result := False; // Anwender will weiterarbeiten
mrNo : Result := True; // Programm darf geschlossen werden
...