|
#1
|
||||
|
||||
Виджет
Пишу что-то навроде виджета с разнообразной информацией (для себя)
В последствие будет гораздо больше пунктов, но пока только температура за окном В правом нижнем углу у меня прозрачная форма. Как запретить ей сворачиваться при нажатии на "Свернуть все окна" ? Облазив все форумы и перепробовав множество примеров эффекта не добился. Разве что кодом Код:
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; Но при этом форма не только не сворачивается, но и всегда поверх всех окон, что тоже не хорошо.. Прошу помощи 141.116.168.135 : damiu2d449028.dami.army.pentagon.mil (.MIL | US Military) |