Форум: "Основная";
Текущий архив: 2002.06.10;
Скачать: [xml.tar.bz2];
ВнизТребуется скорая помощь мастеров Найти похожие ветки
← →
andron (2002-05-30 12:43) [0]В приложении я показываю AboutBox ShowModal"ом, после этого все крепко виснет.
Подскажите, пожалуйса, что делать.
Желательно быстрее на интернет-карте осталось 9 мин...
Вот код
procedure AboutClick(Sender: Tobject);
begin
AboutBox:=TAboutBox.Create(Application);//пробовал и MainForm...
try
AboutBox.ShowModal;
finally
AboutBox.Free;
end;
end;
← →
Виктор Щербаков (2002-05-30 12:45) [1]В приведенном коде нет ничего криминального.
Очевидно ошибка в другом месте.
← →
Alx2 (2002-05-30 12:46) [2]Пробуй написать
Var AboutBox : TAboutBox;
begin
....
← →
Виктор Щербаков (2002-05-30 12:48) [3]Кстати, создается-ли форма AboutBox автоматически? Если да, убери её из списка автоматически создающихся форм.
← →
andron (2002-05-30 12:51) [4]Из списка убрал еще перед заданием вопроса...
Кстати, провайдер часовой кредит дал :)
← →
Alx2 (2002-05-30 12:54) [5]>andron (30.05.02 12:51)
Var AboutBox : TAboutBox;
пробовал?
← →
andron (2002-05-30 12:57) [6]Безусловно... Смысл был тот же!
Но баг кажется нашел
procedure TAboutBox.Button1Click(Sender: Tobject);
begin
Hide;
end;
← →
Виктор Щербаков (2002-05-30 12:59) [7]Ну я ж говорил в другом месте :)
← →
Song (2002-05-30 13:01) [8]AboutBox:=TAboutBox.Create( nil);
← →
andron (2002-05-30 13:08) [9]Спасибо, Song.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.06.10;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.011 c