Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.213.110.162] |
|
Сообщ.
#1
,
|
|
|
Тестовое приложение состоит из двух форм на первой форме кнопка с таким обработчиком
procedure TForm1.Button1Click(Sender : TObject); var temp:TForm2 begin temp:=TForm2.CreateParented(Handle); temp.ShowModal; end; во второй форме переопределён метод CreateParams следующим образом procedure TForm2.CreateParams(var Params: TCreateParams) begin inherited; Params.Style := Params.Style or WS_POPUP; end; вот если запустить это приложение и создать модальное окно и накрыть его сверху другим. А потом из панели задач попытаться его вызывать то оно не вызывается. Можно только либо свернуть закрывающие приложение окно, либо перейти на него с помощью Alt+tab. Среда сборки Delphi 7 проявляется на OC WinXP. Какбы сделать так чтобы окно поднималось на верх ? |