Set Focous?!

Lazy · Hält's aus hier Beiträge: 12

Moin,

ich habe in mein Zinsrechnung-Programm eine if then else verzweigung ein gebaut, aber ich möchte versuchen das der Cursor zurück ins edit feld springt und den Falsch eingegebenden Buchstaben gleichzeitig löscht, sodass man sofort eine neue Eingabe machen kann!!
In meinem Kurs hat das unser Lehrer mit hilfe von Set Focous gemacht, aber ich weiß nicht genau wie ich das anwenden soll!!

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.Edit7Change(Sender: TObject);
begin
  if Edit7.Text = 'Z' then
  GroupBox1.Visible := True
  else
   if Edit7.Text = 'K' then
  GroupBox2.Visible := True
  else
   if Edit7.Text = 'p' then
  GroupBox3.Visible := True
  else
   showmessage('Bitte nur Z,K,p eingeben') ;
end;

Danke für die antworten schon jetzt

mfg

Lazy

Ehemaliges Mitglied Erhaltene Danke: 1

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm1.Edit7Change(Sender: TObject);
begin
  if Edit7.Text = 'Z' then
  GroupBox1.Visible := True
  else
   if Edit7.Text = 'K' then
  GroupBox2.Visible := True
  else
   if Edit7.Text = 'p' then
  GroupBox3.Visible := True
  else
    begin
      showmessage('Bitte nur Z,K,p eingeben') ;
      Edit7.Clear;
      Edit7.SetFocus;
    end;
end;

Lazy · Hält's aus hier Beiträge: 12

Oha das ging schnell nochmal danke !!!!

---Moderiert von Narses: Beiträge zusammengefasst---

Hmm entweder mach ich was falsch oder das funzt nicht den wenn ich im Programm dann eine falsche eingabe macht erscheint die Massega aber läßt sich nicht durch ''ok'' beenden!

Ehemaliges Mitglied Erhaltene Danke: 1

Mein Fehler, hab nicht auf das Ereignis geachtet. Ersetze Edit7.Clear einmal durch Edit7.SelectAll.

Lazy · Hält's aus hier Beiträge: 12

AH okey danke ^^

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme