Вызов DBEdit при двойёном щелчке мышью

[.Phoenix]

Ещё раз доброго времени суток.
Необходимо чтобы при двойном щелчке мыши выходил/появлялся компонент DBEdit.После того, как я введу в него данные, нужно чтобы эти данные вводились именно в ту ячейку DBGrid1, по которой я дважды щелкал, чтобы появился DBEdit. Какую процедуру/свойство стоит использовать?

[Stilet]

выходил/появлялся

Где? В каком месте?
И почему не воспользоваться стандартным набором редактирования ячейки в DBGrid?

[Баламут]

Ну если строго по тексту, то примерно так:

...
   ed: TDBField;
...........
procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
  ed := TDBEdit.Create(Self);
  ed.Left := 20;
  ed.Top := 10;
  ed.Parent := Form1;
  ed.DataSource := DataSource1;
  ed.DataField := DBGrid1.Columns[dbGrid1.SelectedIndex].Field.FieldName;
end;

EDIT: C Create я пожалуй погорячился. Если DBEdit уже есть на форме, то наверно и создавать-то его уже не нужно

[.Phoenix]

Где? В каком месте?
И почему не воспользоваться стандартным набором редактирования ячейки в DBGrid?

Как раз таки пользовался стандартным редактированием. Но хочу улучшить визуально свою программу - вот и решил в ход пустить DBEdit.
Спасибо за код.

[.Phoenix]

Кста, а какое событие нужно опрелелить чтобы при нажатии Enter DBEdit1 сразу сама по себе исчезала после того, как я введу и обновлю данные?

[soleil@mmc]

Сообщение от Баламут

EDIT: C Create я пожалуй погорячился. Если DBEdit уже есть на форме, то наверно и создавать-то его уже не нужно

  if not Assigned(ed) then 
    ed := TDBEdit.Create(Self);

[.Phoenix]

Цитата:Сообщение от Баламут
EDIT: C Create я пожалуй погорячился. Если DBEdit уже есть на форме, то наверно и создавать-то его уже не нужно

Код:

if not Assigned(ed) then
ed := TDBEdit.Create(Self);

С этим я разобрался, мне теперь необходимо чтобы DBEdit1 исчезал после того, как я уже введу новые данные и он мне на время не понадобиться.

[Yurk@]

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key=VK_RETURN then // нажатие кнопки Enter
ed.Free;
end;

[Баламут]

Yurk@, не лучшее решение. Событие может произойти в самый неподходящий момент. Лучше уж так

private
   procedure edExit(Sender: TObject);
.....................

procedure TForm1.edExit(Sender: TObject);
begin
  Sender.Free;
end;

procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
  ed := TDBEdit.Create(Self);
  ed.OnExit := edExit;
end;