procedure TForm1.DBGrid1CellClick(Column: TColumn);
var Value:Variant;
begin
EditDlg.Show(Column.Field.Value,Value);
AdoTable1.Edit;
Column.Field.Value:=Value;
AdoTable1.Refresh;
end;
DBGrid, Формы
Народ у меня такой вопрос:
Есть DBGrid в нем содержится список фамилий, и как мне сделать чтобы при выделении или после двойного клика этой строки открылся другая форма для редактирования данных этой строки.
Есть DBGrid в нем содержится список фамилий, и как мне сделать чтобы при выделении или после двойного клика этой строки открылся другая форма для редактирования данных этой строки.
Создаешь форму для редактирования или диалог, пусть там будет Edit. В DBGrid пишешь что-то такого вида:
В форме редактирования пишешь такой код:
И вроде всё, а если событие дблклик, то
Код:
В форме редактирования пишешь такой код:
Код:
procedure TEditDlg.Show(Value:Variant; var return:Variant);
begin
EditDlg.Edit1.Text:=Value;
EditDlg.ShowMOdal;
return:=Edit1.Text;
end;
begin
EditDlg.Edit1.Text:=Value;
EditDlg.ShowMOdal;
return:=Edit1.Text;
end;
И вроде всё, а если событие дблклик, то
Код:
procedure TForm1.DBGrid1DblClick(Sender: TObject);
var Value:Variant;
begin
EditDlg.Show(DBGrid1.SelectedField.Value,Value);
AdoTable1.Edit;
DBGrid1.SelectedField.Value:=Value;
AdoTable1.Refresh;
end;
var Value:Variant;
begin
EditDlg.Show(DBGrid1.SelectedField.Value,Value);
AdoTable1.Edit;
DBGrid1.SelectedField.Value:=Value;
AdoTable1.Refresh;
end;