| Код |
Type TMain = class(TForm)
....
protected
Procedure WMGetSysCommand(var Message : TMessage); message WM_SYSCOMMAND;
end;
//----------------------------------------------------------------
// Обработка сообщения WM_SYSCOMMAND (перехват минимизации окна)
//----------------------------------------------------------------
Procedure TMain.WMGetSysCommand(var Message : TMessage) ;
Begin
IF (Message.wParam = SC_MINIMIZE)
Then Main.Visible:=False
Else Inherited;
End;
|
на дельфях этот код отлично работатет...попробывал перевести на с++ ошибок не выдает..но не прячет окно... кто поможет правильно написать на с++ и нужно ли использовать
| Код |
BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(Param1,Param2,Param3);
END_MESSAGE_MAP(TComponent); //такую вещь?
|
|