Это глюк или я чего-то не понимаю?

← →
drpass (2002-01-28 14:26) [0]

Самый простой вариант этой ситуации:
Form1 в Unit1 и DataModule1 в Unit2.
В DataModule:
Ibtable1->DataSource1
В Form1:
Label1

Обработчик
DataSource1OnDataChange(...)
begin
Form1.Label1.Caption:=IBTable1Field1.AsString;
end;

Все работает, в свойство Caption записывается правильное содержимое, но... не отображается на экране, т.е., внешний вид Label не обновляется, даже после вызова Update! Вернее, обновляется - но только при первом срабатывании обработчика во время открытия таблицы
Это касается любого типа данных и любых компонент (DataControls работают без проблем), и других событий, например, TIBTable.AfterScroll

Переношу DataSource из DataModule1 на Form1 - все начинает работать, как и должно было.
Почему???

← →
asafr (2002-01-28 16:36) [1]

DataModule1.DataSource1OnDataChange(...)
begin
Form1.Label1.Caption:=IBTable1Field1.AsString;
end;

← →
drpass (2002-01-28 18:26) [2]

Угу, как раз так он и не работает

← →
RAVEN (2002-01-29 09:14) [3]

Попробуй Application.ProcessMessages после присваивания Form1.Label1.Caption:=IBTable1Field1.AsString;
Application.ProcessMessages;

← →
AndrewK (2002-01-29 09:21) [4]

Попробуй Form1.Label1.Refresh после Form1.Label1.Caption:=IBTable1Field1.AsString;

Label может просто не прорисовываться.

Это глюк или я чего-то не понимаю? Найти похожие ветки