Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Почему не видна форма??? [D6, WinXP]

zam2000 © (2002-09-24 21:16:00)
Программа имеет 2 режима работы:
1. Интерактивный(пользователь нажимает на кнопки- происходят некоторые действия)
2. Режим командной строки(пользователь задает определенный набор операций и программа их выполняет)
Я в обработчик OnShow проверяю, задана ли командная строка, если да то идет обработка заданных инструкций.
Во время обработки все время вызываю Application.ProcessMessages.
Но основная форма все равно не видна.
Никакие Visible, SetWindowPos не помогают.
В общем вопрос в том, как сделать форму видимой не выходя из обработчика OnShow.

qube (2002-09-25 10:32:00) [1]
а где командную строку обрабатывать?
где-угодно, хоть в DPR, хоть в отдельном потоке.

NP-237 (2002-09-25 10:31:00) [2]
Я делаю тупо.
onShow - PostMessage(...,WM_USER,..)

onWM_User
ReFresh и далее по тексту

zam2000 (2002-09-25 10:27:00) [3]
а где командную строку обрабатывать?

qube (2002-09-25 10:20:00) [4]
Никаких циклов и ProcessMessages в OnShow!

zam2000 (2002-09-25 10:13:00) [5]
На самом деле как ни странно, рекурсия не получается.
Но не в том дело.
Даже если я пишу просто
for i:= 0 to 1000 do begin Application.ProcessMessages; sleep(5);end; application.MessageBox("123","",0);
в ОnShow, ниче не изменяется, основная форма не видна до появления messagebox.
А отдельный поток здесь не нужен, он усложнит реализацию и в общем решит только эту задачу.
Собственно вопрос сводится к тому, что такое делается после вызова Onshow, после чего становится видна форма и что нельзя сделать вручную.

Юрий Зотов (2002-09-24 22:43:00) [6]
> В TForm1.FormShow пишу:
inherited; // Зачем? От чего наследуется форма?
form1.Show; // И возникает рекурсия? Класс Form1 - это TForm1?

Уберите весь мусор и должно заработать. Если обработка операций затрудняет общение юзера с формой, вынесите ее в отдельный поток.

zam2000 (2002-09-24 22:10:00) [7]
Пробовал, не помогает.
В TForm1.FormShow пишу:
inherited;
form1.Show;
for i:= 0 to 1000 do begin Application.ProcessMessages;
sleep(5);end;
application.MessageBox("123","",0);

пока не появится MessageBox, форма не видна.

хех... (2002-09-24 21:55:00) [8]
inherited?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »