| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

УБРАТЬ иконку из ALT-TAB [D5, Win95/98]

Berzercer ©   (2003-05-13 16:57:00) 

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

---

DeadMeat   (2003-05-13 18:11:00) [1]

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


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.



---

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

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

---

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

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

---

Наверх