Forum: Cross-Platform-Entwicklung
by GS1200,
7. Jun 2014
Ich habe es gefunden...
Im Beispiel steht es so:
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);
Forum: Cross-Platform-Entwicklung
by GS1200,
7. Jun 2014
Sorry, hatte ich nicht erwähnt.. für Android.
Ich habe mich am Beispiel von emarcadero gehalten:
procedure THeaderFooterForm.btnPickClick(Sender: TObject); var
dlg: TForm1;
begin
dlg := TForm1.Create(nil);
// select current value, if available in the list
Forum: Cross-Platform-Entwicklung
by GS1200,
7. Jun 2014
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