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

made in programmersforum 4

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

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

8th
Июл

Свернуть форму при ее неактивности

Posted by micher under Delphi

Хамяг

Имеется форма, а также компоненты TrayIcon и ApplicationEvents.
С помощью ApplicationEvents я сделал так, чтобы при неактивности формы она скрывалась:



procedure TForm1.ApplicationEvents1Deactivate(Sender: TObject);

begin

  Form1.Visible:=False;

end;

А с помощью TrayIcon сделано, чтобы форма скрывалась или появлялась при нажатии на иконку в трее:



procedure TForm1.TrayIcon1Click(Sender: TObject);

begin

  if Form1.Visible = True then

  begin

    Form1.Visible:=False;

  end

  else

  begin

    Form1.Visible:=True;

    SetForegroundWindow(Form1.Handle);

  end;

end;

Однако при этом получается несуразица: при нажатии на кнопку в трее форма теряет фокус и срабатывает ApplicationEvents1Deactivate, скрывающий форму. После этого уже сработает TrayIcon1Click, но т.к. форма уже скрыта — она вновь появляется.
Даже если изменить событие на TrayIcon1MouseDown, то по-прежнему ничего не изменится (разве что срабатывать будет при нажатии, а не отпускании кнопки мыши).
Как можно решить эту проблему?

Хамяг

Всё таки решил задачу:

var

  CurCrd: TPoint;
procedure TForm1.TrayIcon1MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

  CurCrd.X:=X;

  CurCrd.Y:=Y;

end;
procedure TForm1.ApplicationEvents1Deactivate(Sender: TObject);

begin

  if not ((Abs(Mouse.CursorPos.X - CurCrd.X) in [0..16]) and (Abs(Mouse.CursorPos.Y - CurCrd.Y) in [0..16])) then Form1.Visible:=False;

end;

Пост написан при поддержке Termo Studio — системы отопления, кондиционирования, водообеспечения.

Тепловые завесы
Воздушная тепловая завеса — это вентилятор подвесного типа, предназначенный для подачи обогреваемого (или холодного) воздуха. Располагаясь над дверным проемом, завеса создает мощный воздушный поток, который служит невидимым барьером между помещением и улицей, благодаря чему холодный воздух практически не проникает вовнутрь. Массивный воздушный барьер тепловых завес надежно сохраняет тепло, холод и чистый воздух даже при открытых дверях любых помещений. К тому же, помещение надежно защищается от пыли, неприятных запахов, летающих насекомых. Поэтому завеса не останется без дела и летом, сохраняя внутри бодрящую прохладу.
Воздушные тепловые завесы являются энергосберегающим оборудованием и обеспечивают комфортные условия в помещении с минимальным затратами.

тема на форуме