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

Вниз

Как сделать невидимой форму (Application) на Tesk Bare ?   Найти похожие ветки 

 
AiratX   (2002-12-04 19:06) [0]

Как сделать невидимой форму (Application) на Tesk Bare ?


 
LongIsland ©   (2002-12-04 19:11) [1]


> Tesk Bare


Он Task Bar"ом называется:-)

program Project1;

uses
Forms,
Windows,
Unit1 in "Unit1.pas" {Form1};

{$R *.res}

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.



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

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

Наверх




Память: 0.46 MB
Время: 0.01 c
3-51589
-=Sergeante=-
2002-11-22 17:49
2002.12.16
Дискретное значение сумм по месяцам.


4-51996
X-shadow
2002-11-03 16:57
2002.12.16
Перевести помогите плиз


1-51833
JKL
2002-12-05 15:34
2002.12.16
Размер файла


1-51702
perov
2002-12-05 07:49
2002.12.16
Создание компонетов


3-51631
Карелин Артем
2002-11-28 11:53
2002.12.16
Как определить число записей в DataSet без FetchAll?