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
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?