MessageDlg-Rückgabeproblem

[Airblader]

Hi :)
Ich habe mal wieder ein kleines Problem..

Mit folgendem Code (das wichtigste steht hier aber nur) will ich den gedrückten Button eines MessageDlg's utnerscheiden:

Delphi-Quellcode:

procedure TForm2.XXX(Sender: TObject);
var
        Err: TMsgDlgBtn;
begin
        if trim(Form2.LabeledEdit1.Text) = '' then
        begin
                Err := MessageDlg('Bitte geben sie einen Namen ein!', mtWarning, [mbOk,mbAbort], 0);
                
                case Err of
                        mrOk:
                                begin
                                        Form2.LabeledEdit1.Focused := true;
                                end;
                        mrAbort:
                                begin
                                        Form2.Close;
                                end;
                end;
        end; 
end;

Allerdings sagt er mir, dass MessageDlg einen Integer zurückgeben würde (Erfolgreich/Nicht erfolgreich :?: )
Die Delphi-Hilfe spuckt mir aber aus, dass der Rückgabe Wert den Typ TMsgDlgBtn hat und den gedrückten Button enthält...

Kann mir bitte jemand weiterhelfen? :)

air

[Luckie]

Zitat:

Zitat von Airblader

Hi :)
Allerdings sagt er mir, dass MessageDlg einen Integer zurückgeben würde (Erfolgreich/Nicht erfolgreich :?: )
Die Delphi-Hilfe spuckt mir aber aus, dass der Rückgabe Wert den Typ TMsgDlgBtn hat und den gedrückten Button enthält...

Im .NET Framework ist der Rückgabewert, glaube ich, TMsgDlgBtn. In der normalen VCL ist es ein Integer. Du schmeißt, da nicht zufällig zwei Sachen zusammen?

[alcaeus]

Die Buttons die du angibst, sind vom Typ TMsgDlgBtn, das ist richtig. Der Rückgabewert ist aber ein Int. In der OH gibts aber beim MessageDlg folgende Tabelle:

Code:

mbOk   mrOk
mbOK   mrOk
mbCancel   mrCancel
mbYes   mrYes
mbNo   mrNo
mbAbort   mrAbort
mbRetry   mrRetry
mbIgnore   mrIgnore
mbAll   mrAll
mbNoToAll   mrNoToAll
mbYesToAll   mrYesToAll

Links ist der Wert den du als Parameter mitgibst, damit der Button kommt, und rechts der entsprechende Rückgabewert.
Hoffe das hilft.

Greetz
alcaeus

[Airblader]

@alcaeus
soweit war ich auch ;)

@Luckie
mhm..stimmt...kann man da irgendwie noch unterscheiden?
Mhm..spontan würde mir einfallen

Delphi-Quellcode:

case MessageDlg(...) of
...
end;

[alcaeus]

Zitat:

Zitat von Airblader

soweit war ich auch ;)

Wo liegt dann dein Problem? :gruebel:

Zitat:

Zitat von Airblader

@Luckie
mhm..stimmt...kann man da irgendwie noch unterscheiden?
Mhm..spontan würde mir einfallen

Delphi-Quellcode:

case MessageDlg(...) of
...
end;

Klar geht das, warum nicht? Z.B. im OnClose des Forms:

Delphi-Quellcode:

case MessageDlg('Speichern?', mtCOnfirmation, [mbYes, mbNo, mbCancel], 0) of
  mbYes:
    DoSave;
  mbCancel:
    Action := caNone;
end;

Greetz
alcaeus

[Airblader]

Jo, habs auch ebewn so getestet, geht auch.

Das Problem war doch, dass er einen Integer zurückliefert wenn ich es in einer Variable ablege...da hilft mir die Tabelle nich viel (die ich ja eh kenne) ;)

Geht nun, Danke!

air

[Treffnix]

Zitat:

Das Problem war doch, dass er einen Integer zurückliefert wenn ich es in einer Variable ablege...da hilft mir die Tabelle nich viel (die ich ja eh kenne)

:gruebel:
mrOK, mrCancel etc. sind Integer

[Matze]

Hier ist auch ein kleines Tutorial, was vllt keinen interessiert, kA, aber da sind die einzelnen Dialoge erklärt.

[TeronG]

Zitat:

Zitat von alcaeus

Delphi-Quellcode:

case MessageDlg('Speichern?', mtCOnfirmation, [mbYes, mbNo, mbCancel], 0) of
  mbYes:
    DoSave;
  mbCancel:
    Action := caNone;
end;

hab da nen kleinen Tippfehler gefunden muss mrYes nicht mbYes heißen :zwinker: :mrgreen:

Delphi-Quellcode:

case MessageDlg('Speichern?', mtCOnfirmation, [mbYes, mbNo, mbCancel], 0) of
  mrYes:
    DoSave;
  mrCancel:
    Action := caNone;
end;

[alcaeus]

Zitat:

Zitat von TeronG

hab da nen kleinen Tippfehler gefunden muss mrYes nicht mbYes heißen :zwinker: :mrgreen:

:wall: Das kommt davon, wenn man arbeitet, Kaffee trinkt und nebenbei noch in der DP unterwegs ist :roll:

Greetz
alcaeus