Einzelnen Beitrag anzeigen

Ginko

Registriert seit: 30. Aug 2008
208 Beiträge
 
FreePascal / Lazarus
 
#7

Re: In Stringgrid schreiben ohne Text zu markieren

  Alt 22. Dez 2009, 17:26
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;
  Mit Zitat antworten Zitat