[AnKor94]

Пишу что-то навроде виджета с разнообразной информацией (для себя)



В последствие будет гораздо больше пунктов, но пока только температура за окном

В правом нижнем углу у меня прозрачная форма. Как запретить ей сворачиваться при нажатии на "Свернуть все окна" ?

Облазив все форумы и перепробовав множество примеров эффекта не добился.

Разве что кодом

Код:

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;

Но при этом форма не только не сворачивается, но и всегда поверх всех окон, что тоже не хорошо..

Прошу помощи