[delphi] Decimaalscheidingsteken in edit

[Pino]

Ik heb een programma waar nogal wat bedragen ingevoerd moeten worden. Nu is het zo dat de standaard edit controls (Tedit en TDBEdit) als scheidingsteken per se een comma willen hebben, terwijl ik graag de bedragen in wil vullen op het numerieke keypad.

Iemand een idee?

[Verwijderd]

je kan de seperators gewoon wijzigen in delphi:
ThousandSeparator:=',';
DecimalSeparator:='.';

[Pino]

Verwijderd schreef op 12 March 2003 @ 13:26:
je kan de seperators gewoon wijzigen in delphi:
ThousandSeparator:=',';
DecimalSeparator:='.';

Dat had ik ook al geprobeerd, werkt dus echt niet. De weergave wordt er wel anders van, de input echter niet. Ik wil het dus precies andersom. De weergave moet wel nederlands blijven.

[ Voor 25% gewijzigd door Pino op 12-03-2003 13:29 ]

[Verwijderd]

je kan bv. in de OnKeyPress van de TEdit de ',' vervanger door een '.'. of
je zou uit moeten zoeken of je de locale van je applicatie kan wijzigen, naar bv. amerikaans. dan kan je weer met DecimalSeparator de weergave nederlands laten lijken


[edit]

Als je de toetsenbord indeling naar nederlands zet, zou het ook moeten werken. Maar dat is niet op applicatie-niveau

[ Voor 26% gewijzigd door Verwijderd op 12-03-2003 13:36 ]

[drm]

THEF_Pino:
Dat had ik ook al geprobeerd, werkt dus echt niet. De weergave wordt er wel anders van, de input echter niet. Ik wil het dus precies andersom. De weergave moet wel nederlands blijven.

Feitelijk wil je dus, als je een punt invoert, dat je een komma ziet? Dan lijkt me 't voorstel van deur de meest logische.

[LordLarry]

Als ik THEF_Pino goed begrijp wil ie naast de landinstelling gewoon altijd ook de '.' kunnen gebruiken. Dat kan alleen door in de OnKeyPress of iets dergelijks het teken te vervangen.

[Pino]

Het is al gelukt. Soms is de simpelste oplossing onzichtbaar

code:

procedure TfrmHuurBetalingen.dbe_BetaaldKeyPress(Sender: TObject;
  var Key: Char);
begin
 if Key='.' then Key := ',';
end;

Werkt dus gewoon goed.

Bedankt.