На две кнопки повесил два события: - на первую "..." - выбор из диалогового окна,
на вторую "x" - очистка контрола.
Первая работает хорошо - выбираешь значение из диалога, и оно подставляется в контрол (здесь: Взвешивание).
Но вторая очищает внутренние переменные, как и требуется, но сам контрол не очищает.
Многочисленными экспериментами было установлено, что если событие очищения вешаешь на кнопку ВНЕ контрола (на рисунке правая синяя стрелка), то контрол очищается нормально. Т.е. если событие инициировано изнутри контрола, он находится в фокусе, то он не очищается. Вышел из положение следующим образом: при нажатии этого крестика сначала принудительно смещаю фокус на соседний контрол, потом вызываю очищение - так работает. Но это "костыль". Можно ли как-то добиться правильной работы самого элемента tcxBarEditItem без таких танцев с бубном?
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
procedure TfmTehnicProcess.actClearReportCodeExecute(Sender: TObject);
begin
EditFindTehnicProcessName.SetFocus(); // принудительно уводим фокус на другой контрол, иначе не очищается
FindReportCodeId := 0;
end;
procedure TfmTehnicProcess.SetFindReportCodeId(const Value: integer);
var
q: TBISMySQLQuery;
begin
FFindReportCodeId := Value;
if FFindReportCodeId = 0 then
begin
EditFindReportCode.EditValue := '';
end
else
begin
q := TBISMySQLQuery.Create;
try
q.From('report_code', 'rc');
q.Find(FFindReportCodeId);
EditFindReportCode.EditValue := q.GetVal('report_code_name');
finally
q.Free;
end;
end;
UpdateData;
end;
Первая кнопка "..." работает нормально только потому, что при ее нажатии вызывается диалоговое окно, и фокус, соответственно с контрола убирается.
