maskEdit - nur zwei buchstaben an einer stelle

[mickmack]

Hallo zusammen,

ich würde gerne in einem StringGrid nur bestimmte Eingaben zulassen. Dafür kann man das Ereignis OnGetMaskEdit gut nutzen.

Ist es dabei auch möglich an einer Stelle nur zwei bestimmte Buchstaben zuzulassen, so dass beispielsweise in einer Zelle nur ein "J" oder "N" eingegeben werden kann?

[Sharky]

Hai mickmack,

dafür würde ich das OnKeypress-Ereigniss verwenden.

Delphi-Quellcode:

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
var
  sg : TStringGrid;
begin
  sg := TStringGrid(Sender);
  if sg.Col = 2 then  // Nur die Zeile 2 prüfen.
  begin
    if not (Key in ['j','n',#8]) then Key  := #0;
    if Length (sg.Cells[sg.Col,sg.row]) = 1 then Key := #0;
  end;
end;