{"id":685,"date":"2008-05-21T03:16:03","date_gmt":"2008-05-21T03:16:03","guid":{"rendered":"http:\/\/6teen.ru\/?p=412"},"modified":"2008-05-21T03:16:03","modified_gmt":"2008-05-21T03:16:03","slug":"3163","status":"publish","type":"post","link":"http:\/\/pblog.ru\/lab\/?p=685","title":{"rendered":"\u041a\u0430\u043a \u043f\u043e\u0441\u043b\u0430\u0442\u044c message \u0432\u0441\u0435\u043c?"},"content":{"rendered":"<p>\u041a\u0430\u043a \u043f\u043e\u0441\u043b\u0430\u0442\u044c message \u0432\u0441\u0435\u043c?<br \/>\n<!--more--><\/p>\n<pre class=\"alt2\" style=\"margin:0px; padding:6px; border:1px inset; width:580px; height:320px; overflow:auto\"><div>\u041a\u0430\u043a \u043f\u043e\u0441\u043b\u0430\u0442\u044c message \u0432\u0441\u0435\u043c?\n\nH\u0430\u0434\u043e \u043f\u043e\u0441\u043b\u0430\u0442\u044c \u043c\u0435\u0441\u0441\u0430\u0433y \u0432\u0441\u0435\u043c \u0437\u0430\u0438\u043d\u0442\u0435p\u0435\u0441\u043e\u0432\u0430\u043d\u043d\u044b\u043c \u043e\u0431\u044a\u0435\u043a\u0442\u0430\u043c - p\u0430\u0437\u043b\u0438\u0447\u043d\u044b\u043c \u043a\u043b\u0430\u0441\u0441\u0430\u043c - \u0444\u043ep\u043c\u0430\u043c, \u043a\u043e\u043d\u0442p\u043e\u043b\u0430\u043c \u0438 \u0442.\u0434.?\n\u041fp\u043e\u0431\u043e\u0432\u0430\u043b \u0434\u0435\u043b\u0430\u0442\u044c \u0442\u0430\u043a:\n\nconst\nFM_FINDPHOTO = $0510;\nSendMessage(HWND_BROADCAST,FM_FINDPHOTO,0,0);\n\nH\u0438 \u0447\u0435p\u0442\u0430 \u043d\u0435 \u043b\u043e\u0432\u0438\u0442\u0441\u044f, \u043f\u043e\u043a\u0430 \u043d\u0430\u043fp\u044f\u043cy\u044e \u0445\u044d\u043d\u0434\u043b \u043d\u0435 y\u043a\u0430\u0436\u0435\u0448\u044c :(\n\n\u0414\u043b\u044f \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c hwnd_Broadcast, \u043d\u0443\u0436\u043d\u043e \u0441\u043f\u0435\u0440\u0432\u0430 \u0437\u0430\u0440\u0435\u0433\u0438\u0441\u0442\u0440\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u0443\u043d\u0438\u043a\u0430\u043b\u044c\u043d\u043e\u0435 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0435\nFM_FindPhoto:=RegisterWindowMessage('MyMessageToAll');\n\n\u0427\u0442\u043e\u0431\u044b \u043f\u043e\u0439\u043c\u0430\u0442\u044c \u044d\u0442\u043e \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0435 \u0432 \u0434\u0440\u0443\u0433\u043e\u043c \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u0438, \u043d\u0443\u0436\u043d\u043e \u043f\u0435\u0440\u0435\u043a\u0440\u044b\u0442\u044c DefaultHandler\n\nprocedure TForm1.DefaultHandler(var Message);\nbegin\nwith TMessage(Message) do\nbegin\nif Msg = Fm_FindPhoto then MyHandler(WPARAM,LPARAM)  else\nInherited DefaultHandler(Message);\nend;\n\n\u0414\u043b\u044f \u043f\u043e\u0441\u044b\u043b\u043a\u0438 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u044f \u0434\u043e\u0447\u0435\u0440\u043d\u0438\u043c \u043a\u043e\u043d\u0442\u0440\u043e\u043b\u0430\u043c \u043c\u043e\u0436\u043d\u043e \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0443 Broadcast.\n\n***************************\n\n\u041a\u0430\u043a \u0441\u043e\u043e\u0431\u0449\u0438\u0442\u044c \u0432\u0441\u0435\u043c \u0444\u043e\u0440\u043c\u0430\u043c \u043c\u043e\u0435\u0433\u043e \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u044f (\u0432 \u0442\u043e\u043c \u0447\u0438\u0441\u043b\u0435 \u0438 \u043d\u0435 \u0432\u0438\u0434\u0438\u043c\u044b\u043c \u0432 \u0434\u0430\u043d\u043d\u044b\u0439 \u043c\u043e\u043c\u0435\u043d\u0442) \u043e\u0431 \u0438\u0437\u043ce\u043d\u0435\u043d\u0438\u0438 \u043a\u0430\u043a\u0438\u0445-\u0442\u043e \u0433\u043b\u043e\u0431\u0430\u043b\u044c\u043d\u044b\u0445 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0439?\n\n\u041e\u0434\u0438\u043d \u0438\u0437 \u0441\u043f\u043e\u0441\u043e\u0431\u043e\u0432 - \u0441\u043e\u0437\u0434\u0430\u0442\u044c \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044c\u0441\u043a\u043e\u0435 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0435 \u0438 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c \u043c\u0435\u0442\u043e\u0434 preform \u0447\u0442\u043e\u0431\u044b \u0440\u0430\u0437\u043e\u0441\u043b\u0430\u0442\u044c \u0435\u0433\u043e \u0432\u0441\u0435\u043c \u0444\u043e\u0440\u043c\u0430\u043c \u0438\u0437  \u043c\u0430\u0441\u0441\u0438\u0432\u0430 Screen.Forms.\n\n\u041f\u0440\u0438\u043c\u0435\u0440:\n\n{Code for Unit1}\nconst\nUM_MyGlobalMessage = WM_USER + 1;\ntype\nTForm1 = class(TForm)\nLabel1: TLabel;\nButton1: TButton;\nprocedure FormShow(Sender: TObject);\nprocedure Button1Click(Sender: TObject);\nprivate\n{Private declarations}\nprocedure UMMyGlobalMessage(var AMessage: TMessage); message\nUM_MyGlobalMessage;\npublic\n{Public\ndeclarations}\nend;\n\nvar\nForm1: TForm1;\nimplementation\n{$R *.DFM}\nuses Unit2;\n\nprocedure TForm1.FormShow(Sender: TObject);\nbegin\nForm2.Show;\nend;\n\nprocedure TForm1.UMMyGlobalMessage(var AMessage: TMessage);\nbegin\nLabel1.Left := AMessage.WParam;\nLabel1.Top  := AMessage.LParam;\nForm1.Caption := 'Got It!';\nend;\n\nprocedure TForm1.Button1Click(Sender: TObject);\nvar\nf: integer;\nbegin\nfor f := 0 to Screen.FormCount - 1 do\nScreen.Forms[f].Perform(UM_MyGlobalMessage, 42, 42);\nend;\n\n{Code for Unit2}\nconst\nUM_MyGlobalMessage = WM_USER + 1;\ntype\nTForm2 = class(TForm)\nLabel1: TLabel;\nprivate\n{Private declarations}\nprocedure UMMyGlobalMessage(var AMessage: TMessage);\nmessage UM_MyGlobalMessage;\npublic\n{Public declarations}\nend;\n\nvar\nForm2: TForm2;\nimplementation\n{$R *.DFM}\n\nprocedure TForm2.UMMyGlobalMessage(var AMessage: TMessage);\nbegin\nLabel1.Left := AMessage.WParam;\nLabel1.Top  := AMessage.LParam;\nForm2.Caption := 'Got It!';\nend;\n<\/div><\/pre>\n<p><\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u041a\u0430\u043a \u043f\u043e\u0441\u043b\u0430\u0442\u044c message \u0432\u0441\u0435\u043c?<\/p>\n","protected":false},"author":3,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[448,458],"tags":[546,1586],"_links":{"self":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts\/685"}],"collection":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/users\/3"}],"replies":[{"embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=685"}],"version-history":[{"count":0,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts\/685\/revisions"}],"wp:attachment":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=685"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=685"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=685"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}