Entwickler-Ecke
Delphi Language (Object-Pascal) / CLX - Set Focous?!
Lazy - Mi 06.05.09 14:07
Titel: Set Focous?!
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!!
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
Delete - Mi 06.05.09 14:09
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 - Mi 06.05.09 14:10
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!
Delete - Mi 06.05.09 14:16
Mein Fehler, hab nicht auf das Ereignis geachtet. Ersetze Edit7.Clear einmal durch Edit7.SelectAll.
Lazy - Mi 06.05.09 14:16
AH okey danke ^^
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!