Du bekommst den Integer von ModalResults und nicht den ModalResult selber

markieren

Delphi-Quellcode:

  ModalResults: array[TMsgDlgBtn] of Integer = (mrYes, mrNo, mrOk, mrCancel, mrAbort, mrRetry, mrIgnore, mrAll,
    mrNoToAll, mrYesToAll, 0, mrClose);

Zitat von Union:

Du bekommst den Integer von ModalResults und nicht den ModalResult selber

markieren

Delphi-Quellcode:

  ModalResults: array[TMsgDlgBtn] of Integer = (mrYes, mrNo, mrOk, mrCancel, mrAbort, mrRetry, mrIgnore, mrAll,
    mrNoToAll, mrYesToAll, 0, mrClose);

Was ich kriege ist mir ja egal, nur eben nicht das Gleiche wenn ich auf Abbrechen drücke und genau das bekomme ich zurück.

In AResult finde ich eine 2 egal ob ich auf Abbrechen drücke oder auf return.

Ist Return nicht das neue Escape?

Ich setze Dein Beispiel ins Quality-Portal, sofern es dort noch nicht drin ist.

Zitat von Daniel:

Ist Return nicht das neue Escape?

Ich setze Dein Beispiel ins Quality-Portal, sofern es dort noch nicht drin ist.

Das Problem ergibt sich auch nur bei iOS:

• Windows: Enter-Taste -> Dialog schließt und AResult = mrOK
• OSX: Enter-Taste -> Dialog schließt und AResult = mrOK
• Android: OK-Taste (Virtual Keyboard) -> virtuelle Tastatur verschwindet (Nun ja, nichts ist immerhin besser als falsch)

Hallo zusammen,

ich habe ein Projekt von XE7 auf XE8 umgezogen und wollte in diesem Zug auch "sauberer" mit den Styles arbeiten.
Habe gefühlt 100 Labels umgestellt, das Ergebnis es wird nicht gespeichert....

Anbei ein Video zur Verdeutlichung.
Könnte gerade

@darlo:

Habe gerade mal unter XE7 eine Form erstellt mit TTabControl, TLayout und darein ein TLabel gelegt, einen Style in ein StyleBook geladen und Styledsettings ausgeschaltet. Dann Projekt nach XE8 übernommen, die Optionen in StyledSettings alle aktiviert und gespeichert und wieder geladen. Hat dauerhaft gespeichert.

Kannst Du eine Form isolieren und hier zum Download bereitstellen, so dass man sich das einmal näher ansehen kann?

Hi Harry,

gerne, anbei ein Beispiel-Projekt. Bin ja gespannt was der Styleexperte hier im Forum herausfindet

Hast Du es mal so versucht:

zusammenfalten · markieren

Delphi-Quellcode:

InputQuery( 'Nutzer', ['Name:'], [''],
    procedure( const AResult: TModalResult; const AValues: array of string)
    var
      LItem : TListViewItem;
    begin
      if ( AResult <> mrCancel ) and (AValues[0] <> '') then
      begin
        LItem := NutzerListe.ListView.Items.Add;
        LItem.Text := AValues[0];
      end;
    end );

Bei der Cocoa-Implementierung kann man nämlich die TInputCloseQueryFunc übergeben, doch leider wird die nicht an den Delegate übergeben (konstant *nil*). Denn der akzeptiert nur TInputCloseQueryProc im constructor.

@SirRufo: Danke für die Tests auf den anderen Plattformen.

EMBT hat sich der Sache angenommen (Ticket ist einem Entwickler zugewiesen). Ich rechne damit (lies: "hoffe inständig darauf"), dass diese Korrektur in Update #1 enthalten sein wird.
https://quality.embarcadero.com/browse/RSP-11101

@Union: Getestet habe ich es noch nicht, denke aber, dass auch diese Variante einen falschen Wert für ModalResult liefern wird.