hallo
ich hab eine letztes problem in meinem programm. und zwar untersage ich durch folgende prozedur, das in meinen stringgrid zeichen eingegeben werden können, allerdings möchte ich - (minus) und , (komma) eingeben können.
Code:
procedure TForm1.TabKeyPress(Sender: TObject; var Key: Char);
begin
if not (key in [#8, #9, #48 .. #57]) then key:=#0;
end;
procedure TForm1.TabKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Stgrid_key:=true;
stgrid_lastkey:=char(key);
end;