1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,
LMessages, LCLIntf;
const
LM_MY_MESSAGE = LM_USER + 1;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
procedure MyMessageHandler(var Message: TLMessage); message LM_MY_MESSAGE;
public
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
{
SendMessage sends it directly to control without waiting while other events
become processed. So SendMessage acts as Control.Perform()
As result you will see in memo such lines:
1. Sending message
2. Got message
3. Exiting Button.Click()
}
Memo1.Lines.Add('--------------------------------');
Memo1.Lines.Add('Sending message by <SendMessage>');
SendMessage(Handle, LM_MY_MESSAGE, 1, 0);
Memo1.Lines.Add('Exiting Button.Click()');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
{
PostMessage add message at the bottom of message queue, so you will get it only
after other events become processed. You can use PostMessage to postpone some
operations.
As result you will see in memo such lines:
1. Sending message
2. Exiting Button.Click()
3. Got message
}
Memo1.Lines.Add('--------------------------------');
Memo1.Lines.Add('Sending message by <PostMessage>');
PostMessage(Handle, LM_MY_MESSAGE, 2, 0);
Memo1.Lines.Add('Exiting Button.Click()');
end;
procedure TForm1.MyMessageHandler(var Message: TLMessage);
var
S: String;
begin
{
Message handler
}
case Message.wParam of
1: S := '<SendMessage>';
2: S := '<PostMessage>';
else
S := '<unknown>'
end;
Memo1.Lines.Add('got message from: ' + S);
end;
end.
|
