TMessage and Delphi

Ah, no guys I do not mean MessageBox, I mean Windows messages (WM_...etc) :)

Regards

Hmm.. Do you want to write whole app based on windows messages? Or you want to add message processing to a project that uses Delphi default objects (like TForm, TButton etc)?

If you want to use plain windows API to create an app, here's the beginning - creating simple empty form ;)



program project;

uses
  windows, messages;

var
  wcls : wndClass;
  form : cardinal;
  msg  : tagMsg;

function WndProc (wnd, msg : cardinal; wParam, lParam : integer) : integer; stdcall;
begin
case msg of
  wm_close : PostQuitMessage(0);
end;
result := DefWindowProc(wnd, msg, wParam, lParam);
end;

begin
with wcls do begin
  style         := cs_parentdc;
  lpfnWndProc   := @WndProc;
  cbClsExtra    := 0;
  cbWndExtra    := 0;
  hInstance     := sysInit.hInstance;
  hIcon         := LoadIcon(0, idi_application);
  hCursor       := LoadCursor(0, idc_arrow);
  hbrBackground := color_btnface + 1;
  lpszMenuName  := nil;
  lpszClassName := 'empty form';
end;
RegisterClass(wcls);

form := CreateWindowEx(
  ws_ex_topmost or ws_ex_toolwindow or ws_ex_appwindow,
  wcls.lpszClassName, 'tutorial nr. 001 - empty form',
  ws_visible or ws_caption or ws_sizebox or ws_sysmenu,
  150, 100, 400, 300,
  0, 0, hInstance, nil
);

while GetMessage(msg, 0, 0, 0) do begin
  DispatchMessage(msg);
end;

DestroyWindow(form);
UnregisterClass(wcls.lpszClassName, wcls.hInstance);
end.

P.S.(1) If you want to learn WinAPI, I advise you to download Platform SDK from www.microsoft.com - it's free software. You'll need only "help" from it (it's about 200MB).
P.S.(2) You may contact me in Skype (nick: delphists) if you need some help with WinAPI from me.

Hi ZhaawZ,

No I need to understand how to add and use messages like example:

WM_REGENDSEARCH = WM_USER +100;

procedure Procedure100(var Message: TMessage);
procedure Procedure101(var Msg: TMessage); message WM_REGENDSEARCH;

Thanks in advance for your help and time

ZhaawZ,

Thanks a lot for your help and time. :)  Now I have a couple of questions on your source code so that I can better understand Windows messages:

** In const
  CustomMessage_RegEndSearch = wm_user + 100;

- Why +100? I mean what do 100 refer to?
- What are the other types of Windows messages (other than wm_user)?

Thanks in advance for your time

ZhaawZ,

No need to reply for my last questions, I've found the answer in
http://www.cryer.co.uk/brian/delphi/howto_send_custom_window_message.htm

Thank you for your help and time

Regards