событие On Select компоненты TComboBox

← →
Antello (2006-12-07 08:17) [0]

Помогите, пожалуйста, я новичок по delphi. У меня в программе возник один глюк.
В событие On Select компоненты ComboBox1, т.е. я выбираю необходимое значение. А это значение при выборе заносится в таблицу. Все тут классно работает, т.е. он заносится и сохраняется в БД, когда завершаем программу, как положено. Но, при перегрузке компьютера только что измененное значение слетает, и показывает значение, которого мы указали до изменения этого же значение. Он как бы должен сохраняться, хоть и произошла неожиданная перегрузка компьютера.
В чем тут может быть проблема?

procedure TForm4.TimeCorrComboBoxSelect(Sender: TObject);
begin
with DataModule1.Settings_Table do
begin
if( not Active ) then
Open;
Edit;
FieldByName("TimeCorrection").AsInteger:= TimeCorrComboBox.ItemIndex;
Post;
end;
end;
//форма показывает значение, которого я указала в Combobox’e
procedure TForm4.FormShow(Sender: TObject);
begin
if( not DataModule1.Settings_Table.Active ) then
DataModule1.Settings_Table.Open;
TimeCorrComboBox.ItemIndex:= DataModule1.Settings_Table.FieldByName("TimeCorrection").AsInteger;
GPS_CheckBox.Checked:= DataModule1.Settings_Table.FieldByName("GPS_Is_Active").AsBoolean;
end;

← →
stone © (2006-12-08 10:37) [1]

После Post;
FlushBuffers;

событие On Select компоненты TComboBox Найти похожие ветки