Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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
15-1217074164
hidder
2008-07-26 16:09
2008.09.21
setup.ini


15-1217686137
VirEx
2008-08-02 18:08
2008.09.21
знатокам SQL


3-1206457759
redlinelab
2008-03-25 18:09
2008.09.21
Загрузка картинки из OLE из Access


11-1193554558
files32
2007-10-28 09:55
2008.09.21
RTTI или как его там в KOL


2-1218115988
Дамир
2008-08-07 17:33
2008.09.21
Работа с окнами





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский