Topic: Обновление компонентов...
скрипт для отображения дня недели в ComboBox...(Может кому пригодится...)
procedure Form2_DateTimePicker5_OnChange (Sender: string);
var
WDay: integer;
begin
WDay := DayOfWeek(Form2.DateTimePicker5.Date)-1;
if Form2.DateTimePicker5.Checked then
begin
if WDay = 0 then Form2.ComboBox2.ItemIndex := 7 else Form2.ComboBox2.ItemIndex := WDay;
end
else Form2.ComboBox2.ItemIndex := 0;
end;
Доброго времени суток Дмитрий!
Ситуация такая:
На Form2(новая запись) есть DateTimePicker5 к нему привязан ComboBox2 для получении дня недели...
ставим галочку в DateTimePicker5 сразу выдаёт результат в ComboBox2.............РАБОТАЕТ!
Проблемка:
На этой же Form2 клик по строчки в TableGrid1:
s := SQLExecute('SELECT opendate FROM import WHERE id = ' + IntToStr(Form2.TableGrid1.dbItemID));
if s <> '' then Form2.DateTimePicker5.Date := SQLDateTimeToDateTime(s) else Form2.DateTimePicker5.Checked := False;
дата появляется...а вот ComboBox2 молчит.............. в дате снимешь галочку,а потом поставишь работает....
Вопрос:
существует возможность заставить работать ComboBox2..как только изменилась дата в DateTimePicker5.....?
С Уважением и Благодарностью Роман!!!