Форум: "Система";
Текущий архив: 2003.07.03;
Скачать: [xml.tar.bz2];
ВнизКак в XP спрятаться от ALT+TAB? Найти похожие ветки
← →
demonyator (2003-04-14 23:49) [0]Сабж сообственно.
Пробовал вот что.
program Project1;
uses
Forms,
Windows,
Unit1 in "Unit1.pas" {Form1};
{$R *.RES}
var
ExtendedStyle : integer;
begin
Application.Initialize;
ExtendedStyle:=GetWindowLong(application.Handle, GWL_EXSTYLE);
SetWindowLong(Application.Handle, GWL_EXSTYLE,
ExtendedStyle or WS_EX_TOOLWINDOW {AND NOT WS_EX_APPWINDOW});
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
Не получается........
← →
Cobalt (2003-04-15 12:35) [1]попробуйте разкомментировать кусок
← →
demonyator (2003-04-16 19:06) [2]пробовал, - не хочет никак, то есть программа запускается, работает, но значок не пропадает.
← →
demonyator (2003-04-18 15:04) [3]ну подскажите хоть что-нибудь.
← →
Snap (2003-04-18 15:07) [4]По моему там с ShowWindow нао намутить. sw_hide что ли поставить. Одним словом, копай в этом направлении.
← →
DAT (2003-04-18 18:09) [5]Вы все правильно делаете, не хватает только одной строчки:
Application.CreateForm(TStartForm, StartForm);
Application.ShowMainForm:=false;
Application.Run;
← →
demonyator (2003-04-22 22:22) [6]Application.ShowMainForm:=false; не катит, потому что я хочу видеть свою форму.... помимо этого значок появляется как только форма становится видимой...
Проблему эту я всё-таки решил, кому интересно, вот как:
Для каждой формы я пропиываю по сути то же самое в onCreate
var
WnHnd : Integer;
begin
WnHnd := GetWindowLong(Form1.Handle, GWL_EXSTYLE);
WnHnd := WnHnd or WS_EX_TOOLWINDOW;
SetWindowLong(Form1.Handle, GWL_EXSTYLE, WnHnd);
После этого всё чудесно. Спасибо всем за помощь.
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2003.07.03;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c