Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.16;
Скачать: CL | DM;

Вниз

Автоматически уничтожаемое окно   Найти похожие ветки 

 
konstantinov ©   (2004-05-01 00:06) [0]

Как создать и через какое-то время уничтожить окно?

Пробовал:
procedure ShowMSG ( const MSG : string );
 var Form : TForm;
     L : TLAbel;
begin
 Application.CreateForm(TForm,Form);
 L := TLabel.Create(Form);
 L.Parent := Form;
 L.Caption := MSG;
 Form.FormStyle := fsStayOnTop;
 Form.Show;
 Sleep(5000);
 PostMessage(Form.Handle,WM_CLOSE,0,0);  
 Form.Free;
end;

окно есть, текста нет. Окно не на что не реагирует.

ставлю ShowModal;

текст есть, но окно не уничтожается.

Заранее спасибо.


 
R   (2004-05-01 06:36) [1]

1.Поставь после Show -  Application.ProcessMessages и
текст отрисуется.
2.Sleep-потоку не дается процессорная обработка вот и нет
реакции
3.Используй таймер или что то в этом роде
procedure Sleep_Ex ( const Int:Integer );
var
I:Integer;
begin
For I:=0 To Int Do begin
Sleep(100);
 Application.ProcessMessages;
end;
end;
4.ShowModal приостановит дальнейшее выполнение процедуры,
следовательно уничтожать надо не вданной процедуре,
а например в OnTimer


 
Mim1 ©   (2004-05-01 10:15) [2]

PostMessage(Form.Handle,WM_CLOSE,0,0);  
Form.Free;

На момен уничтожения окна сообщение не отработает. Проще вызвать form.hide; form.free;



Страницы: 1 вся ветка

Текущий архив: 2004.05.16;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.037 c
3-1082115450
nv_
2004-04-16 15:37
2004.05.16
А всё таки поиск в подстановочном поле...


1-1083052559
MicroWorld
2004-04-27 11:55
2004.05.16
Структурированый масив, и выборка из него


1-1083040974
Sirus
2004-04-27 08:42
2004.05.16
Ограничение объема текста в TMemo...


1-1083077512
ЧупаЧупс
2004-04-27 18:51
2004.05.16
VcChart


1-1082999892
Lich
2004-04-26 21:18
2004.05.16
Установленные хуки