Форум: "Базы";
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];
ВнизDBEdit в фокусе Найти похожие ветки
← →
Ю.Ю.(первый и единственный) (2001-12-18 09:57) [3]var
Form1: TForm1;
SelectedEdit:TDBEdit;
implementation
{$R *.DFM}
procedure TForm1.DBEditEnter(Sender: TObject);
// установить в качестве обработкика onEnter для всех DBEdit-ов
begin
SelectedEdit:=TDBEdit(SEnser);
end;
procedure TForm1.DBGridDblClick(Sender: TObject);
begin
if (SelectedEdit<>nil) and (TDBDBGrid(Sender).SelectedField<>nil)
then begin
if SelectedEdit.DataSource.DataSet=dsBrowse
then SelectedEdit.DataSource.Edit;
SelectedEdit.Field.Value:=TDBDBGrid(Sender).SelectedField.Value
end;
end;
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c