You should create a custom TInPlaceEdit for use within Grids.

Following is an example component:

unit CustomEditorGrid;

interface

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

type TMyInplaceEdit = class(TInplaceEdit) public procedure DblClick; override; end;

TCustomEditorGrid = class(TDBGrid) private { Private declarations } protected { Protected declarations } function CreateEditor: TInplaceEdit; override; public { Public declarations } published { Published declarations } end;

procedure Register;

implementation

const SomeDefaultValue = 'Default Value';

procedure Register; begin RegisterComponents('Custom', [TCustomEditorGrid]); end;

{ TCustomEditorGrid }

function TCustomEditorGrid.CreateEditor: TInplaceEdit; begin Result := TMyInplaceEdit.Create(Self); end;

{ TMyInplaceEdit }

procedure TMyInplaceEdit.DblClick; begin inherited DblClick;

if (Text = '') then Text := SomeDefaultValue; end;

end. 4/ /99 :32:33 AM