XE6 ModalesFenster mrResult bringt Fehler.

[GS1200]

Hallo zusammen,

bei meinem Projekt bekomme ich bei der Verwendung eines Modalen Fensters einen Fehler, wenn ich ein mrResult zurück geben. Ein kleines Testprojekt anbei, kann jemand den Fehler auch nachstellen? Ist es ein Bug in XE6?

Gruß

Axel

TestprojektModal.zip

[Daniel]

Für welche Plattform?
Auf den mobilen Plattformen ist es mit modalen Fenstern etwas schwierig. Unter iOS wird "ShowModal()" mit Hängen und Würgen unterstützt, unter Android gibt es einen Fehler. Windows und MacOS hingegen sollten funktionieren.

[GS1200]

Sorry, hatte ich nicht erwähnt.. für Android.

Ich habe mich am Beispiel von emarcadero gehalten:

Delphi-Quellcode:

 procedure THeaderFooterForm.btnPickClick(Sender: TObject); var
  dlg: TForm1;
begin
  dlg := TForm1.Create(nil);
  // select current value, if available in the list
  dlg.ListBox1.ItemIndex := dlg.ListBox1.Items.IndexOf(edit1.Text);
 
  dlg.ShowModal(procedure(ModalResult: TModalResult)
    begin
      if ModalResult = mrOK then
      // if OK was pressed and an item is selected, pick it
        if dlg.ListBox1.ItemIndex >= 0 then
          edit1.Text := dlg.ListBox1.Items [dlg.ListBox1.ItemIndex];
      dlg.DisposeOf;
    end);
 
end;

Hier der Artikel LINK

Gruß

Axel

[GS1200]

Ich habe es gefunden...

Im Beispiel steht es so:

Delphi-Quellcode:

 procedure THeaderFooterForm.btnPickClick(Sender: TObject); var
  dlg: TForm1;
begin
  dlg := TForm1.Create(nil);
  // select current value, if available in the list
  dlg.ListBox1.ItemIndex := dlg.ListBox1.Items.IndexOf(edit1.Text);
 
  dlg.ShowModal(procedure(ModalResult: TModalResult)
    begin
      if ModalResult = mrOK then
      // if OK was pressed and an item is selected, pick it
        if dlg.ListBox1.ItemIndex >= 0 then
          edit1.Text := dlg.ListBox1.Items [dlg.ListBox1.ItemIndex];
      dlg.DisposeOf;
    end);
 
end;

die Zeile dlg.DisposeOf habe ich durch freeandnil(dlg) ersetzt und dann geht es.

Gruß

Axel

[Sir Rufo]

Und da du für Android programmierst sollte auch dlg := nil; ausreichen.