Otra opción más sencilla que se me ocurre es esta:
(1) Abrir los ficheros (DFM)
(2) Cambiar las líneas como esta:
Por otra como esta:
Código Delphi
[-]
object DBGrid1: TDBGridRO
Y crear un componente como este:
Código Delphi
[-]
unit uDBGridRO;
interface
uses
Windows, Messages, SysUtils, Classes, Controls, Grids, DBGrids;
type
TDbGridRO = class(TDbGrid)
private
protected
procedure Loaded; override;
public
published
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Samples', [TDbGridRO]);
end;
procedure TDbGridRO.Loaded;
begin
inherited;
Self.ReadOnly := True;
end;
end.