Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Taschenrechner, Zahlen überlappen sich


forcedbydelphi - Di 14.12.10 18:07
Titel: Taschenrechner, Zahlen überlappen sich
Hi Leute,
ich baue grade einen Taschenrechner und wenn ich z.B. die 1 drücke und dann die 2 steht da 2 und nicht 12, wisst ihr wie ich das beheben kann??
danke


Moderiert von user profile iconNarses: Topic aus Delphi Language (Object-Pascal) / CLX verschoben am Di 14.12.2010 um 17:07


Narses - Di 14.12.10 18:08

Moin und :welcome: im Forum!

Ich rate mal, suchst du sowas? ;)

Delphi-Quelltext
1:
Edit.Text := Edit1.Text +'2';                    

cu
Narses


forcedbydelphi - Di 14.12.10 18:12

vielen dank
also dann bei 3

Delphi-Quelltext
1:
Edit.Text := Edit1.Text +'3';                    
und bei 4

Delphi-Quelltext
1:
Edit.Text := Edit1.Text +'4';                    
??

Moderiert von user profile iconNarses: Delphi-Tags hinzugefügt


Narses - Di 14.12.10 18:13

Moin!

Probier´s doch mal aus, kein Mut zum Risiko? :zwinker: ja, so sollte es klappen

cu
Narses


forcedbydelphi - Di 14.12.10 18:21

jup es klappt, danke^^


Narses - Di 14.12.10 18:27

Moin!

Markierst du den Thread noch entsprechend, wenn dein Problem gelöst ist? Danke. ;)

cu
Narses


jaenicke - Di 14.12.10 18:32

Und wenn die Tasten mit 0 bis 9 beschriftet sind, kannst du auch allen die selbe Ereignisbehandlungsmethode zuweisen und dort schreiben:

Delphi-Quelltext
1:
2:
3:
4:
procedure TMyForm.MyButtonClick(Sender: TObject);
begin
  MyEdit.Text := MyEdit.Text + (Sender as TButton).Caption;
end;
Denn Delphi teilt dir mit, von welcher Komponente der Klick kam. Dann musst du das nicht für jede Taste einzeln schreiben. ;-)