Stringgrid akzeptiert nicht gewünschte Zeichen

[Hansa]

Hi,

ich brauche nur numerische Werte und mache das so :

Delphi-Quellcode:

procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if not (key in [48..57,8,13,27]) then
    key := 0;
showmessage (IntToStr (key));

Trotzdem kann ich in dem Stringgrid alles eingeben. Wieso ? Der key-Wert nach dem if ist bei falschen Eingaben 0.

[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]

[Keldorn]

Hallo

ich denke mal, das das am Inplaceeditor des Grids liegt. Eingaben machst du dort, nicht im Grid selber. (bin mir da aber nicht sicher und laß mich gern berichtigen)

versuchs mal so mit editmasken (könntest du auch für jede einzelne Zelle extra vergeben)

Delphi-Quellcode:

procedure TForm1.StringGrid1GetEditMask(Sender: TObject; ACol,ARow: Integer; var Value: String);
begin
  Value :=  '99999999;0; ';
end;

Mfg Frank

[Sharky]

Hai Hansa,

die Methode von Keldorn ist richtig.

Was aber interessant ist.... Im OnKeyPress geht es.

Delphi-Quellcode:

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
 if not (Ord (key) in [48..57,8,13,27]) then
  key := #0;
end;

[Hansa]

hat da einer ein Beispiel ?

Das mit Editmask gerht so nicht.

[Christian Seehase]

Moin Hansa,

würdest Du Dir bitte dazu noch einmal meinen letzten Beitrag in diesem Thread durchlesen:

Im Stringgrid mit Enter in nächste Zelle

[Keldorn]

Zitat von Hansa:

hat da einer ein Beispiel ?

Das mit Editmask gerht so nicht.

für was ein Beispiel? für Editmask?
das funktioniert so. wie die Maske aufgebaut sein kann/muß steht in der OH.
oder was geht nicht?

PS Ich finds irgendwie Klasse, wenn du hier schon wieder zu deinen eigenen alten Fragen postest. Überblick verloren?

Mfg Frank

[Hansa]

Kerle, Kerle, was für alte Fragen ? Es kann doch sein, daß sie noch nicht beantwortet sind? Dein GetEditMask gehört jedenfalls dazu. Das ist noch nicht geklärt.

[Christian Seehase]

Moin Hansa,

Zitat von Hansa:

Es kann doch sein, daß sie noch nicht beantwortet sind?

In dem oben von mir genannten Thread, und in Sharkys Posting hier steht, dass Du es mit OnKeyPress machen solltest, und nicht mit OnKeyDown.

[Keldorn]

Zitat von Hansa:

Dein GetEditMask gehört jedenfalls dazu. Das ist noch nicht geklärt.

hm. Entscheiden mußt du dich trotzdem, welchen weg du einschlagen willst. Editmask hat für mich den Vorteil, daß du für jede Zelle, Spalte oder Zeile eine Maske angeben kannst. Du kannst z.B. sagen, in Spalte 1 sind nur 4stellige Zahlen möglich, in Spalte 2 könnens auch 8 stellige zahlen sein und in spalte 3 kannst du eingeben was du willst. Die Möglichkeiten sind u.U. größer, kommt halt drauf an was du machen willst.

Außerdem hast du aber immer noch nicht gesagt, was nicht geht.

[Hansa]

Ich will die Eingaben abfangen, wie ist mir egal. Das mit dem EditMask geht im Moment noch nicht, wer hat Beispiel? OH gibt nicht viel her.