Форум: "Основная";
Текущий архив: 2002.09.30;
Скачать: [xml.tar.bz2];

Вниз

Как убрать форму из панели задач   Найти похожие ветки 

← →
separator   (2002-09-18 12:55) [0]

Я создаю динамически форму в dpr и не хочу, чтоб она была видна на панели задач. Как это сделать?

---

← →
AL2002   (2002-09-18 13:01) [1]

Если я правильно понял вопрос, то:
SetWindowLong(Application.Handle, GWL_EXSTYLE, GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW);

---

← →
separator   (2002-09-18 13:02) [2]

А можно без Application?

---

← →
AL2002   (2002-09-18 13:04) [3]

>А можно без Application?
Form1.Handle?

Такой вариант ещё есть:
ShowWindow(Application.Handle,0);

---

← →
AL2002   (2002-09-18 13:07) [4]

Или так:

var YourApp: HWND;
begin
YourApp:=FindWindow("YourAppName", nil);
if GetWindowLong(h, GWL_HWNDPARENT)<>0 then SetWindowLong(YourApp, GWL_HWNDPARENT, 0);
SetWindowLong(YourApp, GWL_HWNDPARENT, GetDesktopWindow);
end;

Ну чё?

---

← →
Separator   (2002-09-18 13:55) [5]

Не получается :( У меня вот такой код:

program ProjectTime;

uses
Forms,
Windows,
UnitTime in "UnitTime.pas" {FormTime};

{$R *.res}

var
Form: TFormTime;

begin
Form:= TFormTime.Create(nil);
Form.ShowModal;
Form.Free
end.


Ещераз условие задачки: не нужно, что в панели задач отображалась моя форма

---

← →
BOA_KAA   (2002-09-18 14:01) [6]

А так попробуй:

var
WnHnd : Integer;
begin
Application.Initialize;
WnHnd := GetWindowLong(Application.Handle, GWL_EXSTYLE);
if (WnHnd and WS_EX_TOOLWINDOW) = WS_EX_TOOLWINDOW then
WnHnd := WnHnd - WS_EX_TOOLWINDOW
else
WnHnd := WnHnd or WS_EX_TOOLWINDOW;
Application.MainForm.Hide;
SetWindowLong(Application.Handle, GWL_EXSTYLE, WnHnd);
Application.MainForm.Show;

Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.Run;
end.

---

← →
BOA_KAA   (2002-09-18 14:03) [7]

Сорри, Application.CreateForm(TForm1, Form1);

var
WnHnd : Integer;
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
WnHnd := GetWindowLong(Application.Handle, GWL_EXSTYLE);
if (WnHnd and WS_EX_TOOLWINDOW) = WS_EX_TOOLWINDOW then
WnHnd := WnHnd - WS_EX_TOOLWINDOW
else
WnHnd := WnHnd or WS_EX_TOOLWINDOW;
Application.MainForm.Hide;
SetWindowLong(Application.Handle, GWL_EXSTYLE, WnHnd);
Application.MainForm.Show;

Application.Run;
end.

Запарился:-((

---

← →
Separator   (2002-09-18 14:50) [8]

>> BOA_KAA
Спасибо сработало

---

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

Форум: "Основная";
Текущий архив: 2002.09.30;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.008 c