Forum: Win32/Win64 API (native code)
by Uwe Raabe,
24. Aug 2011
Das Event wird so aber ab einer Textlänge von drei bei jedem Tastendruck zweimal aufgerufen.
Forum: Win32/Win64 API (native code)
by Uwe Raabe,
24. Aug 2011
Ich kenne diese Art der Eingabe. Das habe ich früher an meinen alten Tischrechnern auch so gemacht. Man gibt immer die Cent-Beträge ein und der Rechner formatiert das automatisch auf Euro (OK, damals noch Pfennig und Mark).
Forum: Win32/Win64 API (native code)
by Uwe Raabe,
24. Aug 2011
Wenn du das Edit1.Tag nicht schon für was anderes brauchst (sonst halt eine extra Variable deklarieren):
var
s1, s2, s3: string;
l: Integer;
S: string;
begin
if Edit1.Tag > 0 then Exit;
Edit1.Tag := Edit1.Tag + 1;
try