Иконка свернутого окна

Когда вы сворачиваете основную форму, иконка, которую вы наблюдаете, *НЕ ПРИНАДЛЕЖИТ* основной форме. Все попытки рисования на иконке потерпят неудачу, поскольку она принадлежит объекту application, а не форме.

File Manager при ситуации перетаскивания файлов (drag/drop) классно работает когда форма не свернута, но и он терпит неудачу, когда форма свернута, поскольку иконка НЕ является окном и не может зарегистрировать себя для сообщений drag/drop. Это проблема - как свернуть форму, т.к. щелкая по соответствующей системой кнопке, WindowState не принимает значения wsMinimized!

Обходной путь:

procedure TForm1.SysMen(var msg:TMessage);

begin
if msg.wParam = SC_MINIMIZE then begin
{сворачиваем форму}
WindowState := wsMinimized;
else
Inherited;
end;

 
« Предыдущая статья   Следующая статья »