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

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.012 c
1-98083
Dmitriy Polskoy
2002-09-19 17:34
2002.09.30
Куда пропадает ключ?


3-97995
ah
2002-09-07 09:22
2002.09.30
Написал простенькую базу dbase с использованием BDE


3-97965
volph2
2002-09-09 11:15
2002.09.30
Locate


14-98275
NeyroSpace
2002-09-03 16:06
2002.09.30
Хотелось бы видеть сколько человек просмотрело твой вопрос...


1-98114
Вэн.
2002-09-20 09:56
2002.09.30
Интернет поисковик