Andriod Virtuelle Tastatur löscht Frame

[Shonsu]

Hallo Leute

Ich habe folgendes Problem:
Ich baue an einer Android-App und verwende dabei ein "Edit-Feld" in einem Frame. Wenn ich nun irgendetwas in das Feld mit der virtuellen Tastatur schreibe und mit "Return" bestätige löscht das immer gleich den ganzen Frame, und ich bin im Hauptfenster.
Wenn ich diesen wieder aufrufe, ist die Eingabe zwar vorhanden, aber weitere Aktionen hat er damit nicht ausgeführt.

Hat vllt. jemand eine Idee, wie ich das Verhalten der Tastatur verändere? Einfach den Frame in der Aktion neu starten geht auch nicht, da für ihn offenbar nach Tastatur schluß ist.

Vielen Dank im Vorraus.

[Mavarik]

Zitat von Shonsu:

... ein "Edit-Feld" in einem Frame...

Frame?

Das musst Du genauer erklären...

Mavarik

[Shonsu]

Nun ich benutze das Standard-Element "Frame" um in diesem ein Unit: TFrame6 = class(TFrame) anzuzeigen. Um damit einige Elemente zusammenzufassen und mit Variablen und Prozeduren zu versehen um sie anzuzeigen ohne ein neues Formular zu erstellen.

Das Frame liegt über der ganzen Form und wird bei Benutzung mit Daten gefüllt und sichtbar gemacht.

Ich habe hier mal etwas "reduzierten" Code angegeben, (also bitte nicht wundern wenn vllt. etwas zu viel ist oder vllt. eine Elementdefinition fehlt). Aber die anderen Elemente funktionieren sauber.

Es kommt mir auf die Prozeduren: "EdCodeChange(Sender: TObject)" und "Frame61EdCodeChange(Sender: Tobject)" an. (Nach meiner erfahrung reicht eine ich hab aber beide getestet) Sie sollen reagieren wenn sich der Text im Feld "EdCode" ändert.
Wozu es aber nicht kommt da wenn ich mit der Tastatur etwas in EdCode schreibe und mit Return bestätige oder die Eingabe abbreche sich der Frame schließt.

Delphi-Quellcode:

unit Unit6;

interface

uses
  Systems... und FMX...

type
  TFrame6 = class(TFrame)
    BtnLoeschen: TButton;
    BtnBestaetigen: TButton;
    EdCode: TEdit;
    ...
    procedure BtnLoeschenClick(Sender: TObject);
    procedure EdCodeChange(Sender: TObject);
  
  private
    FTitel: string;
    FMulti: Boolean;
    FUser: TObject;
    
  public
    property User: TObject read FUser write FUser;
    property Multi: Boolean read FMulti write FMulti;

    procedure gridsBefuellen(listeC1: TStringList; listeB1: TStringList; listeC2: TStringList; listeB2: TStringList);
  end;

implementation

procedure TFrame6.gridsBefuellen(listeC1: TStringList; listeB1: TStringList; listeC2: TStringList; listeB2: TStringList);
  var
  ...
  begin
    ...
end;

procedure TFrame6.BtnLoeschenClick(Sender: TObject);
begin
  EdCode.Text := '2';
  EdCode.Text := '';
end;

procedure TFrame6.EdCodeChange(Sender: TObject);
var
  ...
begin
  ...
end;

end.

Delphi-Quellcode:

unit Main_FMApp;

interface

uses
  system... fmx... UNIT6

type
  TForm6 = class(TForm)
    BtnStatus: TButton;
    BtnProjekt: TButton;
    Frame61: TFrame6;
        
    procedure FormCreate(Sender: TObject);
    ...
    procedure FillFrame(Sender: TObject);
    procedure Frame61BtnBestaetigenClick(Sender: TObject);
    procedure Frame61EdCodeChange(Sender: TObject);

var
  Form6: TForm6;

implementation

procedure TForm6.FormCreate(Sender: TObject);
begin
   ...      
  Frame61.Visible := False;
  Frame61.Enabled := False;
end;

// Testabfrage ist der Frame aktiviert, wenn ja deaktiviert die "Tablet-Rückfunktion"
// den Frame, andernfalls arbeitet sie normal und verlässt das Programm
procedure TForm6.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char;
  Shift: TShiftState);
begin
  if Frame61.Visible = True then
    begin
      Frame61.Visible := False;
      Key := 0;
    end
  else Key := 1;
end;

procedure TForm6.Frame61EdCodeChange(Sender: TObject);
var
   ...
begin
   ...
  if Frame61.User = BtnProjekt then
  begin
   ...
   end;

  if Frame61.User = BtnStatus then
  begin
    ...
  end; 
 
  Frame61.Visible := true;
  Frame61.Enabled := true;
end;

//Füllen des Frames für die Projektwahl und Anzeige desselben.
procedure TForm6.BtnProjektClick(Sender: TObject);
begin
    FillFrame(Sender);
    Frame61.Visible := true;
    Frame61.Enabled := true;
end;

//Füllen des Frames für die Statuswahl und Anzeige desselben.
procedure TForm6.BtnStatusClick(Sender: TObject);
begin
    FillFrame(Sender);
    Frame61.Visible := true;
    Frame61.Enabled := true;
end;

procedure TForm6.FillFrame(Sender: TObject);
var
  ...
begin
   ...
  if Sender = BtnProjekt then
    begin
      Frame61.setTitel('Projekt');
      Frame61.Multi := False;
      ...
    end;

  if Sender = BtnStatus then
    begin
      Frame61.SetTitel('Status');
      Frame61.Multi := True;
      ...
   end;

  Frame61.User := Sender;
  ...
end;

end.

PS. Ich bin hier noch nicht so lange dabei und weiss nicht was üblich ist und hoffe daher ich habs mit dem Code nicht übertrieben.

[Mavarik]

Zitat von Shonsu:

Wozu es aber nicht kommt da wenn ich mit der Tastatur etwas in EdCode schreibe und mit Return bestätige oder die Eingabe abbreche sich der Frame schließt.

Delphi-Quellcode:

// Testabfrage ist der Frame aktiviert, wenn ja deaktiviert die "Tablet-Rückfunktion"
// den Frame, andernfalls arbeitet sie normal und verlässt das Programm
procedure TForm6.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char;
  Shift: TShiftState);
begin
  if Frame61.Visible = True then
    begin
      Frame61.Visible := False;
      Key := 0;
    end
  else Key := 1;
end;

hmm Testabfrage?

Bei jedem Keyup ist das Frame weg!
Und dieser wird eben bei Return ausgelößt...

Mavarik

[Shonsu]

Eigentlich ist die Testabfrage als Schutz gedacht. Fall jmd. aus dem Frame ohne Daten zu speichern herauswill, nimmt man ja bei einer App meistens die 'KeyUp'-Funktion. Ein besonderer "Zurück"-Button wie im normalen Formular wird in der Regel ignoriert. Und so wollte ich bei KeyUp, fals der Frame offen ist, nur den Frame schließen. Sonst geht der mir ganz aus der App.

Gibt es denn eine Möglichkeit Festzustellen ob der 'KeyUp' von der zugehörigen Taste oder von der Tastatur ausgelöst wurde?

[Mavarik]

Zitat von Shonsu:

von der zugehörigen Taste oder von der Tastatur ausgelöst wurde?

Zugehörige Taste?

Ach so Du meinst einen Hardware Key?

Nutze ich nicht, da es sowas auf iOS nicht gibt... (Außer der Home Button)

Google hilft...

if Key = vkHardwareBack then

Mavarik

[Shonsu]

Vielen Dank erstmal für die Hilfe.

Ich meinte einen Hardware-Key der eben nur eine Form zurückspringt und nicht ganz in das Home-Menü des Tablets.

Aber ich hab ihn jetzt ausgetrickst, ich frag einfach ab ob der Focus noch auf dem Edit-Feld liegt, den setzt er nämlich nicht auf die Tastatur.
Zwar muss man die dann noch extra löschen, aber das stört nur minimal.

[Mavarik]

Zitat von Shonsu:

Ich meinte einen Hardware-Key der eben nur eine Form zurückspringt und nicht ganz in das Home-Menü des Tablets.

Ja... s.o. das ist der!
Android-Back Button