Ярлык (миниатюра) в панели задач

Razdolbait · Регистрация: 18.09.2014

Author24 — интернет-сервис помощи студентам

Есть 3 формы: авторизация, редактирование справочников и т.н. рабочая.
В зависимости от логина/пароля, введенных на первой форме открывается 2-я или 3-я.
Необходимо прятать 1-ю форму (при закрытии - закрывается все приложение). Но так чтобы на панели задач был ярлык текущей формы, при клике по которому можно свернуть/развернуть форму (не 1-ю).
Пока что додумался до варианта

Delphi

1	Form1.visible:=false;

При сворачивании 2-й(3-й) формы она уходит в левый нижний угол рабочего стола. Это тоже не помешало бы убрать

@CheshireesCat · 22.02.2016, 11:31

Delphi

1	form1.hide

Delphi

1	form1.show

Razdolbait · 22.02.2016, 11:43 **[ТС]**

Сообщение от CheshireesCat

form1.hide

В этом случае на панели задач вобще ничего нет. Нужно как на скрине: ярлык ЛЮБОЙ программы. Нажал - свернул, нажал - развернул. Но только не главную форму, а 2-ю или 3-ю.

@krapotkin · 22.02.2016, 14:19

попробуйте application.MainForm:=formXXX;

Razdolbait · 22.02.2016, 14:29 **[ТС]**

Сообщение от krapotkin

попробуйте application.MainForm:=formXXX;

а куда это прописать?

@krapotkin · 22.02.2016, 16:09

в таскбаре кнопка главной формы
скрыли форму, скрыли кнопку
если в это время назначить другую форму главной, возможно, ее кнопка появится в таскбаре

Delphi

procedure TForm23.FormShow(Sender:TObject);
begin
  application.MainForm:=self;
end;

Razdolbait · 22.02.2016, 16:13 **[ТС]**

E2129 Cannot assign to a read-only property

@krapotkin · 22.02.2016, 16:16

гипотеза не подтвердилась
но поиск вполне рулит
http://stackoverflow.com/quest... -main-form

Razdolbait · 22.02.2016, 16:26 **[ТС]**

Сообщение от krapotkin

http://stackoverflow.com/questions/5...-the-main-form

не уверен что разобрался...
TMyForm . CreateParams - где вызывать и какие параметры?

@krapotkin · 22.02.2016, 16:31

все уже вызвано в комплекте

Razdolbait · 22.02.2016, 16:36 **[ТС]**

Не заметил никаких изменений

@krapotkin · 22.02.2016, 17:04

да ну конечно....
код для TForm1

Delphi

procedure TForm1.b1Click(Sender: TObject);
begin
  form2:=TForm2.create(Application);
  hide;
  Form2.Show;
end;

код для Form2

Delphi

procedure TForm2.b1Click(Sender: TObject);
begin
  Close;
end;
 
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
  Params.WndParent := 0;
end;
 
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=TCloseAction.caFree;
  Application.MainForm.Show;
end;

не забудьте убрать Form2 из автосоздания в свойствах проекта
и добавить
uses Unit2
в Unit1.pas

Razdolbait · 23.02.2016, 10:53 **[ТС]**

Тестировал на новом проекте.При открытии второй формы первая скрывается(hide

, ярлык исчезает. При закрытии 2-й формы ярлык появляется снова. Даже если бы этот способ подошел то будет проблема с компонентами на форме 2 (например ADO).

Добавлено через 1 час 4 минуты
ИМХО оптимальное решение проблемы:
1. главную форму не скрывать(т.е. она будет под рабочей). На панели задач будет висеть ярлык главной формы
2. поставить запрет на изменение размера и сворачивание рабочей формы чтобы не видели главную форму.
3. недовольных юзверей слать в лес)

@krapotkin · 23.02.2016, 13:41

что-то я потерял нить
все работает штатно
кнопка на таскбаре есть для обеих форм 1 и 2

Razdolbait · 23.02.2016, 13:47 **[ТС]**

Значит я все таки умудрился накосячить) Ваш exe-шник вроде работает как надо. Можно код?

Razdolbait · 23.02.2016, 14:11 **[ТС]**

Вкурил. Запутался с классами и процедурами. Спасибо за помощь. Буду пробовать внедрить в проект

@krapotkin · 23.02.2016, 14:15

весь код какой есть я привел в посте

Razdolbait 25 / 25 / 22 Регистрация: 18.09.2014 Сообщений: 218
	22.02.2016, 11:43 [ТС]	3
	Сообщение от CheshireesCat form1.hide В этом случае на панели задач вобще ничего нет. Нужно как на скрине: ярлык ЛЮБОЙ программы. Нажал - свернул, нажал - развернул. Но только не главную форму, а 2-ю или 3-ю. Миниатюры 0

@krapotkin 5786 / 4528 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	22.02.2016, 14:19	4
	попробуйте application.MainForm:=formXXX; 0

Razdolbait 25 / 25 / 22 Регистрация: 18.09.2014 Сообщений: 218
	22.02.2016, 14:29 [ТС]	5
	Сообщение от krapotkin попробуйте application.MainForm:=formXXX; а куда это прописать? 0

Razdolbait 25 / 25 / 22 Регистрация: 18.09.2014 Сообщений: 218
	22.02.2016, 16:13 [ТС]	7
	E2129 Cannot assign to a read-only property 0

@krapotkin 5786 / 4528 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	22.02.2016, 16:16	8
	гипотеза не подтвердилась но поиск вполне рулит http://stackoverflow.com/quest... -main-form 0

Razdolbait 25 / 25 / 22 Регистрация: 18.09.2014 Сообщений: 218
	22.02.2016, 16:26 [ТС]	9
	Сообщение от krapotkin http://stackoverflow.com/questions/5...-the-main-form не уверен что разобрался... TMyForm . CreateParams - где вызывать и какие параметры? 0

@krapotkin 5786 / 4528 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	22.02.2016, 16:31	10
	все уже вызвано в комплекте 0

Razdolbait 25 / 25 / 22 Регистрация: 18.09.2014 Сообщений: 218
	22.02.2016, 16:36 [ТС]	11
	Не заметил никаких изменений 0

Razdolbait 25 / 25 / 22 Регистрация: 18.09.2014 Сообщений: 218
	23.02.2016, 10:53 [ТС]	13
	Тестировал на новом проекте.При открытии второй формы первая скрывается(hide, ярлык исчезает. При закрытии 2-й формы ярлык появляется снова. Даже если бы этот способ подошел то будет проблема с компонентами на форме 2 (например ADO). Добавлено через 1 час 4 минуты ИМХО оптимальное решение проблемы: 1. главную форму не скрывать(т.е. она будет под рабочей). На панели задач будет висеть ярлык главной формы 2. поставить запрет на изменение размера и сворачивание рабочей формы чтобы не видели главную форму. 3. недовольных юзверей слать в лес) 0

Razdolbait 25 / 25 / 22 Регистрация: 18.09.2014 Сообщений: 218
	23.02.2016, 13:47 [ТС]	15
	Значит я все таки умудрился накосячить) Ваш exe-шник вроде работает как надо. Можно код? Миниатюры 0

Razdolbait 25 / 25 / 22 Регистрация: 18.09.2014 Сообщений: 218
	23.02.2016, 14:11 [ТС]	16
	Вкурил. Запутался с классами и процедурами. Спасибо за помощь. Буду пробовать внедрить в проект 0

@krapotkin 5786 / 4528 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	23.02.2016, 14:15	17
	весь код какой есть я привел в посте 0

Ярлык (миниатюра) в панели задач

Решение