Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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
4-98392
oduvan
2002-08-13 17:20
2002.09.30
Не работает посылка сообщения в другую прогу!!!


3-98022
bobr12
2002-09-10 13:03
2002.09.30
Опять Excel и InterBase


1-98099
Serg455
2002-09-19 01:32
2002.09.30
MessageBox


3-98006
Леван
2002-09-07 10:07
2002.09.30
Kак сделать Continue после Locate?


1-98130
гончий
2002-09-20 11:46
2002.09.30
Как воссоздать форму?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский