Форум: "Базы";
Текущий архив: 2005.01.02;
Скачать: [xml.tar.bz2];

Вниз

Как в DBGrid отловить окончание редактирования ячейки?   Найти похожие ветки 

← →
Alexander Panov ©   (2004-12-03 20:07) [40]

Anatoly Podgoretsky ©   (02.12.04 22:31) [37]
Enter, редактирование, Enter, конец редактирования - остаемся в той же колонке.

Согласен.

>автору

Вот рабочий пример:

type
 TForm1 = class(TForm)
   db: TDatabase;
   Table1: TTable;
   DBGrid1: TDBGrid;
   DataSource1: TDataSource;
   Label1: TLabel;
   procedure FieldValidate(Sender: TField);
   procedure FormCreate(Sender: TObject);
   procedure DataSource1StateChange(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;
 FieldValue: Variant;

implementation

{$R *.dfm}

procedure TForm1.FieldValidate(Sender: TField);
var
 tf: Variant;
begin
 tf := DBGrid1.DataSource.DataSet.FieldValues[DBGrid1.SelectedField.FullName];
 if tf<>FieldValue then
 begin
   ShowMessage("!");
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
 i: Integer;
begin
 for i := 0 to Table1.FieldCount-1 do
 begin
   Table1.Fields[i].OnValidate := FieldValidate;
 end;
end;

procedure TForm1.DataSource1StateChange(Sender: TObject);
begin
 if DBGrid1.DataSource.DataSet.State=dsEdit then
 begin
   FieldValue := DBGrid1.DataSource.DataSet.FieldValues[DBGrid1.SelectedField.FullName];
 end;
end;

end.

---

Страницы: 1 2 вся ветка

Форум: "Базы";
Текущий архив: 2005.01.02;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.51 MB
Время: 0.037 c