OnGetEditMask (Delphi)

From RAD Studio Code Examples
Jump to: navigation, search

Description

This example specifies an edit mask in a string grid to limit the cells that contain telephone numbers, as indicated by a label cell in the first row. Include goEditing in the TStringGrid Options property. Set the title of one of the columns to 'Phone Number'. Set the DefaultColWidth large enough to see a phone number.

Code

procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.Cells[2, 0]:= 'Phone Number';
end;

procedure TForm1.StringGrid1GetEditMask(Sender: TObject; ACol, ARow: Longint; var Value: string);
begin
  if StringGrid1.Cells[ACol, 0] = 'Phone Number' then
    Value :=  '!\(999\)000-0000;1';
end;

Uses

See Also