Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

22nd
Мар

Сворачивание формы

Posted by maloy under Delphi, Архив, Заметки

k1r1ch

Помогите решить две проблемы со сворачиванием окон:
1) Сделал сворачивание в трей. Вот код:

Код:

procedure TMainForm.ApplicationEventsMinimize(Sender: TObject);
begin
  MainForm.Hide;
end;

Вот обработчик клика на иконке в трее:

Код:

procedure TMainForm.TrayIconClick(Sender: TObject);
begin
  MainForm.Show;
end;

Но после разворачивания окно остается как-бы в свернутом состоянии (то есть надо кликать по заголовку в панели задач). Как сделать нормальное разворачивание и вывод на передний план?
2) Вместе с главной сворачивается форма, которая должна висеть на раб. столе даже при сворачивание в трей. Как сделать это?

Stilet

Нужно WindowState:=wsNormal давать.

2.

private {Это включается в объявления формы.}
  { Private declarations }
  procedure CreateParams(VAR Params: TCreateParams); override;
...

procedure TForm2.CreateParams(VAR Params: TCreateParams);
begin
  Inherited CreateParams(Params);
  Params.WndParent := GetDesktopWindow;
end;