In Stringgrid schreiben ohne Text zu markieren

[Ginko]

Das mit dem InplaceEditor klappt soweit alles, danke nochmal.
Leider gibt es noch eine Unschönheit bei meiner Beschränkung der Eingabelänge.
Bei meiner Variante erscheinen die Buschstaben, die die Maximallänge überschreiten, solange bis die Taste losgelassen wird,
was nicht so toll ausschaut. Der InplaceEditor hat ja leider keine Möglichkeit die MaxLenght anzugeben, so wie ich das gesehen habe. Das KeyDown Ereignis kann ich nicht benutzen, da zu dem Zeitpunkt der Zugriff auf den InplaceEditor nicht möglich ist.
Und mit dem KeyPress Ereignis klappt es irgendwie nicht...
Hat vielleicht jemand dazu eine Idee, wäre super!

Delphi-Quellcode:

procedure TEigenesGrid.KeyUp(var Key: Word; Shift: TShiftState);
var
  temp: String;
begin
  temp :=  InplaceEditor.Text;
  while Length(temp) > 4 do
    Delete(temp,5,1);

  while Length(temp) < 4 do
    temp := '0' + temp;
  InplaceEditor.Text := temp;
end;