Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   numpad simmulieren (https://www.delphipraxis.net/159565-numpad-simmulieren.html)

guude4 2. Apr 2011 13:28

numpad simmulieren
 
guude

Ich möchte mit Buttons ein Numpad simmulieren.

Ich habe einen Tachenrechner programmirt und möchte nun, dass man, wenn man auf einen Button klickt, in das Edit schreibt. Ich habe es geschafft eine einzelne Ziffer zu schreiben, aber mann soll ja auch mehrere tippen können und außerdem hab ich keine Ahnung wie ich einen Backspacedruck realisieren kann.

Vielen Dank

DeddyH 2. Apr 2011 13:36

AW: numpad simmulieren
 
Du kannst an einen String mit + weitere Zeichen anhängen. Und mit Delete() kannst Du Teilstrings aus einem String löschen. Mehr brauchst Du nicht, wenn ich Dich richtig verstanden habe. Alternativ kann man auch mit SelStart, SelLength und SelText von TEdit arbeiten.

guude4 2. Apr 2011 13:38

AW: numpad simmulieren
 
Vielen Dank für die sehr schnelle Antwort!

Etwas in der Richtung habe ich mir auch schon gedacht aber ich weiß nicht genau, wie ich das realisieren kann.

Könntest du mit vielleicht ein Beispiel posten oder nen Link.

DeddyH 2. Apr 2011 14:17

AW: numpad simmulieren
 
Sicher: http://www.delphi-treff.de/tutorials...ng/ueberblick/

guude4 2. Apr 2011 14:42

AW: numpad simmulieren
 
danke :)

aber wie kann ich das Ende eine Strings ansprechen?

himitsu 2. Apr 2011 14:57

AW: numpad simmulieren
 
Brauchst du nicht.
Einfach das neue Zeichen/Zahl hinten anhängen und das Ergebnis zurück ins Edit. (Delphi-Referenz durchsuchenTEdit.Text)

guude4 2. Apr 2011 16:47

AW: numpad simmulieren
 
@ himitsu:
das verstehe ich net:?:
wenn man keine stelle angibt wir auch nichts copiliert und eine funktion 'end' oder so hab ich nicht gefunden :(

DeddyH 2. Apr 2011 17:02

AW: numpad simmulieren
 
Eine 1 anfügen:
Delphi-Quellcode:
Edit1.Text := Edit1.Text + '1';
Letztes Zeichen löschen:
Delphi-Quellcode:
s := Edit1.Text;
Delete(s, Length(s), 1);
Edit1.Text := s;
oder
Delphi-Quellcode:
Edit1.Text := Copy(Edit1.Text, 1, Length(Edit1.Text) - 1);

guude4 2. Apr 2011 17:27

AW: numpad simmulieren
 
danke

den teil m,it dem erweitern hatte ich in der zwischenzeit auch raus - aber net so einfach ;)

und auf dat mit dem löschen wäre ich net gekommen


Alle Zeitangaben in WEZ +1. Es ist jetzt 16:32 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz