Hi allerseits,
ich möchte nach der Eingabe in einem Edit-Feld den Inhalt überprüfen. Das mach ich im OnExit-Ereignis des Edit-Controls:
Code:
procedure TForm1.Edit1Exit(Sender: TObject);
begin
if Edit1.Text<>'xx' then begin
ShowMessage('Error: <>xx');
Edit1.SetFocus();
end;
end;
- ich Prüfe ich in meinem Beispiel auf 'xx' ab,
- im Fehlerfall setze ich den Focus zurück auf das Edit-Feld
die Prüfung funktioniert: es kommt die Fehlermeldung
anschließend wird der Focus aber NICHT auf das Edit-Feld gesetzt, sondern das Feld, welches das Verlassen des Edit-Feldes veranlasst hat, hat jetzt den Focus. Das gleiche Beispiel in
VCL funktioniert einwandfrei. Ist das ein Bug in Firemonkey oder muss ich da irgend etwas anders machen?
danke