Comment utiliser SendMessage ?

Version imprimable

18/02/2010, 23h59
endaco

Comment utiliser SendMessage ?
Bonjour

Je commence a utiliser Lazarus sous Ubuntu 64.

Et d'aprés les exemples de la documentation je devrais pouvoir utiliser sendmessage. mais mon petit programme ne fonctionne pas.

Dans une form j'ai mis in TEdit et un bouton el lorsque je fais click sur le bouton je veux que le char 'a' apparaisse dans le tEdit

voici le code
Code:

1 2 3 4 5 procedure TForm1.Button3Click(Sender: TObject); begin PostMessage(Handle,LM_CHAR,ord('a'),0); end;
19/02/2010, 09h48
M.Dlb

Je pense qu'il faut que tu mettes le handle de ton TEdit comme premier paramètre.
19/02/2010, 12h02
endaco

Comment utiliser sendmessage?

Citation:

Envoyé par wormful_sickfoot

Je pense qu'il faut que tu mettes le handle de ton TEdit comme premier paramètre.

Je viens d'essayer avec Edit1.handle et ça ne marche pas no plus
19/02/2010, 12h16
batyann811

Tu as un lien vers la documentation à laquelle tu te réfères dans ton premier message ?

Citation:

Envoyé par batyann811

Tu as un lien vers la documentation à laquelle tu te réfères dans ton premier message ?

oui.

dans mon système UBuntu 64 lazarus est installé dans
/usr/lib/lazarus

et le projet que j'ai pris de base pour mon test se trouve dans
/usr/lib/lazarus/0.9.28.2/examples/messages

c'est l'example project1 il marche avec le message de l'example mais je n'arrive pas avec les messages du clavier.

voila le code

Code:

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.

19/02/2010, 13h24
batyann811

J'ai réussi à faire marcher PostMessage avec le projet exemple. Voici ce que j'ai fait.

1 - Avec l'inspecteur d'objet mettre la propriété ReadOnly du TMemo à false.

2 - Ajouter le code pour envoyer le message à l'un des 2 boutons. Il faut utiliser le Handle du Memo ça ne marche pas avec celui de la fenêtre.

Code:

PostMessage(Memo1.Handle, LM_CHAR, ord('a'), 0);

Je pense que ça doit fonctionner avec un TEdit mais je n'ai pas testé. Comme je suis au boulot j'ai fait le test sous Windows donc je ne sais pas si ça marche sous Linux.
19/02/2010, 14h00
Paul TOTH

Si tu regardes bien l'exemple donné, le message est traité dans l'exemple !

c'est juste une démonstration de la différence entre SendMessage et PostMessage, mais ça n'a rien à voir avec les messages Windows :)

le message est traité par MyMessageHandler, pas par le Memo :)
19/02/2010, 14h25
endaco

Je viens d'essayer et ça ne marche pas.
j'ai aussi modifié activecontrol dans la Form

Activecontrol=memo1

j'ai vérifié avec keypreview de la Form a true e a false et rien!!:(
19/02/2010, 14h42
Paul TOTH

normal, le Memo Linux ne gère pas les messages Windows

Citation:

Envoyé par endaco

Je viens d'essayer et ça ne marche pas.
j'ai aussi modifié activecontrol dans la Form

Activecontrol=memo1

j'ai vérifié avec keypreview de la Form a true e a false et rien!!:(
19/02/2010, 14h49
endaco

Citation:

Envoyé par Paul TOTH

Si tu regardes bien l'exemple donné, le message est traité dans l'exemple !

c'est juste une démonstration de la différence entre SendMessage et PostMessage, mais ça n'a rien à voir avec les messages Windows :)

le message est traité par MyMessageHandler, pas par le Memo :)

Je sais ce n'est pas windows. En windows cela devrait marcher parfaitement.

Ce que j'essaye de savoir c'est si c'est possible de faire la meme chose mais en linux.

J'ai regardé le code de TCalcEdit (la form de la calculatrice)

Je voudrais faire queque chose de semblable mais directement dans un Tedit et sans avoir a recoder tout le traitement des touches.
19/02/2010, 15h18
batyann811

Je viens de tester avec un TEdit et ça fonctionne bien sous windows. Et ça n'a aucune chance de marcher sous autre chose que windows.

Extrait du readme.txt du dossier du 'examples/messages' :

Citation:

The only use of PostMessage and SendMessage outside of Windows is to call your own custom message handlers.

Ce qui me gène un peu la dedans c'est que si ça ne marche pas sous autre chose que Windows pourquoi toutes les contantes de message spécifiques à Windows ne sont pas uniquement définies sous Windows. Comme ça au moins ça compilerait pas...
19/02/2010, 15h20
Paul TOTH

Citation:

Envoyé par endaco

Je sais ce n'est pas windows. En windows cela devrait marcher parfaitement.

Ce que j'essaye de savoir c'est si c'est possible de faire la meme chose mais en linux.

J'ai regardé le code de TCalcEdit (la form de la calculatrice)

Je voudrais faire queque chose de semblable mais directement dans un Tedit et sans avoir a recoder tout le traitement des touches.

probablement...mais je ne vois pas trop l'intérêt d'utiliser Lazarus ou la VCL de Delphi pour programmer en API système :) Au lieu d'avoir un code portable Delphi/Lazarus tu auras un truc spécifique Linux...et de tête Lazarus supporte différentes lib graphiques (Gnome , KDE...) qui n'auront pas la même gestion de message...
19/02/2010, 15h37
endaco

Tout a fait d'accord surrement je me suis mal exprimé ou alors je ne comprend pas bien comment cela fonctionne.

Au lieu de linux j'aurais du dire lazarus.

j'ai vu dans le code de TWINCONTROL et je crois que tedit est un descendant de TWINCONTROL qu'il y a ce code

procedure WMChar(var Message: TLMChar); message LM_CHAR;

Puis-je l'utiliser pour faire ce que je veux faire ou ce n'est pas la peine que j'essaye.
19/02/2010, 17h16
Paul TOTH

Citation:

Envoyé par endaco

Tout a fait d'accord surrement je me suis mal exprimé ou alors je ne comprend pas bien comment cela fonctionne.

Au lieu de linux j'aurais du dire lazarus.

j'ai vu dans le code de TWINCONTROL et je crois que tedit est un descendant de TWINCONTROL qu'il y a ce code

procedure WMChar(var Message: TLMChar); message LM_CHAR;

Puis-je l'utiliser pour faire ce que je veux faire ou ce n'est pas la peine que j'essaye.

aucune idée, mais il me parait plus simple de modifier le texte que de chercher à émuler une touche du clavier :)
19/02/2010, 20h12
endaco

Citation:

Envoyé par Paul TOTH

aucune idée, mais il me parait plus simple de modifier le texte que de chercher à émuler une touche du clavier :)

merci Paul
25/02/2010, 17h58
gibbe
Bonjour Endaco,

Paul Toth a raison, changer la propriété text du composant suffit:
Code:

1 2 3 4 5 procedure TForm1.Button3Click(Sender: TObject); begin Edit1.text:='a'; end;
Tu devrais marquer ce problème 'résolu'.
Merci