Hallo,
ob ich das jetzt verstanden habe
 FrankBKK hat folgendes geschrieben: |
...Wird jedoch die DBEdit Komponente durch Klick auf den
Post-Button verlassen, stoert der Focus im Exit-Event nur -
wie kann ich nun den SetFocus in diesem Fall abbrechen ? |
Angenommen:
Edit1 > Taborder = 0
Edit2 > Taborder = 1
Edit3 > Taborder = 2
und Button1
Wenn in Edit1 der Wert größer 100 ist soll der Focus auf Edit3 gesetzt werden,
aber
nicht wenn der Focuswechsel durch OnClick des Button1 ausgelöst wird.
Da hilft Dir die Tatsache das im OnExit-Ereignis mit ActiveControl die Komponente ermittelt werden kann, die den Focus bekommen wird.
Der Code im OnExit-Ereignis von Edit1 sieht dann so aus:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
| procedure TForm1.Edit1Exit(Sender: TObject);
begin
if ActiveControl <> Button1 then
if StrToInt(Edit1.Text) > 100 then
Edit3.SetFocus;
end; |
