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

Вниз

Много окон   Найти похожие ветки 

← →
webpauk   (2004-05-18 10:51) [0]

С помощью
  with TForm2.Create(Application) do
  begin
     Show;
  end;

активирую несколько окон, наследников экземпляра Tform2. Проблема такая: при свойстве окна BorderStyle:=bsNone в окне Alt+Tab отображаются все созданные формы, а при прочих значениях вновь создаваемы окна не появляются (как и было задумано). В чём проблема?

---

← →
webpauk   (2004-05-18 11:03) [1]

причем:
Application.ShowMainForm:=False;

и

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetWindowLong(Application.Handle, GWL_EXSTYLE, GetWindowLong(Application.Handle, GWL_EXSTYLE) and not
  WS_EX_APPWINDOW or WS_EX_TOOLWINDOW);
end;



---

← →
webpauk   (2004-05-18 11:08) [2]

Всем, кого заинтересовало:
решение такое (сам нашел ошибку)
procedure TForm1.FormCreate(Sender: TObject);
begin
 SetWindowLong(Application.Handle, GWL_EXSTYLE, GetWindowLong(Application.Handle, GWL_EXSTYLE) and not
 WS_EX_APPWINDOW or WS_EX_TOOLWINDOW);
end;


---

← →
webpauk   (2004-05-18 11:09) [3]

опа!?
begin
SetWindowLong(Application.Handle, GWL_EXSTYLE, GetWindowLong(Application.Handle, GWL_EXSTYLE) and not
WS_EX_APPWINDOW);
end;


---

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

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

Наверх

Память: 0.47 MB
Время: 0.03 c