Hi,

das hier ist der 4001ste Beitrag für VCL-Fragen. Ganz schön viel.

markieren

Delphi-Quellcode:

procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if not (key in [48..57,8,13]) then
    key := 0;
  with StringGrid1 do begin
    case key of
      VK_RETURN :

ich will nur die Zahlen 0..9 und Bacspace, Return zulassen im Stringgrid. Was ist an dem Code falsch ? Das key := 0 ist wirkungslos.

[edit=Daniel B]Delphi-Tags eingefügt. MfG Daniel B.[/edit]

Moin Hansa,

warum das nicht funktioniert, kann ich Dir im Moment auch nicht verraten, aber versuch's mal mit dem OnKeyPress. Damit geht's interessanter Weise.

  if not (key in ['0'..'9',#8,#13]) then key := #0; [EDIT]
Ich vermute, dass das mit dem Zelleneditor (InplaceEditor) zusammenhängt.
[/EDIT]