Форум: "Основная";
Текущий архив: 2008.09.21;
Скачать: [xml.tar.bz2];
ВнизControl has no parent window Найти похожие ветки
← →
312kbps (2007-12-24 17:48) [0]procedure TForm1.FullListFile(ListF: TStrings;dir_base: string;mask: string);
var SR: TSearchRec;
begin
if FindFirst(dir_base + mask, faAnyFile, SR) = 0 then
begin
repeat
if (SR.Attr <> faDirectory) then
begin
ListF.Add(SR.Name);
end;
until FindNext(SR) <> 0;
FindClose(SR);
end;
end;
procedure TForm1.BackupDBF(dir_base: string);
begin
dir_base:=RightStr(dir_base,length(dir_base)-5);
FullListFile(ListFile.Items,dir_base,"*.dbf");
ListBox.Items:=ListFile.Items;
end;
процедура BackupDBF запускается по событию формы OnActive
подскажи мне , почему программа ругается на SR и выдает ошибку "Control "" has no parent window"
!? (
← →
Правильный_Вася (2007-12-24 18:22) [1]
> ListBox.Items:=ListFile.Items;
это чево и зачем оно?
← →
Германн © (2007-12-25 01:00) [2]
> подскажи мне , почему программа ругается на SR и выдает
> ошибку "Control "" has no parent window"
Программа может всяко ругаться на SR, но уж не так "Control "" has no parent window". Ошибка в другом месте.
← →
Германн © (2007-12-25 02:36) [3]P.S.
Если мне мой склероз не изменяет, то где-то летом было обсуждение сего исключения кучей мастеров.
← →
ЮЮ © (2007-12-25 03:21) [4]> Если мне мой склероз не изменяет, то где-то летом было обсуждение
> сего исключения кучей мастеров.
Добавление элементов в листбох вызывает его перерисовку, а он ещё не "размещен" на форме.
Решений проблемы великое множество:
1) в TForm1.FullListFile формировать невизуальный TStringList и Assign-нуть его в OnShow
2) перенести из OnActive в OnShow
3) заполнение ListF.Items взять "в скобки" BeginUpdates; ... ;EndUpdate, дабы избежать попыток перерисовки.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2008.09.21;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c