Не "видны" лейблы в Windows7

[altcore]

Не "видны" лейблы(Tlabel) в Windows7. Создаю их в run-time, Parent TScrollBox. Можно увидеть их, если уменьшить форму до появления полосы прокрутки на скроллбоксе и подергав ее. Второй момент: на другой схожей форме, которую делал раньше все отображается нормально! Вроде все свойства и тому подобное уже проверил, все одинаково. В чем может быть дело?

[GunSmoker]

Баг Delphi. Исправлен в Delphi 2007.

[altcore]

Это не то. Кстати с этой проблемой я тоже сталкивался, StaticText пропадал. Лечил таким кодом:

// This only works on Windows XP and above
if CheckWin32Version(5, 1) then
  Params.ExStyle := Params.ExStyle or WS_EX_COMPOSITED;

Вопрос открыт.

[Sibedir]

Не пойму о чем вы

  lb := TLabel.Create (Form1);
  lb.Caption := 'adsfadsfsdafasdfa';
  lb.Top := 100;
  lb.Left := 100;
  lb.Parent := ScrollBox1;

Появляется сразу

Win7, Delphi7

[altcore]

Форма, где лейблы видны:

    
    NewLabel := TLabel.Create(Self);
    NewLabel.Parent := Parent;
    NewLabel.Font.Charset := RUSSIAN_CHARSET;
    NewLabel.Font := Prop.Font;
    NewLabel.Name := 'Label_'+inttostr(num);
    NewLabel.Top := i;
    NewLabel.Left := j;
    NewLabel.Caption := mtStruct.FieldByName('KSP').AsString + '. ' + mtStruct.FieldByName('KRNAME').AsString

Форма c проблемой:

    with TLabel.Create(self) do begin
      Parent := sbFiltr;
      AutoSize := false;
      Top := i;
      Left := j;
      Width := w;
      str := arrCtrls[i].Name;
      delete(str, 1, pos('_', str));
      delete(str, 6, length(str) - 5);
      Name := 'Label_' + str + '_' + inttostr(i);
      Font.Charset := RUSSIAN_CHARSET;
      Caption := arrLbl[i].Caption;
    end;

Delphi7. Ситуация усложняется тем, что под рукой нету компьютера с Win7.

[_SERGEYX_]

Родитель ScrollBox?
А если после создания лейбла сделать

ScrollBox1.Repaint;

?
Я не могу проверить по причине отсутствия Win7

[psycho-coder]

А что мешает сделать через Canvas.TextOut?

[altcore]

Сообщение от _SERGEYX_

Родитель ScrollBox?

Да, в обоих случаях.

ScrollBox1.Repaint;

Попробую вечером.

А что мешает сделать через Canvas.TextOut?

Мне нужно потом к этим лейблам обращаться.

[altcore]

Вот у человека было что-то похожее:
http://www.sql.ru/Forum/actualthread...tid=141017&hl=

Да, кстати, подключен XPMan...