[aleksnine]

Привет . Подскажите как выполнить код ПОСЛЕ восстановления формы .

Код:

procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
   case Msg.CmdType of
      SC_MINIMIZE: exit;
      SC_MAXIMIZE: exit;
      SC_RESTORE: begin

      end;

   end;
   inherited;
end;

Эта процедура выполняет ДО.

[angvelem]

Почему inherited завершает процедуру?

[aleksnine]

У меня ситуация в том , что после сворачивания приложения и соответсвенно воостановления нужно обновить форму .

Код:

procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
   case Msg.CmdType of
      SC_MINIMIZE: exit;
      SC_MAXIMIZE: exit;
      SC_RESTORE: begin
Form1.repaint;
....
....
....
....
      end;

   end;
   inherited;
end;

Form1.repaint; и дальнейший код выполняется до того как показалась форма и следовательно результата нет .
Ищу ищу ничего не нахожу решения .

[aleksnine]

Все нашел решение

Код:

procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
   case Msg.CmdType of
      SC_MINIMIZE: exit;
      SC_MAXIMIZE: exit;
      SC_RESTORE: begin
 inherited;
Form1.repaint;
....
....
....
....
      end;

   end;
   inherited;
end;

[angvelem]

OnShow уже не помогает?
Я сразу задал вопрос: "Почему inherited завершает процедуру?", нужно быть внимательнее.

[aleksnine]

Сообщение от angvelem

OnShow уже не помогает?
Я сразу задал вопрос: "Почему inherited завершает процедуру?", нужно быть внимательнее.

Спасибо , сонный уже не заметил .
OnShow не помог мне