Hallo!
Da ich da selbst jetzt 'ne halbe Ewigkeit danach gesucht habe, hier mal eine Lösung.
Unter Lazarus haben die meisten anderen Lösungen leider nicht so richtig funktioniert.
Die ersten beiden Bedingungen waren kein Problem, nur das '-' am Anfang war für mich ziemlich kniffelig (zumindest unter Lazarus).
Vieleicht hilft der Code-Schnipsel ja einem Andern weniger als 2 Tage zu suchen...
Gruß, Oliver
Delphi-Quellcode:
// Validates a Float-only input in a Cell of a TStringGrid
procedure TMyForm.MyGridKeyPress(Sender : TObject;
var Key : char);
var
CellText:Widestring;
selStart : integer;
cellRow, cellCol : integer;
begin
cellRow:= (sender
as TStringGrid).Row;
cellCol:= (sender
as TStringGrid).Col;
CellText:= (sender
as TStringGrid).Cells[cellCol,cellRow];
selStart:= TStringCellEditor(TStringGrid(Sender).Editor).SelStart ;
// exessive Typecasting to access SelStart
if not (Key
in [#8, '
0'..'
9', '
-', DecimalSeparator])
then Key := #0
else if ((Key = DecimalSeparator)
or (Key = '
-'))
and
(Pos(Key, CellText) > 0)
then Key := #0
else if (Key = '
-')
and (selStart <> 0)
then Key := #0;
end;
Der Volständigkeit halber hier noch die TEdit Lösung (die die meisten sicher schon kennen):
Delphi-Quellcode:
procedure TMyForm.MyEditKeyPress(Sender : TObject; var Key : char);
begin
if not (Key in [#8, '0'..'9', '-', DecimalSeparator]) then Key := #0
else if ((Key = DecimalSeparator) or (Key = '-')) and
(Pos(Key, (Sender as TEdit).Text) > 0) then Key := #0
else if (Key = '-') and
((Sender as TEdit).SelStart <> 0) then Key := #0;
end;