Bonjour à toutes et à tous,
J'avais créé une application avec DELPHI dans laquelle, gràce à l'évènement "onMessage" du composant TApplicationEventes, on pouvait sauter son traitement normal en mettant à "true" la variable "Handled".
Je ne retrouve pas l'équivalent sous LAZARUS. Il y a bien le composant TApplicationProperty avec l'évènement 'onIdle' qui a une variable de retour "done", mais vu le peu de documentation qui y est attachée, je ne vois vraiment pas quoi en faire.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 type TMessageEvent = procedure (var Msg: TMsg; var Handled: Boolean) of object; property OnMessage: TMessageEvent;
Mon problème particulier : lorsqu’on clique sur la partie haute d'une fenêtre, et qu'on déplace la souris, la fenêtre suit les déplacements de la souris. Moi, je souhaite que cette action n'aie aucun effet (je souhaite que la fenêtre ne se déplace pas). Comment faire ?
Il y a aussi cette procédure :
dont je subodore qu'elle pourrait bien remplir la fonction, mais je ne vois pas trop comment.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 procedure LMWindowPosChanged(var message: TLMWindowPosChanged); message LM_WINDOWPOSCHANGED;
Merci de votre aide.
Pierre
Partager