1 Topic by savage (edited by savage 2014-09-16 22:08:17)

  • Registered: 2014-05-31
  • Posts: 201

Topic: [Решено] OnChange не работает при выводе в комбобокс последней записи

День добрый.
Суть проблемы: не срабатывает действие по OnChange, если до этого была применена функция Last_Insert_id('таблица')

//изначальная блокировка GrBoxProject
procedure NewTask_OnShow (Sender: string; Action: string);
begin
   NewTask.GrBoxProject.Enabled:=False;
end;

// разблокирование/блокирование GrBoxProject в зависимости от значения поля  ComboBox_Type
procedure NewTask_ComboBox_Type_OnChange (Sender: string);
begin
   
     if NewTask.ComboBox_Type.Text='проект'  then
            begin
                NewTask.GrBoxProject.Enabled:=True;
            end else NewTask.GrBoxProject.Enabled:=False;
end;

// показать в комбобоксе последний введенный тип задачи
procedure NewTask_ButTypeEd_OnAfterClick (Sender: string);
begin
  if NewTask.Visible then NewTask.ComboBox_Type.dbItemID := Last_Insert_id('TaskType');
end;

с уважением,
savage

  • Registered: 2014-02-14
  • Posts: 10,294

Re: [Решено] OnChange не работает при выводе в комбобокс последней записи

попробуйте так

// показать в комбобоксе последний введенный тип задачи
procedure NewTask_ButTypeEd_OnAfterClick (Sender: string);
begin
  if NewTask.Visible then NewTask.ComboBox_Type.dbItemID := Last_Insert_id('TaskType');
  NewTask.ComboBox_Type.DoOnChange;
end;
Dmitry.
  • Registered: 2014-05-31
  • Posts: 201

Re: [Решено] OnChange не работает при выводе в комбобокс последней записи

DriveSoft, все работает.
Спасибо