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

Вниз

УБРАТЬ иконку из ALT-TAB   Найти похожие ветки 

 
Berzercer   (2003-05-13 16:57) [0]

Господа, плиз, очень нужно УБРАТЬ иконку из ALT-TAB. Именно убрать, чтобы она там не отображалась, а то знаю как сделать ее неактивной, но как вообще убрать - нет. Помогите. Без этого не могу проект закончить!


 
Zew   (2003-05-13 17:21) [1]

...
var WnHnd : Integer;
begin
WnHnd := GetWindowLong(Application.Handle, GWL_EXSTYLE);
WnHnd := WnHnd or WS_EX_TOOLWINDOW;
SetWindowLong(Application.Handle, GWL_EXSTYLE, WnHnd);
...
Попробуй читал что помогает если что подкорректируешь!


 
Berzercer   (2003-05-13 17:25) [2]

Спасибо, но это не работает.


 
DeadMeat ©   (2003-05-13 18:11) [3]

У меня вот так работает:


unit Unit1;

interface

uses
Windows, Controls, Forms;

type
TForm1 = class(TForm)
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
protected
procedure CreateParams(var Params: TCreateParams); override;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
params.ExStyle:= params.exstyle or WS_EX_TOOLWINDOW;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
showwindow (application.handle,sw_hide);
end;

end.




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

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

Наверх




Память: 0.47 MB
Время: 0.029 c
1-67765
Olivka
2003-07-06 12:37
2003.07.21
Интерфейс , MDI , Согласование меню и тулбара


4-68120
jonni
2003-05-21 00:03
2003.07.21
Kak otlovit iconku ot application


3-67676
Darrin
2003-06-26 12:04
2003.07.21
Грохнулся счетчик в таблице Access


3-67695
rosl
2003-06-27 07:42
2003.07.21
sql


7-68086
Song
2003-05-06 08:40
2003.07.21
Печать на рулон