Скачать: CL | DM;

Работа с панелью задач   Найти похожие ветки 

← →
Barman ©   (2003-01-10 22:40) [0]

Уважаемые Мастера, я вот задумался над таким вопросом:

- вспомните ICQ. Там при запуске появляется главная форма, но она не отображается в панели задач. Но когда тебе приходит сообщение, создается еще одна форма, в которой пишутся сообщения, и она отображается в панели задач. Вот и я хочу сделать то же самое, но получается не совсем то. Отображение в панели задач главной формы я запретил (в FAQ каком-то нашел), а дочерняя форма, которая появляется,
когда я делаю вот так:

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2:= TForm2.Create(Application);
end;

не появляется в панели задач!!! Что можете посоветовать, чтобы эта форма, которая создается, была в панели задач?

---

← →
Song ©   (2003-01-11 07:39) [1]

Подарить ей стиль WS_EX_APPWINDOW

---

← →
Barman ©   (2003-01-11 10:32) [2]

> Song © (11.01.03 07:39)
> Подарить ей стиль WS_EX_APPWINDOW


А как сделать ей такой подарок?

---

← →
Barman ©   (2003-01-11 11:06) [3]

Пробовал:

procedure TForm1.Button1Click(Sender: TObject);
begin
CreateWindowEx(WS_EX_APPWINDOW, "TForm", "Form2", CW_USEDEFAULT, 100, 100, 300, 300, Form1.Handle, null, 0, nil);
end;

Пишет "Invalid variant type conversion" Где ошибка?

---

← →
Song ©   (2003-01-11 11:23) [4]

Нет, через SetWindowLong()

---

← →
TTCustomDelphiMaster ©   (2003-01-11 12:13) [5]

procedure CreateParams(var Params: TCreateParams); override;


procedure TForm2.CreateParams(var Params :TCreateParams); {override;}
begin
inherited CreateParams(Params); {CreateWindowEx}
Params.ExStyle := Params.ExStyle or WS_Ex_AppWindow;
end;

---

← →
Barman ©   (2003-01-11 13:14) [6]

Все получилось, большое всем спасибо!

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.015 c