• Registered: 2018-01-03
  • Posts: 50

Topic: Отображение проекта в панели задач

Можно ли сделать так, чтобы в панели задач отображались не все вкладки, а только последняя открытая?
Ну или только процесс. Чтобы при переключении с другой задачи кликнуть на вкладку процесса и высветилась последняя открытая форма.
А то некоторые пользователи впадают в ступор, какую вкладку выбирать.

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Отображение проекта в панели задач

Скачайте пожалуйста последнюю бета версию
https://www.dropbox.com/s/jwwq7vbjl33os … 2.zip?dl=0


Создав событие OnShow для главной формы, примените функцию SetWindowLong для каждой формы, кроме главной, пример:

procedure Form1_OnShow (Sender: TObject; Action: string);
begin
    SetWindowLong(Form2.Handle, GWL_EXSTYLE, GetWindowLong(Form2.Handle, GWL_EXSTYLE) xor WS_EX_APPWINDOW);
    SetWindowLong(Form3.Handle, GWL_EXSTYLE, GetWindowLong(Form3.Handle, GWL_EXSTYLE) xor WS_EX_APPWINDOW);
end;
Dmitry.

3 Reply by kovalenko (edited by kovalenko 2018-01-30 15:02:54)

  • From: Санкт-Петербург
  • Registered: 2017-03-09
  • Posts: 266

Re: Отображение проекта в панели задач

DriveSoft wrote:

Скачайте пожалуйста последнюю бета версию
https://www.dropbox.com/s/jwwq7vbjl33os … 2.zip?dl=0


Создав событие OnShow для главной формы, примените функцию SetWindowLong для каждой формы, кроме главной, пример:

procedure Form1_OnShow (Sender: TObject; Action: string);
begin
    SetWindowLong(Form2.Handle, GWL_EXSTYLE, GetWindowLong(Form2.Handle, GWL_EXSTYLE) xor WS_EX_APPWINDOW);
    SetWindowLong(Form3.Handle, GWL_EXSTYLE, GetWindowLong(Form3.Handle, GWL_EXSTYLE) xor WS_EX_APPWINDOW);
end;

Дмитрий есть два вопроса. Первый, при использовании вашего скрипта появляется ещё одно не активное окно, что это (скрин прилагаю)?
И второй вопрос, а есть вариант скрипта, что-бы по нажатию кнопки все формы (активная и все что ниже) сворачивались?

Post's attachments

Attachment icon 1-1.jpg 570.81 kb, 227 downloads since 2018-01-30 

надо идти вперёд....
  • Registered: 2014-02-14
  • Posts: 10,294

Re: Отображение проекта в панели задач

Дмитрий есть два вопроса. Первый, при использовании вашего скрипта появляется ещё одно не активное окно, что это (скрин прилагаю)?

Приложите пожалуйста ваш проект, посмотрю в чем дело.



И второй вопрос, а есть вариант скрипта, что-бы по нажатию кнопки все формы (активная и все что ниже) сворачивались?

Если правильно понял вопрос, тогда так

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
   Application.Minimize;
end;
Dmitry.