Форум: "Начинающим";
Текущий архив: 2006.12.24;
Скачать: [xml.tar.bz2];
Внизсобытие 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 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.12.24;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.077 c