Как выпонить действия по двойному слику на созданной таблице

[Tiolic]

Создана таблица
with TabbedNotebook1 do
begin
myta:=TDBGrid .Create(Self );
myta .Left :=0 ;
myta .Top :=36;
myta .Width :=981 ;
myta .Height :=465 ;
myta .DataSource :=DataSource1 ;
myta .Name:=NamTab;
myta .Parent :=Pages.Objects[IndPag] as TWinControl ;
myta .Show ;
end;
.....
Как выпонить действия по двойному слику на созданной таблице

[Jeni]

Добавить строку:
myta.OnDblClick = MyProcedure;

и где-нибудь прописать саму процедуру, например:
procedure TForm1.MyProcedure(Sender: TObject);
begin
....
end;
Если таких таблиц создается несколько и нужно их различать внутри процедуры-обработчика, то можно использовать параметр Sender - это ссылка на таблицу по которой щелкнули мышкой.

[Tiolic]

Спасибо всё получилось !!
Тему можно закрыть.