Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

MailSlot

Profik © (2005-09-30 18:31:00)
Как моей проге отловить сообщение от WinMessengera? То-есть, что бы мне присылали сообщения с WinMessa на мою прогу, а не на WinMess.

12DFBDD (2005-10-06 08:01:00) [1]
не совсем понял вопрос но рискну, в двух словах пишем процедуру которой указываем что она срабатывает на сообщение пример от борланда ниже

unit Forms;

TCustomDockForm = class(TCustomForm)
private
procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTESt;
procedure WMNCLButtonDown(var Message: TWMNCLButtonDown); message WM_NCLBUTTONDOWN;
procedure CMControlListChange(var Message: TMessage); message CM_CONTROLLISTCHANGE;
procedure CMDockNotification(var Message: TCMDockNotification); message CM_DOCKNOTIFICATION;
procedure CMUnDockClient(var Message: TCMUnDockClient); message CM_UNDOCKCLIENT;
procedure CMVisibleChanged(var Message: TMessage); message CM_VISIBLECHANGED;
protected
procedure DoAddDockClient(Client: TControl; const ARect: TRect); override;
procedure DoRemoveDockClient(Client: TControl); override;
procedure GetSiteInfo(Client: TControl; var InfluenceRect: TRect;
MousePos: TPoint; var CanDock: Boolean); override;
procedure Loaded; override;
public
constructor Create(AOwner: TComponent); override;
property AutoScroll default False;
property BorderStyle default bsSizeToolWin;
property FormStyle default fsStayOnTop;
published
property PixelsPerInch;
end;

Piter (2005-10-05 18:18:00) [2]
Может хватит плодить темы?

http://www.delphimaster.ru/cgi-bin/forum.pl?id=1128090671&n=18
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1128412479&n=4
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1128509833&n=4

Eraser (2005-10-02 14:48:00) [3]

> Profik © (30.09.05 18:31)

http://torry.net/pages.php?id=513

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »