MailSlot

← →
Profik © (2005-09-30 18:31) [0]

Как моей проге отловить сообщение от WinMessengera? То-есть, что бы мне присылали сообщения с WinMessa на мою прогу, а не на WinMess.

← →
Eraser © (2005-10-02 14:48) [1]

> Profik © (30.09.05 18:31)

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

← →
Piter © (2005-10-05 18:18) [2]

Может хватит плодить темы?

http://delphimaster.net/view/2-1128090671/
http://delphimaster.net/view/2-1128090671/
http://delphimaster.net/view/2-1128090671/

← →
12DFBDD (2005-10-06 08:01) [3]

не совсем понял вопрос но рискну, в двух словах пишем процедуру которой указываем что она срабатывает на сообщение пример от борланда ниже

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;

MailSlot Найти похожие ветки