Einzelnen Beitrag anzeigen

Benutzerbild von gordon freeman
gordon freeman

Registriert seit: 28. Jun 2003
Ort: Gelsenkirchen
337 Beiträge
 
Delphi 2005 Personal
 
#1

Markierung von Text in StringGrid-Zelle umgehen

  Alt 29. Mär 2005, 18:11
Hi Leute,

ich möchte beim Drücken einer Zahlen-Taste die Zahl mit einem vorangestellten '+' in eine Zelle eine Stringgrid schreiben. Das ganze mache ich folgendermaßen:

Delphi-Quellcode:
procedure TForm1.StringGrid1KeyPress(Sender:TObject;var Key:Char);
begin
if (key in ['0'..'9') and (length(StringGrid1.Cells[aktCellX,aktCellY]) = 0) then
  begin
   StringGrid1.Cells[aktCellX,aktCEllY] := '+' + key;
   key := #0;
  end;
end;
Allerdings wird bei einem erneuten Tastendruck sofort der gesamte Zelleninhalt wieder übrschreiben.

z.B:
gibt der Benutzer eine '4' ein, so erscheint in der Zelle '+4', wird direkt danach eine '2' eingegeben, so erscheint nicht '+42', sondern '2'.

Wie kann man das umgehen???

tia, read you, gordon
  Mit Zitat antworten Zitat