|
из приведенного примера(такие строчки у меня были написаны другим разработчиком):
IF Not Flag THEN BEGIN
CurrForm.ElementNaVkladke1.ACTIVATE
Flag := TRUE;
END;
У меня получилось избежать проблему путем блокировки ввода в списках в закладках изначально(EDITABLE := False). А при смене фокуса разблокировал их.
IF NOT blnFlag THEN BEGIN
CurrForm.ID.ACTIVATE;
CurrForm.sfrmComments.EDITABLE := TRUE;
CurrForm.sfrmDocuments.EDITABLE := TRUE;
blnFlag := TRUE;
END;
Клева.
|