Visit our Sponsor   Visit our Sponsor
delphi3000.com - the free delphi knowledge platform
delphi3000.com - the free delphi knowledge platform
496 Users Online NOW
Have a look at your member-status

connecting people's knowledge


  - Recent ArticlesRSS feed for Recent Articles on delphi3000.com
  - List of All Articles
  - Top Viewed Articles
  - Articles (+Attachem.)
  - Articles Of Interest
  - Categories
  - Top Uploader
  - Search
  - Index

  - My Home
  - Submit an Article
  - My Articles
  - My Personal Data
  - My Bookmarks
  - Activities
  - Login/Logout

  - Sign Up
  - Why Sign Up
  - Newsletter

  - Press
  - Advertise

  - Contact
  - Feedback





Community
Borland
ClubeDelphi
Dr. Bob
UK-BUG
Delphi Meetings
Planeta Delphi



Loremo - the 1.5 liter car coming in 2009




Startblatt.de






Share this article with friendsShare this article with friends
Rate this articleRate this article - to keep the quality of delphi3000.com !
Comment this article or read through previous comments (3)


Windows Messages?Who,what?!Go to Master Tavi's websiteFormat this article printer-friendly!Bookmark function is only available for registered users!
Product:
Delphi all versions
Category:
Win API
Skill Level:
Scoring:
Last Update:
10/19/2001
Search Keys:
delphi delphi3000 article borland vcl code-snippet Windows,Win Api,Messages,Cool
Times Scored:
10
Visits:
4425
Uploader: Master Tavi
Company: Tavi software
Reference: N/A
 
Question/Problem/Abstract:
How can I use Windows Message and what are they?
Answer:



Hey there manny people are asking what are Windows Messages let's say the Windows Messages are the heart of every Windows.Your application interactionates with other Windows using messages.

You can send or recive messages from the Windows operating systems.

Here is how to send

var

yopos:Hwnd;

yopos:=FindWindow(nil,Program Manager);
ShowWindow(yopos,SW_HIDE);

you can use instead SW_SHOW,SW_MINIMIZE,SW_RESTORE etc;

here is how to close
a window

SendMessage(Application.Handle,WM_CLOSE,0,0);

There are many examples to give but...


The most popular Windows Messages are:

WM_ACTIVATE              : result:= 'WM_ACTIVATE             ';
    WM_ACTIVATEAPP           : result:= 'WM_ACTIVATEAPP          ';
    WM_ASKCBFORMATNAME       : result:= 'WM_ASKCBFORMATNAME      ';
    WM_CANCELMODE            : result:= 'WM_CANCELMODE           ';
    WM_CHANGECBCHAIN         : result:= 'WM_CHANGECBCHAIN        ';
    WM_CHAR                  : result:= 'WM_CHAR                 ';
    WM_CHARTOITEM            : result:= 'WM_CHARTOITEM           ';
    WM_CHILDACTIVATE         : result:= 'WM_CHILDACTIVATE        ';
    WM_CLEAR                 : result:= 'WM_CLEAR                ';
    WM_CLOSE                 : result:= 'WM_CLOSE                ';
    WM_COMMAND               : result:= 'WM_COMMAND              ';
    WM_COMMNOTIFY            : result:= 'WM_COMMNOTIFY           ';
    WM_COMPACTING            : result:= 'WM_COMPACTING           ';
    WM_COMPAREITEM           : result:= 'WM_COMPAREITEM          ';
    WM_COPY                  : result:= 'WM_COPY                 ';
    WM_CREATE                : result:= 'WM_CREATE               ';
    WM_CTLCOLOR              : result:= 'WM_CTLCOLOR             ';
    WM_CUT                   : result:= 'WM_CUT                  ';
    WM_DDE_ACK               : result:= 'WM_DDE_ACK              ';
    WM_DDE_ADVISE            : result:= 'WM_DDE_ADVISE           ';
    WM_DDE_DATA              : result:= 'WM_DDE_DATA             ';
    WM_DDE_EXECUTE           : result:= 'WM_DDE_EXECUTE          ';
    WM_DDE_INITIATE          : result:= 'WM_DDE_INITIATE         ';
    WM_DDE_POKE              : result:= 'WM_DDE_POKE             ';
    WM_DDE_REQUEST           : result:= 'WM_DDE_REQUEST          ';
    WM_DDE_TERMINATE         : result:= 'WM_DDE_TERMINATE        ';
    WM_DDE_UNADVISE          : result:= 'WM_DDE_UNADVISE         ';
    WM_DEADCHAR              : result:= 'WM_DEADCHAR             ';
    WM_DELETEITEM            : result:= 'WM_DELETEITEM           ';
    WM_DESTROY               : result:= 'WM_DESTROY              ';
    WM_DESTROYCLIPBOARD      : result:= 'WM_DESTROYCLIPBOARD     ';
    WM_DEVMODECHANGE         : result:= 'WM_DEVMODECHANGE        ';
    WM_DRAWCLIPBOARD         : result:= 'WM_DRAWCLIPBOARD        ';
    WM_DRAWITEM              : result:= 'WM_DRAWITEM             ';
    WM_DROPFILES             : result:= 'WM_DROPFILES            ';
    WM_ENABLE                : result:= 'WM_ENABLE               ';
    WM_ENDSESSION            : result:= 'WM_ENDSESSION           ';
    WM_ENTERIDLE             : result:= 'WM_ENTERIDLE            ';
    WM_ERASEBKGND            : result:= 'WM_ERASEBKGND           ';
    WM_FONTCHANGE            : result:= 'WM_FONTCHANGE           ';
    WM_GETDLGCODE            : result:= 'WM_GETDLGCODE           ';
    WM_GETFONT               : result:= 'WM_GETFONT              ';
    WM_GETMINMAXINFO         : result:= 'WM_GETMINMAXINFO        ';
    WM_GETTEXT               : result:= 'WM_GETTEXT              ';
    WM_GETTEXTLENGTH         : result:= 'WM_GETTEXTLENGTH        ';
    WM_HSCROLL               : result:= 'WM_HSCROLL              ';
    WM_HSCROLLCLIPBOARD      : result:= 'WM_HSCROLLCLIPBOARD     ';
    WM_ICONERASEBKGND        : result:= 'WM_ICONERASEBKGND       ';
    WM_INITDIALOG            : result:= 'WM_INITDIALOG           ';
    WM_INITMENU              : result:= 'WM_INITMENU             ';
    WM_INITMENUPOPUP         : result:= 'WM_INITMENUPOPUP        ';
    WM_KEYDOWN               : result:= 'WM_KEYDOWN              ';
    WM_KEYUP                 : result:= 'WM_KEYUP                ';
    WM_KILLFOCUS             : result:= 'WM_KILLFOCUS            ';
    WM_LBUTTONDBLCLK         : result:= 'WM_LBUTTONDBLCLK        ';
    WM_LBUTTONDOWN           : result:= 'WM_LBUTTONDOWN          ';
    WM_LBUTTONUP             : result:= 'WM_LBUTTONUP            ';
    WM_MBUTTONDBLCLK         : result:= 'WM_MBUTTONDBLCLK        ';
    WM_MBUTTONDOWN           : result:= 'WM_MBUTTONDOWN          ';
    WM_MBUTTONUP             : result:= 'WM_MBUTTONUP            ';
    WM_MDIACTIVATE           : result:= 'WM_MDIACTIVATE          ';
    WM_MDICASCADE            : result:= 'WM_MDICASCADE           ';
    WM_MDICREATE             : result:= 'WM_MDICREATE            ';
    WM_MDIDESTROY            : result:= 'WM_MDIDESTROY           ';
    WM_MDIGETACTIVE          : result:= 'WM_MDIGETACTIVE         ';
    WM_MDIICONARRANGE        : result:= 'WM_MDIICONARRANGE       ';
    WM_MDIMAXIMIZE           : result:= 'WM_MDIMAXIMIZE          ';
    WM_MDINEXT               : result:= 'WM_MDINEXT              ';
    WM_MDIRESTORE            : result:= 'WM_MDIRESTORE           ';
    WM_MDISETMENU            : result:= 'WM_MDISETMENU           ';
    WM_MDITILE               : result:= 'WM_MDITILE              ';
    WM_MEASUREITEM           : result:= 'WM_MEASUREITEM          ';
    WM_MENUCHAR              : result:= 'WM_MENUCHAR             ';
    WM_MENUSELECT            : result:= 'WM_MENUSELECT           ';
    WM_MOUSEACTIVATE         : result:= 'WM_MOUSEACTIVATE        ';
    WM_MOUSEMOVE             : result:= 'WM_MOUSEMOVE            ';
    WM_MOVE                  : result:= 'WM_MOVE                 ';
    WM_NCACTIVATE            : result:= 'WM_NCACTIVATE           ';
    WM_NCCALCSIZE            : result:= 'WM_NCCALCSIZE           ';
    WM_NCCREATE              : result:= 'WM_NCCREATE             ';
    WM_NCDESTROY             : result:= 'WM_NCDESTROY            ';
    WM_NCHITTEST             : result:= 'WM_NCHITTEST            ';
    WM_NCLBUTTONDBLCLK       : result:= 'WM_NCLBUTTONDBLCLK      ';
    WM_NCLBUTTONDOWN         : result:= 'WM_NCLBUTTONDOWN        ';
    WM_NCLBUTTONUP           : result:= 'WM_NCLBUTTONUP          ';
    WM_NCMBUTTONDBLCLK       : result:= 'WM_NCMBUTTONDBLCLK      ';
    WM_NCMBUTTONDOWN         : result:= 'WM_NCMBUTTONDOWN        ';
    WM_NCMBUTTONUP           : result:= 'WM_NCMBUTTONUP          ';
    WM_NCMOUSEMOVE           : result:= 'WM_NCMOUSEMOVE          ';
    WM_NCPAINT               : result:= 'WM_NCPAINT              ';
    WM_NCRBUTTONDBLCLK       : result:= 'WM_NCRBUTTONDBLCLK      ';
    WM_NCRBUTTONDOWN         : result:= 'WM_NCRBUTTONDOWN        ';
    WM_NCRBUTTONUP           : result:= 'WM_NCRBUTTONUP          ';
    WM_NEXTDLGCTL            : result:= 'WM_NEXTDLGCTL           ';
    WM_PAINT                 : result:= 'WM_PAINT                ';
    WM_PAINTCLIPBOARD        : result:= 'WM_PAINTCLIPBOARD       ';
    WM_PALETTECHANGED        : result:= 'WM_PALETTECHANGED       ';
    WM_PALETTEISCHANGING     : result:= 'WM_PALETTEISCHANGING    ';
    WM_PARENTNOTIFY          : result:= 'WM_PARENTNOTIFY         ';
    WM_PASTE                 : result:= 'WM_PASTE                ';
    WM_POWER                 : result:= 'WM_POWER                ';
    WM_QUERYDRAGICON         : result:= 'WM_QUERYDRAGICON        ';
    WM_QUERYENDSESSION       : result:= 'WM_QUERYENDSESSION      ';
    WM_QUERYNEWPALETTE       : result:= 'WM_QUERYNEWPALETTE      ';
    WM_QUERYOPEN             : result:= 'WM_QUERYOPEN            ';
    WM_QUEUESYNC             : result:= 'WM_QUEUESYNC            ';
    WM_QUIT                  : result:= 'WM_QUIT                 ';
    WM_RBUTTONDBLCLK         : result:= 'WM_RBUTTONDBLCLK        ';
    WM_RBUTTONDOWN           : result:= 'WM_RBUTTONDOWN          ';
    WM_RBUTTONUP             : result:= 'WM_RBUTTONUP            ';
    WM_RENDERALLFORMATS      : result:= 'WM_RENDERALLFORMATS     ';
    WM_RENDERFORMAT          : result:= 'WM_RENDERFORMAT         ';
    WM_SETCURSOR             : result:= 'WM_SETCURSOR            ';
    WM_SETFOCUS              : result:= 'WM_SETFOCUS             ';
    WM_SETFONT               : result:= 'WM_SETFONT              ';
    WM_SETREDRAW             : result:= 'WM_SETREDRAW            ';
    WM_SETTEXT               : result:= 'WM_SETTEXT              ';
    WM_SHOWWINDOW            : result:= 'WM_SHOWWINDOW           ';
    WM_SIZE                  : result:= 'WM_SIZE                 ';
    WM_SIZECLIPBOARD         : result:= 'WM_SIZECLIPBOARD        ';
    WM_SPOOLERSTATUS         : result:= 'WM_SPOOLERSTATUS        ';
    WM_SYSCHAR               : result:= 'WM_SYSCHAR              ';
    WM_SYSCOLORCHANGE        : result:= 'WM_SYSCOLORCHANGE       ';
    WM_SYSCOMMAND            : result:= 'WM_SYSCOMMAND           ';
    WM_SYSDEADCHAR           : result:= 'WM_SYSDEADCHAR          ';
    WM_SYSKEYDOWN            : result:= 'WM_SYSKEYDOWN           ';
    WM_SYSKEYUP              : result:= 'WM_SYSKEYUP             ';
    WM_SYSTEMERROR           : result:= 'WM_SYSTEMERROR          ';
    WM_TIMECHANGE            : result:= 'WM_TIMECHANGE           ';
    WM_TIMER                 : result:= 'WM_TIMER                ';
    WM_UNDO                  : result:= 'WM_UNDO                 ';
    WM_USER                  : result:= 'WM_USER                 ';
    WM_VKEYTOITEM            : result:= 'WM_VKEYTOITEM           ';
    WM_VSCROLL               : result:= 'WM_VSCROLL              ';
    WM_VSCROLLCLIPBOARD      : result:= 'WM_VSCROLLCLIPBOARD     ';
    WM_WINDOWPOSCHANGED      : result:= 'WM_WINDOWPOSCHANGED     ';
    WM_WINDOWPOSCHANGING     : result:= 'WM_WINDOWPOSCHANGING    ';
    WM_WININICHANGE          : result:= 'WM_WININICHANGE         ';

You can use these messages using this example:

  private
  procedure lik(var Msg:TWMNCHITTEST);message WM_NCHITTEST;
  public

procedure TForm1.lik(var Msg:TWMNCHITTEST);
begin
inherited;
if tx=true then
begin
if Msg.Result=Windows.HTMINBUTTON then Application.Minimize
else if Msg.Result=Windows.HTCLOSE then Close;
end;
end;

I have could writen much here but my hand hurts!





Please rate this article!
Skill level:
BeginnerExpert

Useful:
No!Very!

Overall rating:
PoorExcellent



Comments to this article
Write a new comment
tx
    tanin (Nov 19 2001 11:22AM)

if tx=true then.....



what is tx?
Respond

RE: tx
tanin fuentes (Nov 19 2001 11:25AM)

where do we get tx?
Respond

RE: RE: tx
Master Tavi (Nov 24 2001 8:39PM)

Tx is a boolean expresion that you will use it to enable/disable the function.Declare it in the top of the pascal unit

var
tx:Boolean;
Respond














 
Sign up to consume product discounts for Bronze memberships !

read more


  Visit our Sponsor

 

  Community Ad of
L. Rosenstein
 
   














 







     
  Copyright © 2000 - 2007 delphi3000.com - All rights reserved. Terms of use. || Privacy
delphi3000.com is a service by bluestep.com IT-Services GmbH (Vienna)