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
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
| unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
LMessages, LCLIntf,LCLType, EditBtn;
// jai ajouté LCLintf et LCLType
const
LM_MY_MESSAGE = LM_USER + 1;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Edit1: TEdit;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
procedure MyMessageHandler(var Message: TLMessage); message LM_MY_MESSAGE;
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{ 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;
// Début Modification
procedure TForm1.Button3Click(Sender: TObject);
begin
PostMessage(edit1.Handle,LM_CHAR,ord('a'),0); //ne marche pas
SendMessage(Handle, LM_MY_MESSAGE, 1, 0);
SendMessage(Memo1.Handle,LM_CHAR,ord('A'),0); //ne marche pas
SendMessage(edit1.Handle,LM_KEYDOWN,VK_A,0); // ne marche pas no plus
end;
// fin modification
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;
initialization
{$I unit1.lrs}
end. |
Comment utiliser SendMessage ?
Répondre avec citation
Envoyé par wormful_sickfoot
Partager