Идёт загрузка страницы...

htp://aptem.net.ru





Delphi 1

Сохранение приложения в виде иконки

Как мне после запуска сохранять все время приложение в виде иконки?
  1. В свойствах формы вы должны установить WindowState на wsMinimized.
  2. В секции класса формы private поместите следующее объявление:


       
    ...
    { private declarations }
    PROCEDURE WMQueryOpen(VAR Msg : TWMQueryOpen); message WM_QUERYOPEN;

  3. В секции implementation поместите следующую реализацию метода:
       
    PROCEDURE TForm1.WMQueryOpen(VAR Msg : TWMQueryOpen);
    begin
    Msg.Result := 0;
    end;

Это все! Форма всегда будет иконкой. [000625]