pefpts.pas

Delphi高级开发指南是开发程序的好帮手

unit PefPts;

interface

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

type
  TPointsForm = class(TForm)
    Grid1: TStringGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure Grid1GetEditMask(Sender: TObject; ACol, ARow: Longint;
      var Value: string);
  end;

var
  PointsForm: TPointsForm;

implementation

{$R *.DFM}

procedure TPointsForm.Grid1GetEditMask(Sender: TObject; ACol,
  ARow: Longint; var Value: string);
begin
  if ACol < 2 then
    Value := '9999;0; '
  else
    Value := '';
end;

end.