Który wybrać komponent do liczb rzeczywistych - Edit czy MaskEdit?

Kriso

2014-09-14T18:40:19+02:00

Rejestracja: dni
Ostatnio: dni

Chcę aby w takim polu edycji można było wpisać tylko liczby rzeczywiste ale bez znaku minus, który się najlepiej przyda Edit czy MaskEdit?

faber

2014-09-14T22:56:26+02:00

Rejestracja: dni
Ostatnio: dni

Po prostu ustaw OnKeyPress dla TEdit i już.

Kopiuj

 if not (Key in ['0'..'9', DecimalSeparator]) then begin
   //ShowMessage('Zly znak: '+Key);
   Key := #0;
end;

dodanie znacznika <code class="delphi"> - furious programming

Kriso

2014-09-17T10:40:42+02:00

Rejestracja: dni
Ostatnio: dni

a jak dodać do tego obsługę znaku minus "-" oczywiście tylko przed pierwszą liczbą?

kAzek

2014-09-17T11:48:48+02:00

Rejestracja: dni
Ostatnio: dni
Lokalizacja: Gorlice

Kopiuj

var
  CanSignedChar: Boolean;
begin
  CanSignedChar:= (Key = '-') and (TEdit(Sender).Perform(EM_GETSEL, 0, 0) = 0) and
        (Pos('-', TEdit(Sender).Text) = 0); //czyli po prostu czy znak to "-"
        //i kursus znajduje sie na poczatku i jeszcze nie ma znaku "-" w tekscie
  if (not (Key in ['0'..'9', #8, DecimalSeparator])) and (CanSignedChar = False) then begin
   //ShowMessage('Zly znak: '+Key);
   Key := #0;
  end;
end;