Вопрос по StringGrid

[artemavd]

Добрый вечер! Такой вопрос: можно ли сделать, чтобы в StringGrid-e в фиксированных ячейках можно было набирать текст?

[Stilet]

Можно. при клике по ячейке помещай по ее координатам на форме TEdit и это будет выглядеть как будто ячейка раскрылась.

[artemavd]

Че т я не очень понял

при клике по ячейке помещай по ее координатам на форме TEdit

То есть отлавливать координаты мыши и помещать туда просто Edit? А как потом сделать, чтобы когда убираешь курсор, то введенные данные не исчезали?

[psycho-coder]

Для Edit'a написать обработчик OnKeyPress, где будет проверяться, нажатие клавиши на Enter и сохранение значения в соответствующей ячейке таблицы.

[Stilet]

Ниче сложного. Вот смотрите, господа:

unit Unit1;

interface

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

type
  TStringGrid=class(Grids.TStringGrid)
   procedure q(var w:TWMLButtonDblClk); message WM_LButtonDblClk;
  end;
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public   cl,row:Integer;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Types;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Visible:=false;
end;

{ TStringGrid }

procedure TStringGrid.q(var w: TWMLButtonDblClk);
var c,rw:integer;r:TRect;
begin
 MouseToCell(w.XPos,w.YPos,c,rw);
 r:=CellRect(c,rw);
 with form1 do begin
 cl:=c;row:=rw;
  Edit1.Top:=r.Top;
  Edit1.Left:=r.Left;
  Edit1.Width:=r.Right-r.Left+2;
  Edit1.Height:=r.Bottom-r.Top+2;
  Edit1.Visible:=true;
  Edit1.Text:='';
 end;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then begin
   StringGrid1.Cells[cl,row]:=TEdit(sender).Text;
   TEdit(sender).Visible:=false;

 end;
end;

end.

[Demagog]

у меня такая проблема: в StringGrid заношу большое количество записей, но почему-то высота получившейся таблицы изменяется и как будто стремиться вместить все записи. Как это исправить? Такое ощущение, что срабатывает что-то типа AutoSize, но ничего подобного не обнаружил...

Спасите от этой напасти..