Fórum Problemas com criacao de componentes... #258680

unit StringGridAcesso;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids,Mask;

type
  TCellsType = (ctNone, ctInteger, ctNumeric, ctDate, ctString);
  TStringGridColItens = record
    ColType   : TCellsType;
    MaxLen    : Integer;
    MaskEdit  : String;
    CanSelect : Boolean;
  end;
  TStringGridColDetail = array [0..9999] of TStringGridColItens;

  TStringGridAcesso = class(TStringGrid)
  private
    { Private declarations }
  protected
    { Protected declarations }
    procedure KeyPress(var Key: Char); override;
******* O ERRO ESTA AQUI ******************
    procedure GetEditMask(ACol, ARow: Longint; var Value: String);  ******* O ERRO ESTA AQUI ******************
override;
  public
    { Public declarations }
    ColDetails: TStringGridColDetail;
    constructor Create (AOwner : TComponent); Override;
    destructor Destroy; override;
  published
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents(´Novos´, [TStringGridAcesso]);
end;

constructor TStringGridAcesso.Create(AOwner: TComponent);
var FCont:integer;
begin
  inherited;
  for FCont:=0 to 9999 do
    begin
    ColDetails[FCont].CanSelect := True;
    ColDetails[FCont].ColType   := ctNone;
    ColDetails[FCont].MaskEdit  := ´´;
    ColDetails[FCont].MaxLen    := 0;
    end;
end;

destructor TStringGridAcesso.Destroy;
begin
  inherited;
end;


procedure TStringGridAcesso.GetEditMask(ACol, ARow: Longint; var Value: String);
begin
  {mask cell se for do tipo Tdate}
  case ColDetails[Col].ColType of
    ctDate : Value := ´!99/99/0000;1; ´;
  end;

end;

procedure TStringGridAcesso.KeyPress(var Key: Char);
begin
  {Filtrar digitacao de acordo com o tipo do campo}
  case ColDetails[Col].ColType of
    ctDate,ctInteger : if (key in [´0´..´9´,8,13]) then Key := Key
                        else Key := 0;
    ctNumeric        : if (key in [´0´..´9´,´,´,8,13]) then Key := Key
                        else Key := 0;
    ctNone,ctString  : Key := Key;
  end;

  {limitar digitacao dos campos}
  if not (key in [8, 13]) then
    if (ColDetails[Col].MaxLen > 0) and
       (Length(Cells[Col,Row]) > ColDetails[Col].MaxLen) then
       key := 0;

  inherited;
end;

end.