Discussion :

[ChPr]

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".

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;

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.

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 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    procedure LMWindowPosChanged(var message: TLMWindowPosChanged);
                                 message LM_WINDOWPOSCHANGED;

dont je subodore qu'elle pourrait bien remplir la fonction, mais je ne vois pas trop comment.

Merci de votre aide.

Pierre

[ChPr]

En farfouillant sur le NET, j'ai trouvé ceci :

http://www.swissdelphicenter.ch/torr...de.php?id=1069

En remplaçant les variables WM... par des LM... qui se trouvent dans l'unité LMessages, ça marche très bien ... mais seulement sous Windows. Sous Linux, la procédure n'est même pas appelée .

C'est vraiment galère le portage sous Linux ...mais peut-être avez-vous la solution

Cordialement.

Pierre

[ThWilliam]

Bonjour.

Le HITTEST est évidemment la meilleure solution, mais si ce n'est pas reconnu sous Linux...

Je crois que le message TLMWindowPoschanging n'est pas non plus reconnu ( ? ).

Pour le message TLMWindowPoschanged, j'ai trouvé ceci : http://forum.lazarus.freepascal.org/...c=24367.5;wap2

Cela n'empêche pas de déplacer la fiche, mais elle revient par après à sa position initiale. Ce n'est donc pas la solution la plus heureuse.

J'ai testé, cela marche, il faut juste modifier ce qui suit si l'unité n'est pas en mode Delphi.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
procedure TForm1.PosChanged(var Msg: TLMWindowPosChanged);
begin
    Application.QueueAsyncCall(@FixIt, 0);
end;

Cordialement
Thierry

[ChPr]

Je te remercie ThWilliam pour cette solution.

Entre temps, après avoir beaucoup tourné autour des TLMWindowPoschanged et TLMWindowPoschanging, j'en étais arrivé à une solution pratiquement identique (je ne passais par la fonction intermédiaire QueueAsyncCall) et donnant le même fonctionnement que celui que tu décris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
procedure TForm1.PosChanged(var Msg: TLMWindowPosChanged);
begin
   Left := PrvLeft;
   Top := PrvTop;
end;

Pffouu !

Merci encore, cordialement.

Pierre

[e-ric]

Salut à tous

J'interviens tardivement mais je pense à une solution simple pour ton problème particulier, en supposant que la fenêtre ne doit jamais être déplacée : le plus simple consiste à ne pas afficher de barre de titre, avec BorderStyle = bsNone, aucun code spécifique dans ce cas et maintenance simplifiée...
Si les utilisateur veulent un titre, un TLabel coloré peut faire l'affaire.

Rien n'empêche d'ailleurs de le faire par code et d'activer/désactiver la barre de titre selon la situation.

@+

[ChPr]

Merci e-ric pour cette proposition. c'est d'une redoutable efficacité, aussi bien sous Windows que sous Linux.

Bon, la cosmétique demande à être un peu améliorée.

[e-ric]

Salut,

Effectivement, tu te retrouves alors avec la zone client directement superposée sur le fond mais rien ne t'empêche d'ajouter une bordure avec un TBevel et un titre avec une TShape ou TLabel (coloré).

@+