Пишу что-то навроде виджета с разнообразной информацией (для себя)
В последствие будет гораздо больше пунктов, но пока только температура за окном
В правом нижнем углу у меня прозрачная форма. Как запретить ей сворачиваться при нажатии на "Свернуть все окна" ?
Облазив все форумы и перепробовав множество примеров эффекта не добился.
Разве что кодом
Код:
procedure TForm1.Restore(Sender: TObject);
begin
Application.Restore;
SetWindowPos(Application.Handle, HWND_TOPMOST, Left,Top,Width,Height,
SWP_NOMOVE or SWP_NOSIZE)
end;
procedure TForm1.Create(Sender: TObject);
begin
Application.OnMinimize := Restore;
Application.OnDeactivate := Restore;
end;
Но при этом форма не только не сворачивается, но и всегда поверх всех окон, что тоже не хорошо..
Прошу помощи