XE6 ModalesFenster mrResult bringt Fehler.

[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