Форум: "Основная";
Текущий архив: 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