[Ama]

Есть главная форма и не главная: во второстепенной форма разместил PopupMenu...генерирую событие нажатия пункта меню:

Код:

procedure TIconForm.N1Click(Sender: TObject);
begin
 case IndIco of
  0, 1, 2: begin
            MessageBox(Handle, PChar('Этот значок нельзя удалить'),
                       PChar('Внимание !!!'), MB_OK or MB_ICONHAND);
            Application.MainForm.Tag:= MAINFRM_REFRESH shl 16;
            SendMessage(Application.MainForm.Handle, WM_PAINT, 0, 0);
            exit;
           end;
 end;
 Application.MainForm.Tag:= (FRM_FREE shl 16) and IndIco;
 doHide;
 SendMessage(Application.MainForm.Handle, WM_PAINT, 0, 0);
end;

На главной форме генерирую событие:

Код:

procedure TForm1.FormPaint(Sender: TObject);
 var i: integer;
begin
 i:= Hi(Tag);
 case i of
  MAINFRM_REFRESH: DoRefresh;
 end;
end;

DoRefresh-это моя проца обновления компонентов окон. Но вот проблема в том что в RunTime событие TForm1.FormPaint(Sender: TObject) не генерируется.....константа MAINFRM_REFRESH обявлена...не могу понять в чем дело TForm1 главная форма...
Delphi7, Win7

[KOOL]

методы, ловящие сообщения надо по-особому обьявлять:

Код:

TForm = class(TForm)
...
protected
  procedure PaintProc(var Msg: TMessage); message WM_PAINT;

а событие OnFormPaint вызывается при фактической отрисовке формы, например, если обратно из-за границ экрана форму перетащить

[Ama]

Ща попробую....

[KOOL]

еще можно метод вызывать явно, без сообщений