TVSBStringGrid

type TVSBStringGrid = class(TStringGrid)

public

  CurrCol: Integer;

  IsEmpty: Boolean;

  procedure CreateParams(); override;

  procedure WndProc(); override;

  function MaxSW();

  procedure InsertDefault();

  procedure Insert();

  function FindColumn();

  function FindSameColumn();

  procedure RemoveColumn();

  procedure RemoveColumn4Tbl();

  procedure ClickCell();

  function SelectCell(); override;

  procedure DoOnDragOver();

  procedure DoOnDragDrop();

end;

TVSBStringGrid

TObject