Скачать: CL | DM;

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c