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 : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
procedure TForm1.Button3Click(Sender: TObject);
begin
   PostMessage(Handle,LM_CHAR,ord('a'),0);
end;