Hallo,
ich komme nicht weiter, folgender Hintergrund:
In einer Android-App gibt es nur das Hauptformular, alle anderen sind nur als verfügbar im Projekt und werden bei Bedarf erzeugt und wieder zerstört.
Unter Windows absolut keine Probleme, auf einem Samsung Tab 6A allerdings funktioniert die erste Erzeugung immer, weitere Aufrufe (meist schon der zweite, aber auch erst beim 5. Mal bringt das Create des Unterformulars einen Segment fault (11) und ich komme beim Debuggen nicht an die Stelle wo es eigentlich knallt!
Hier noch ein paar Codeschnipsel:
Delphi-Quellcode:
//Hauptformular erzeugt Unterformular:
Unterform := TUnterform.create(Nil);
UnterForm.visible := True;
//damit das Unterform weiß woher es erzeugt wurde
UnterForm.FormBack := FormMain;
self.visible := false;
//und im Unterform das Erzeugen und zerstören:
...
var
FormBack : TForm;
...
procedure TFormMaterial.FormCreate(Sender: TObject);
begin
....
end;
procedure TUnterForm.FormDestroy(Sender: TObject);
begin
FormBack.visible := true;
FormBack.Activate;
end;
procedure TUnterForm.FormKeyUp(Sender: TObject; var Key: Word;
var KeyChar: Char; Shift: TShiftState);
begin
if Key = vkHardwareBack then
begin
Key := 0;
back();
end;
end;
procedure TUnterForm.back();
begin
self.Close;
end;
Hat jemand eine Idee wo ich ansetzen könnte?
Ciao
Stefan