Скачать: CL | DM;

событие 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;

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.039 c