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

0

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?

0

Po prostu ustaw OnKeyPress dla TEdit i już.

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

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

0

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

0
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;
0

A jak uruchomić komputer?
A jak uruchomić delphi/lazarusa?
A co to jest google?

1 użytkowników online, w tym zalogowanych: 0, gości: 1